[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.12, Fri Apr 8 08:32:10 2005 UTC revision 1.13, Tue Apr 12 22:58:32 2005 UTC
# Line 177  Line 177 
177      my $delim    = $arg{delim};      my $delim    = $arg{delim};
178      my $dbh  = $self->{_dbh};      my $dbh  = $self->{_dbh};
179      my $dbms = $self->{_dbms};      my $dbms = $self->{_dbms};
180        my $result;
181    
182      if ($file)      if ($file)
183      {      {
184          if ($dbms eq "mysql")          if ($dbms eq "mysql")
185          {          {
186              $dbh->do("LOAD DATA LOCAL INFILE '$file' REPLACE INTO TABLE $tbl;");              $result = $dbh->do("LOAD DATA LOCAL INFILE '$file' REPLACE INTO TABLE $tbl;");
187          }          }
188          elsif ($dbms eq "Pg")          elsif ($dbms eq "Pg")
189          {          {
190              $dbh->do("COPY $tbl FROM '$file' USING DELIMITERS '$delim';");              $result = $dbh->do("COPY $tbl FROM '$file' USING DELIMITERS '$delim';");
191          }          }
192      }      }
193        return $result;
194  }  }
195    
196  sub create_index {  sub create_index {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3