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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.89, Sat Aug 26 21:10:13 2006 UTC revision 1.90, Tue Oct 17 18:44:03 2006 UTC
# Line 440  Line 440 
440      }      }
441  }  }
442    
443    
444  sub open_diagram_image  sub open_diagram_image
445  {  {
446      my($self, $id) = @_;      my($self, $id) = @_;
# Line 3486  Line 3487 
3487    
3488  ID of the relevant diagram.  ID of the relevant diagram.
3489    
3490    =item sprout (optional)
3491    
3492    If specified, indicates this should be a Sprout URL.
3493    
3494  =item RETURN  =item RETURN
3495    
3496  Returns a two-element list, the first element of which is a link to the diagram  Returns a two-element list, the first element of which is a link to the diagram
# Line 3497  Line 3502 
3502    
3503  sub ComputeDiagramURLs {  sub ComputeDiagramURLs {
3504      # Get the parameters.      # Get the parameters.
3505      my ($ssName, $diagramID) = @_;      my ($ssName, $diagramID, $sprout) = @_;
3506      # Compute the CGI directory base. Originally this was a configuration      # Compute the CGI directory base. Originally this was a configuration
3507      # parameter. Now we use a dot to force a relative URL.      # parameter. Now we use a dot to force a relative URL.
3508      # my $base = $FIG_Config::cgi_base;      # my $base = $FIG_Config::cgi_base;
3509      my $base = './';      my $base = './';
3510      # Create the links.      # Create the links.
3511      my $link = $base . "subsys_diagram.cgi?ssa=$ssName&diagram=$diagramID";      my $link = $base . "subsys_diagram.cgi?ssa=$ssName&diagram=$diagramID";
3512        if ($sprout) {
3513            $link .= "&SPROUT=1";
3514        }
3515      my $img_link = $link . "&image=1";      my $img_link = $link . "&image=1";
3516      # Return them.      # Return them.
3517      return ($link, $img_link);      return ($link, $img_link);

Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3