[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

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

revision 1.114, Tue May 15 21:12:18 2007 UTC revision 1.115, Fri Aug 24 12:13:15 2007 UTC
# Line 1604  Line 1604 
1604    
1605  =head3 sub_link  =head3 sub_link
1606    
1607  C<< my $htmlText = HTML::sub_link($cgi, $sub); >>  C<< my $htmlText = HTML::sub_link($cgi, $sub, gid); >>
1608    
1609  Create a subsystem link. The link will be to the display page if there is no  Create a subsystem link. The link will be to the display page if there is no
1610  user or we are in SPROUT mode; otherwise it will be to the edit page.  user or we are in SPROUT mode; otherwise it will be to the edit page.
# Line 1622  Line 1622 
1622  Name of the desired subsystem. It will be cleaned of underscores before the  Name of the desired subsystem. It will be cleaned of underscores before the
1623  hyperlink is applied.  hyperlink is applied.
1624    
1625    =item gid
1626    
1627    Genome ID to be specified as the focus.
1628    
1629  =back  =back
1630    
1631  =cut  =cut
# Line 1630  Line 1634 
1634      # Allow call as an instance in addition to the authorized method.      # Allow call as an instance in addition to the authorized method.
1635      shift if UNIVERSAL::isa($_[0],__PACKAGE__);      shift if UNIVERSAL::isa($_[0],__PACKAGE__);
1636      # Get the parameters.      # Get the parameters.
1637      my ($cgi, $sub) = @_;      my ($cgi, $sub, $gid) = @_;
1638      # Declare the return variable.      # Declare the return variable.
1639      my $retVal;      my $retVal;
1640      # Clean the subsystem name for display purposes. This is a very      # Clean the subsystem name for display purposes. This is a very
# Line 1648  Line 1652 
1652          $retVal = "<a href=\"subsys.cgi?ssa_name=$linkable&request=show_ssa&user=$user\">$cleaned</a>";          $retVal = "<a href=\"subsys.cgi?ssa_name=$linkable&request=show_ssa&user=$user\">$cleaned</a>";
1653      } else {      } else {
1654          # A visitor or SPROUT user is calling, so we go to the display page.          # A visitor or SPROUT user is calling, so we go to the display page.
1655          $retVal = "<a href=\"display_subsys.cgi?ssa_name=$linkable;request=show_ssa;sort=by_phylo;SPROUT=$sproutMode\">$cleaned</a>";          $retVal = "<a href=\"display_subsys.cgi?ssa_name=$linkable;request=show_ssa;sort=by_phylo;focus=$gid;SPROUT=$sproutMode\">$cleaned</a>";
1656      }      }
1657      # Return the result.      # Return the result.
1658      return $retVal;      return $retVal;

Legend:
Removed from v.1.114  
changed lines
  Added in v.1.115

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3