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

Diff of /Sprout/ModelSaplingLoader.pm

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

revision 1.18, Wed Sep 21 21:05:15 2011 UTC revision 1.19, Sat Oct 1 10:35:02 2011 UTC
# Line 135  Line 135 
135  sub LoadModelFiles {  sub LoadModelFiles {
136      # Get the parameters.      # Get the parameters.
137      my ($self) = @_;      my ($self) = @_;
138        # Get the sapling database.
139        my $erdb = $self->db();
140      # Get the model dump file directory.      # Get the model dump file directory.
141      my $dir = $self->db()->LoadDirectory() . "/models";      my $dir = $erdb->LoadDirectory() . "/models";
142      # First we read the compounds.      # First we read the compounds.
143      my $ih = $self->CheckFile("$dir/CompoundName.txt", qw(CompoundID Name));      my $ih = $self->CheckFile("$dir/CompoundName.txt", qw(CompoundID Name));
144      while (! eof $ih) {      while (! eof $ih) {
# Line 199  Line 201 
201              $self->PutR(IsRequiredBy => $reaction, $model);              $self->PutR(IsRequiredBy => $reaction, $model);
202          }          }
203      }      }
204        # Finally, the exemplars are stored in the coupling directory.
205        my $couplingDir = $erdb->LoadDirectory() . '/FamilyData';
206        $self->LoadFromFile(IsExemplarOf => "$couplingDir/IsExemplarOf.dtx",
207                            qw(from_link to_link));
208  }  }
209    
210  =head3 StartFile  =head3 CheckFile
211    
212      my $ih = $sl->CheckFile($fileName, @fieldNames);      my $ih = $sl->CheckFile($fileName, @fieldNames);
213    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3