iwpt_output("< TITLE> News Archive: "); my $newsblurb = iwpt_dcr_value('dcr.PR.News Blurb'); if($newsblurb ne "" && $newsblurb ne undef) { $newsblurb =~ s/[a-z]/[A-Z]/; iwpt_output($newsblurb); } else { my $headline = iwpt_dcr_value('dcr.PR.Headline'); $headline =~ s/[a-z]/[A-Z]/; iwpt_output($headline); } iwpt_output("");
my $img_base_name = iwpt_dcr_value('dcr.IMG.URL');my $img_on = ""; my $img_off = "";if($img_base_name =~ /(.*)_on.gif/) { $img_on = $img_base_name; $img_off = $1 . "_off.gif";} elsif($img_base_name =~ /(.*)_off.gif/) { $img_on = $1 . "_on.gif"; $img_off = $img_base_name;} else { warn "Don't know what to do with $img_base_name $! \n";}