Hi:

I have a global I use to shorten up one specific field for display on certian Detail pages. In essance, the object is to take a field longer than 75 characters (and some get into the 200-300's!) and bring it down to a "digest" size. Additionally, I use the one field for two fields of info, as you will see. For the "Digest", I remove the code to make it a seperate "apparent" field and just string it all together. The field is "Studio" which is the studio who makes a cartoon. As is sometimes the case (and in this specific example, it is Animaniacs), there is a Producing studio... and an animating studio. So, to make this two fields, I use this as an entry:

Warner Bros. Television Animation.<LI>Animation Studio</B>: Freelance Animators, Ltd.

When Incerted into my detail page, this will result in:

Warner Bros. Television Animation.
Animation Studio: Freelance Animators, Ltd.

and when I "digest" this, it will result in:

Warner Bros. Television Animation, Freelance Animators, Ltd.

Here is the global to do that:

sub {

my $short1;

my $comma1;

my $cs1;

my ($rec) = @_;

my $stud = $rec->{'Studio'}; # Get the Info

$short1 =~ s/.<LI>Animation Studio<\/B>:/, /; # Remove the Animation Studio header, subsitute comma

$short1 =~ s/,<LI>Animation Studio<\/B>:/, /; # Same, and a test

if (length $stud < 45) { # If Studio is less than 45, do NOTHING

$short1 = $stud;

}

else { # If Studio is more than 45 characters...

$short1 = substr ($stud, 0, 75); #Cut it to 75 Characters

$short1 =~ s/\s\S+?$//;

$short1 =~ s/.<BR>/, /; #Remove a <BR> if there is one

$cs1 = chop($short1);

until ($comma1 eq ",") { ### Loop until we find a comma

$comma1 = chop($short1); # Cut it off AT the comma

}

$short1 .= "..."; # Add a "..." so we know it is chopped

}

return $short1;

}



OK, this has been working well and good for me for a while... But it is crashing me on one SPECIFIC entry.... and I cannot figure out why. When Studio = Warner Bros. Television Animation.<LI>Animation Studio</B>: StarToons.

This goes into a death spiral... I have been all over the code (as best I can!) and I cannot figure out why this just does not return:

Warner Bros. Television Animation....

Any Ideas?

Thanks!
dave

Big Cartoon DataBase
Big Comic Book DataBase