gistfile1.pl

sub _hdlr_entry_body_has_width { 
    my($ctx, $args, $cond) = @_; 
	 
    return 0 if ( ! $ctx->stash('entry') ); 

    unless( $args->{'width'} ) { 
        ## tut nado chto-to sdelat s soobsheniem - ono ne sootwetstvuet logike
        &MT::log('Unexpected parameter width for tag <MTIfEntryBodyHasWidth>'); 
 	return 0; 
    } 

    my $entry_text = &MT::Template::Context::_hdlr_entry_body; 
    ( $args->{'width'} <= length($entry_text) ) ? 1 : 0; 
}