[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.11, Thu Apr 7 17:31:59 2005 UTC revision 1.14, Thu Apr 21 17:56:29 2005 UTC
# Line 69  Line 69 
69    
70      $dbh  = $self->{_dbh};      $dbh  = $self->{_dbh};
71    
72      if ($sql =~ /^select/i)      if ($sql =~ /^\s*select/i)
73      {      {
74          my $ok = eval {          eval {
75              $tmp = $dbh->selectall_arrayref($sql, undef, @bind_values);              $tmp = $dbh->selectall_arrayref($sql, undef, @bind_values);
76          };          };
77          if (!$ok)          if (!$tmp or $@)
78          {          {
79              confess "Try running 'load_links' and 'load_attributes' to fix this error:\n$@";              confess "Try running 'load_links' and 'load_attributes' to fix this error:\n$@";
80              #print STDERR "DBrtns.pm error: SQL $sql failed\n";              #print STDERR "DBrtns.pm error: SQL $sql failed\n";
# 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.11  
changed lines
  Added in v.1.14

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3