--- find3.pl	2002/02/05 13:42:10	1.3
+++ find3.pl	2002/02/05 14:31:49	1.4
@@ -20,7 +20,10 @@
 my $nn_dir=".";		# dir u kojem su wget-ani fileovi
 
 my %opts;
-getopt("vqd", \%opts);
+getopts("vqd", \%opts);
+
+my $brojeva=0;
+my $zakona=0;
 
 #--------------------------------------------------------------------
 
@@ -131,6 +134,7 @@
 	if ($file=~m/god=(\d+)\&br=(\d+)/) {
 		($br,$god) = ($2,$1);
 		print "$file -- $2 -- $1\n" if (! $opts{q});
+		$brojeva++;
 	}
 
 	while(<IN>) {
@@ -157,6 +161,7 @@
 			$sth->execute($br,$god,$nr,$aname,$naslov,$naslov_czs) || die $dbh->errstr();
 			$naslov="";
 			$nr=0;
+			$zakona++;
 		}
 
 		if ($sadrzaj) {
@@ -170,6 +175,7 @@
 				die "can't find nr in line: $_";
 			}
 			$naslov.=$_;
+			$naslov=~s/^\s*$nr\.*\s*//g;
 		}
 		
 	}
@@ -178,3 +184,4 @@
 }
 
 $dbh->do("vacuum") || die $dbh->errstr();
+print "Ukupno $brojeva brojeva NN, sa $zakona zakona...\n" if (! $opts{q});