version 1.27, 2002/11/11 09:43:20
|
version 1.29, 2003/01/08 21:54:49
|
Line 36 use vars qw($opt_i);
|
Line 36 use vars qw($opt_i);
|
|
|
use Getopt::Std; |
use Getopt::Std; |
getopts('i'); |
getopts('i'); |
|
#open STDERR, ">errors"; |
my $Interactive=$opt_i || 0; |
my $Interactive=$opt_i || 0; |
|
|
|
|
Line 58 my ($sth);
|
Line 58 my ($sth);
|
|
|
use DBI; |
use DBI; |
use strict; |
use strict; |
|
my $isunsorted=0; |
sub UpdateParents { |
sub UpdateParents { |
my ($dbh, $ParentId, $all_qnum) = @_; |
my ($dbh, $ParentId, $all_qnum) = @_; |
if ($ParentId) { |
if ($ParentId) { |
Line 265 MAIN:
|
Line 265 MAIN:
|
|
|
|
|
my($source); |
my($source); |
my $isunsorted=0; |
|
|
|
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "") |
or die "Can't connect to DB chgk\n"; |
or die "Can't connect to DB chgk\n"; |