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

Diff for scripts/perl/oracle/oracledump.pl between version 1.26 and 1.27

version 1.26, 2008/08/23 14:22:41 version 1.27, 2008/08/23 14:32:02
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
   
 # $Platon: scripts/perl/oracle/oracledump.pl,v 1.25 2008-08-23 14:21:25 nepto Exp $  # $Platon: scripts/perl/oracle/oracledump.pl,v 1.26 2008-08-23 14:22:41 nepto Exp $
   
 use strict;  use strict;
   
Line 447  MARK
Line 447  MARK
                                                  data_default,                                                   data_default,
                                                  nullable                                                   nullable
                                         FROM all_tab_columns                                          FROM all_tab_columns
                                    WHERE UPPER(table_name) = \''.$table.'\'                                     WHERE data_type != \'XMLTYPE\'
                                            AND UPPER(table_name) = \''.$table.'\'
                                      AND UPPER(owner) = \''.$opt_owner.'\'';                                       AND UPPER(owner) = \''.$opt_owner.'\'';
         } else {          } else {
                 $query = 'SELECT column_name,                  $query = 'SELECT column_name,
Line 458  MARK
Line 459  MARK
                                                  data_default,                                                   data_default,
                                                  nullable                                                   nullable
                                         FROM user_tab_columns                                          FROM user_tab_columns
                                    WHERE UPPER(table_name) = \''.$table.'\'';                                     WHERE data_type != \'XMLTYPE\'
                                            AND UPPER(table_name) = \''.$table.'\'';
         }          }
   
     $sth = $dbh->prepare($query);      $sth = $dbh->prepare($query);
Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top