--- db/prgsrc/updatedb.pl	2002/11/11 09:43:20	1.27
+++ db/prgsrc/updatedb.pl	2002/11/11 09:57:49	1.28
@@ -28,7 +28,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: updatedb.pl,v 1.27 2002/11/11 09:43:20 roma7 Exp $
+=head1 $Id: updatedb.pl,v 1.28 2002/11/11 09:57:49 roma7 Exp $
 
 =cut
 
@@ -58,7 +58,7 @@ my ($sth);
 
 use DBI;
 use strict;
-
+my $isunsorted=0;
 sub UpdateParents {
     my ($dbh, $ParentId, $all_qnum) = @_;
     if ($ParentId) {
@@ -265,7 +265,6 @@ MAIN:
 			  
 		      
     my($source);
-    my $isunsorted=0;
     
     my($dbh) = DBI->connect("DBI:mysql:chgk", "piataev", "")
 	or die "Can't connect to DB chgk\n";