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

Diff of /Sprout/ERDB.pm

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

revision 1.12, Fri Jun 24 18:31:52 2005 UTC revision 1.16, Tue Jun 28 23:51:06 2005 UTC
# Line 2  Line 2 
2    
3      use strict;      use strict;
4      use Tracer;      use Tracer;
5      use DBKernel;      use DBrtns;
6      use Data::Dumper;      use Data::Dumper;
7      use XML::Simple;      use XML::Simple;
8      use DBQuery;      use DBQuery;
# Line 1379  Line 1379 
1379                  $retVal->AddMessage($@);                  $retVal->AddMessage($@);
1380              }              }
1381          }          }
1382            # Analyze the table to help optimize tables.
1383      }      }
1384      # Commit the database changes.      # Commit the database changes.
1385      $dbh->commit_tran;      $dbh->commit_tran;
1386        $dbh->vacuum_it($relationName);
1387      # Delete the temporary file.      # Delete the temporary file.
1388      unlink $tempName;      unlink $tempName;
1389      # Return the statistics.      # Return the statistics.
# Line 1987  Line 1989 
1989  sub _LoadMetaData {  sub _LoadMetaData {
1990      # Get the parameters.      # Get the parameters.
1991      my ($filename) = @_;      my ($filename) = @_;
1992        Trace("Reading Sprout DBD from $filename.") if T(2);
1993      # Slurp the XML file into a variable. Extensive use of options is used to insure we      # Slurp the XML file into a variable. Extensive use of options is used to insure we
1994      # get the exact structure we want.      # get the exact structure we want.
1995      my $metadata = XML::Simple::XMLin($filename,      my $metadata = XML::Simple::XMLin($filename,

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.16

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3