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

Diff of /FigKernelPackages/UnvSubsys.pm

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

revision 1.13, Wed Oct 12 21:54:12 2005 UTC revision 1.14, Mon Nov 28 22:41:16 2005 UTC
# Line 147  Line 147 
147          my $reactions = $subsystem->get_reactions;          my $reactions = $subsystem->get_reactions;
148          my @genomes = $subsystem->get_genomes;          my @genomes = $subsystem->get_genomes;
149          my @col_subsets = $subsystem->get_subset_namesC;          my @col_subsets = $subsystem->get_subset_namesC;
150            my @diagrams = $subsystem->get_diagrams();
151          # Create the data structures for the role list and the role index.          # Create the data structures for the role list and the role index.
152          my $role_info = [];          my $role_info = [];
153          my $roleH     = {};          my $roleH     = {};
# Line 272  Line 273 
273                       Aliases => $aliasesH,                       Aliases => $aliasesH,
274                       Curator => $curator,                       Curator => $curator,
275                       Notes => $notes,                       Notes => $notes,
276                       Reactions => $reactions                       Reactions => $reactions,
277                         Diagrams => \@diagrams,
278                     };                     };
279          bless($self, $class);          bless($self, $class);
280          # Return the object.          # Return the object.
# Line 922  Line 924 
924      return $pegs ? @$pegs : ();      return $pegs ? @$pegs : ();
925  }  }
926    
927    =head3 get_diagrams
928    
929    C<< my @list = $sub->get_diagrams(); >>
930    
931    Return a list of the diagrams associated with this subsystem. Each diagram
932    is represented in the return list as a 4-tuple C<[diagram_id, diagram_name,
933    page_link, img_link]> where
934    
935    =over 4
936    
937    =item diagram_id
938    
939    ID code for this diagram.
940    
941    =item diagram_name
942    
943    Displayable name of the diagram.
944    
945    =item page_link
946    
947    URL of an HTML page containing information about the diagram.
948    
949    =item img_link
950    
951    URL of an HTML page containing an image for the diagram.
952    
953    =back
954    
955    Note that the URLs are in fact for CGI scripts with parameters that point them
956    to the correct place. Though Sprout has diagram information in it, it has
957    no relationship to the diagrams displayed in SEED, so the work is done entirely
958    on the SEED side.
959    
960    =cut
961    
962    sub get_diagrams {
963        # Get the parameters.
964        my ($self) = @_;
965        # Return the diagram list.
966        return @{$self->{Diagrams}};
967    }
968    
969  sub get_notes {  sub get_notes {
970      my($self) = @_;      my($self) = @_;
971    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3