[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.6, Thu Aug 27 19:52:40 2009 UTC revision 1.7, Wed Dec 16 01:45:19 2009 UTC
# Line 500  Line 500 
500                  if ($LoadingArray[25] == 0) {                  if ($LoadingArray[25] == 0) {
501                      #Loading the model from file                      #Loading the model from file
502                      my $ModelTable = $model->GetDBModel($LoadingArray[0]);                      my $ModelTable = $model->GetDBModel($LoadingArray[0]);
503                        if (! defined $ModelTable) {
504                            $self->Add(missingModelTable => 1);
505                        } else {
506                      for (my $j=0; $j < $ModelTable->size(); $j++) {                      for (my $j=0; $j < $ModelTable->size(); $j++) {
507                          my $RxnRow = $ModelTable->get_row($j);                          my $RxnRow = $ModelTable->get_row($j);
508                          if (defined($RxnRow) && defined($RxnRow->{"LOAD"}->[0])) {                          if (defined($RxnRow) && defined($RxnRow->{"LOAD"}->[0])) {
# Line 553  Line 556 
556                              $self->PutR(IsRequiredBy => $RxnRow->{"LOAD"}->[0],$LoadingArray[0], direction => $SubLoadingArray[0], compartment => $SubLoadingArray[1], confidence => $SubLoadingArray[3], class => $SubLoadingArray[4], notes => $SubLoadingArray[5], dependency => $SubLoadingArray[6]);                              $self->PutR(IsRequiredBy => $RxnRow->{"LOAD"}->[0],$LoadingArray[0], direction => $SubLoadingArray[0], compartment => $SubLoadingArray[1], confidence => $SubLoadingArray[3], class => $SubLoadingArray[4], notes => $SubLoadingArray[5], dependency => $SubLoadingArray[6]);
557                          }                          }
558                      }                      }
559                        }
560                      #Clearing the model data from memmory                      #Clearing the model data from memmory
561                      undef $ModelTable;                      undef $ModelTable;
562                      $model->ClearDBModel($LoadingArray[0],"DELETE");                      $model->ClearDBModel($LoadingArray[0],"DELETE");

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3