[Bio] / FigKernelPackages / DBrtns.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/DBrtns.pm

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

revision 1.19, Wed Jun 15 16:24:37 2005 UTC revision 1.20, Fri Jun 24 21:40:16 2005 UTC
# Line 25  Line 25 
25      return DBKernel::new($class, $dbms, $dbname, $dbuser, $dbpass, $dbport, $dbhost);      return DBKernel::new($class, $dbms, $dbname, $dbuser, $dbpass, $dbport, $dbhost);
26  }  }
27    
 sub vacuum_it {  
     my($self,@tables) = @_;  
     my($table);  
   
     my $dbh  = $self->{_dbh};  
     my $dbms = $self->{_dbms};  
     if ($dbms eq "mysql") {  
         return;  
     }  
   
     # this chunk is for Pg  (Postgres)  
     if (@tables == 0) {  
         $self->SQL("VACUUM ANALYZE");  
     } else {  
         foreach $table (@tables) {  
             $self->SQL("VACUUM ANALYZE $table");  
         }  
     }  
 }  
   
28  =head1 get_inserted_id  =head1 get_inserted_id
29    
30  Return the last ID of a row inserted into an autonumber/serial-containing table.  Return the last ID of a row inserted into an autonumber/serial-containing table.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3