[Bio] / FigWebServices / protein.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/protein.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.78, Sat Jan 29 03:41:49 2005 UTC revision 1.79, Sat Jan 29 16:54:05 2005 UTC
# Line 579  Line 579 
579          my $tab = [];          my $tab = [];
580          foreach $_ (@attr) {          foreach $_ (@attr) {
581              my($tag,$val,$url) = @$_;              my($tag,$val,$url) = @$_;
582                next unless ($url =~ /^http/);
583              push(@$tab,[$tag,$url ? "<a href=\"$url\">$val</a>" : $val]);              push(@$tab,[$tag,$url ? "<a href=\"$url\">$val</a>" : $val]);
584          }          }
585          push(@$html,$cgi->br,$cgi->hr,&HTML::make_table(["Key","Value"],[sort { $a->[0] cmp $b->[0] } @$tab],"Attributes"),$cgi->hr);          push(@$html,$cgi->br,$cgi->hr,&HTML::make_table(["Key","Value"],[sort { $a->[0] cmp $b->[0] } @$tab],"Attributes"),$cgi->hr);

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3