db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.27, 2002/11/11 09:43:20	version 1.28, 2002/11/11 09:57:49
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";