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

Diff of /FigWebServices/index.cgi

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

revision 1.131, Thu Sep 4 13:07:26 2008 UTC revision 1.132, Fri Sep 26 14:48:24 2008 UTC
# Line 1010  Line 1010 
1010      Trace("Show-indexed-objects method complete.") if T(3);      Trace("Show-indexed-objects method complete.") if T(3);
1011  }  }
1012    
   
1013  sub format_peg_entry {  sub format_peg_entry {
1014      my( $fig, $cgi, $entry ) = @_;      my( $fig, $cgi, $entry ) = @_;
1015    
# Line 1019  Line 1018 
1018      $gs =~ s/\s+\d+$//;   # Org name comes with taxon_id appended (why?) -- GJO      $gs =~ s/\s+\d+$//;   # Org name comes with taxon_id appended (why?) -- GJO
1019    
1020      my $box = "<input type=checkbox name=checked value=\"$peg\">";      my $box = "<input type=checkbox name=checked value=\"$peg\">";
1021      return [ $box, &HTML::fid_link($cgi,$peg), $gs, $aliases, $function, $who ];      my $peg_link;
1022        if ($FIG_Config::anno3_mode) {
1023            my $user = $cgi->param('user');
1024            $peg_link = "<a href=seedviewer.cgi?page=Annotation&feature=$peg&user=$user>$peg</a>";
1025        } else {
1026            $peg_link = &HTML::fid_link($cgi,$peg);
1027        }
1028        return [ $box, $peg_link, $gs, $aliases, $function, $who ];
1029  }  }
1030    
1031  sub format_role_entry {  sub format_role_entry {

Legend:
Removed from v.1.131  
changed lines
  Added in v.1.132

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3