[Bio] / Sprout / ScenarioSaplingLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/ScenarioSaplingLoader.pm

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

revision 1.2, Thu Apr 2 01:44:30 2009 UTC revision 1.3, Thu May 28 18:08:56 2009 UTC
# Line 62  Line 62 
62      my ($class, $erdb, $options) = @_;      my ($class, $erdb, $options) = @_;
63      # Create the table list.      # Create the table list.
64      my @tables = sort qw(Scenario IsTerminusFor IsSubInstanceOf IsRelevantFor      my @tables = sort qw(Scenario IsTerminusFor IsSubInstanceOf IsRelevantFor
65                           HasParticipant Shows Displays Diagram Overlaps);                           HasParticipant Shows Displays Diagram DiagramContent Overlaps);
66      # Create the BaseSaplingLoader object.      # Create the BaseSaplingLoader object.
67      my $retVal = BaseSaplingLoader::new($class, $erdb, $options, @tables);      my $retVal = BaseSaplingLoader::new($class, $erdb, $options, @tables);
68      # Return it.      # Return it.
# Line 234  Line 234 
234          # Read it back in as a GD::Image.          # Read it back in as a GD::Image.
235          my $diagram = GD::Image->new($pngFileName);          my $diagram = GD::Image->new($pngFileName);
236          # Write the diagram record.          # Write the diagram record.
237          $self->PutE(Diagram => $map, name => $name, content => $diagram);          $self->PutE(Diagram => $map, name => $name);
238            $self->PutE(DiagramContent => $map, content => $diagram);
239          # Now we connect it to the compounds.          # Now we connect it to the compounds.
240          $self->Connect($map, $mapTitle . "_cpd.coord", 'Shows');          $self->Connect($map, $mapTitle . "_cpd.coord", 'Shows');
241          # Finally, the reactions.          # Finally, the reactions.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3