[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.137, Thu Sep 25 15:36:03 2008 UTC revision 1.138, Mon Oct 13 20:26:02 2008 UTC
# Line 924  Line 924 
924      close(TMP);      close(TMP);
925      $rdbH->load_table(file => $tmp,      $rdbH->load_table(file => $tmp,
926                        tbl => 'subsystem_index');                        tbl => 'subsystem_index');
927    
928        #
929        # Update the metadata table with this subsystem's info.
930        #
931        my $classification = $self->get_classification;
932        my @info = (join("\t", @$classification),
933                    $classification->[0],
934                    $classification->[1],
935                    $self->get_curator,
936                    $self->get_created,
937                    $self->get_last_updated,
938                    $self->get_version,
939                    $self->{exchangable});
940    
941        my $dbh = $rdbH->{_dbh};
942        my $n;
943        eval {
944            local($dbh->{RaiseError})=1;
945            $n = $dbh->do(qq(UPDATE subsystem_metadata
946                        SET classification = ?, class_1 = ?, class_2 = ?,
947                            curator = ?, creation_date = ?, last_update = ?,
948                            version = ?, exchangable = ?
949                        WHERE subsystem = ?),
950                     undef, @info, $self->get_name());
951        };
952        if ($@ or $n == 0)
953        {
954            #
955            # Row probably missing.
956            #
957            warn "error on update: $@" if $@;
958            eval {
959                $dbh->do(qq(INSERT INTO subsystem_metadata(subsystem, classification,class_1, class_2 ,
960                                                           curator, creation_date, last_update,
961                                                           version, exchangable)
962                            VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)),
963                         undef, $self->get_name(), @info);
964            };
965        }
966    
967  }  }
968    
969  #  #

Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3