/[papo]/papo/zot/zot2sql.pl
ViewVC logotype

Diff of /papo/zot/zot2sql.pl

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

revision 1.5 by jlenton, Wed Nov 27 21:03:12 2002 UTC revision 1.6 by apronotti, Tue Dec 3 18:08:51 2002 UTC
# Line 166  foreach my $table (sort keys %structure) Line 166  foreach my $table (sort keys %structure)
166    
167      my $sql = "CREATE TABLE $table (\n" . join(",\n", map("    $_", @r)) . "\n);\n";      my $sql = "CREATE TABLE $table (\n" . join(",\n", map("    $_", @r)) . "\n);\n";
168    
169      print $sql;      print $sql if $db_conf ne 'stdout';
170      $db->do( $sql );      $db->do( $sql );
171      $config{$db_conf}{'delay'}->();      $config{$db_conf}{'delay'}->();
172  }  }
# Line 187  if ($config{$db_conf}{'relational'}) Line 187  if ($config{$db_conf}{'relational'})
187              {              {
188                  $sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel});                  $sql = $config{$db_conf}{'relational'}->($table, $rel, $structure{$table}{REL}{$rel});
189              }              }
190              print $sql;              print $sql if $db_conf ne 'stdout';
191              $db->do($sql);              $db->do($sql);
192              $config{$db_conf}{'delay'}->();              $config{$db_conf}{'delay'}->();
193          }          }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26