Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Saturday, October 17, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / oracle

Diff for scripts/perl/oracle/oracledump.pl between version 1.20 and 1.21

version 1.20, 2008/08/20 13:44:51 version 1.21, 2008/08/21 08:22:43
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracle/oracledump.pl,v 1.19 2007-03-27 18:10:07 nepto Exp $  # $Platon: scripts/perl/oracle/oracledump.pl,v 1.20 2008-08-20 13:44:51 nepto Exp $
   
 use strict;  use strict;
   
Line 585  MARK
Line 585  MARK
   
         ## Query for data then output SQL          ## Query for data then output SQL
   
         $query = sprintf( 'SELECT %s FROM %s',          $query = sprintf( 'SELECT "%s" FROM %s',
                 join ( ',', @column_names ), defined $opt_owner ? "$opt_owner.$table" : $table );                  join ( '","', @column_names ), defined $opt_owner ? "$opt_owner.$table" : $table );
     $query .= ' WHERE ' . join ( ' AND ', @opt_where ) if ( scalar @opt_where > 0 );      $query .= ' WHERE ' . join ( ' AND ', @opt_where ) if ( scalar @opt_where > 0 );
   
         $sth = $dbh->prepare($query);          $sth = $dbh->prepare($query);
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top