+ my $sponsor;
+ $output{sponsor} = undef;
+ foreach $sponsor (@{$data->{sponsor}}) {
+ print "<!-- $sponsor -->\n";
+ $sponsor =~ /(.*)\s*(http.*)?/i;
+ $output{sponsor} .= "<br>" if ($output{sponsor});
+ if ($2) {
+ $output{sponsor} .= sprintf("<a href=\"%s\">%s</a>", $1, $2);
+ } else {
+ $output{sponsor} .= $1;
+ }
+ }