May 20, 2002, 9:01 PM

carfac

Veteran (1240 posts)

May 20, 2002, 9:01 PM

Views: 2429

Re: [carfac] Shortening a field for display.

Got it!

sub {
no strict;
my ($rec) = @_;
my $short;
my @desc1;
my $desc1;

my $desc = $rec->{'Animator'};
my $id = $rec->{'ID'};
@desc1 = split(/\./, $desc);
$short = $desc1[0];
if ($desc1[1]) {
$short .= "&nbsp;(<A HREF=\"http://www.bcdb.com/bcdb/detailed.cgi?film=$id&p=c\">more</A>)";
}
return $short;
}

Quote:

It works, too.



dave
dave

Big Cartoon DataBase
Big Comic Book DataBase

Last edited by:

carfac: May 20, 2002, 9:05 PM

Edit Log:

• Post edited by carfac Post edited by carfac (Veteran) on May 20, 2002, 9:04 PM
• Post edited by carfac Post edited by carfac (Veteran) on May 20, 2002, 9:04 PM
• Post edited by carfac Post edited by carfac (Veteran) on May 20, 2002, 9:05 PM