[Koha-cvs] CVS: koha/misc rebuildthesaurus.pl,1.1.2.2,1.1.2.3

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11252/misc

Modified Files:
      Tag: rel_2_0
	rebuildthesaurus.pl 
Log Message:
changes in rebuildthesaurus calls.

Index: rebuildthesaurus.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/Attic/rebuildthesaurus.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** rebuildthesaurus.pl	26 Jan 2004 10:40:31 -0000	1.1.2.2
--- rebuildthesaurus.pl	10 Feb 2004 13:20:30 -0000	1.1.2.3
***************
*** 45,49 ****
  
  my $dbh = C4::Context->dbh;
! my @subfields = $subfields =~ /(\S)/g;
  if ($delete) {
  	print "deleting thesaurus\n";
--- 45,49 ----
  
  my $dbh = C4::Context->dbh;
! my @subf = $subfields =~ /(##\d\d\d##.)/g;
  if ($delete) {
  	print "deleting thesaurus\n";
***************
*** 54,64 ****
  	print "TESTING MODE ONLY\n    DOING NOTHING\n===============\n";
  }
  
  my $starttime = gettimeofday;
  my $sth = $dbh->prepare("select bibid from marc_biblio");
  $sth->execute;
! my $i;
  while (my ($bibid) = $sth->fetchrow) {
  	my $record = MARCgetbiblio($dbh,$bibid);
  #	warn $record->as_formatted;
  	my $resultstring = $subfields;
--- 54,69 ----
  	print "TESTING MODE ONLY\n    DOING NOTHING\n===============\n";
  }
+ $|=1; # flushes output
  
  my $starttime = gettimeofday;
  my $sth = $dbh->prepare("select bibid from marc_biblio");
  $sth->execute;
! my $i=1;
  while (my ($bibid) = $sth->fetchrow) {
  	my $record = MARCgetbiblio($dbh,$bibid);
+ 	print ".";
+ 	my $timeneeded = gettimeofday - $starttime;
+ 	print "$i in $timeneeded s\n" unless ($i % 50);
+ 
  #	warn $record->as_formatted;
  	my $resultstring = $subfields;
***************
*** 70,83 ****
  			$resultstring =~ s/##$fieldvalue##$pair->[0]/$pair->[1]/g;
  		}
  		# deals empty subfields
! 		foreach my $empty (@subfields) {
! 			$resultstring =~ s/\$$empty//g;
  		}
- 		warn "RRR $resultstring";
- 		if ($resultstring ne $subfields && $resultstring &&
- 		&newauthority($dbh,$category,$resultstring);
  		$i++;
- 	}
  }
  my $timeneeded = gettimeofday - $starttime;
! print "$i entries done in $timeneeded seconds\n";
--- 75,88 ----
  			$resultstring =~ s/##$fieldvalue##$pair->[0]/$pair->[1]/g;
  		}
+ 	}
  		# deals empty subfields
! 		foreach my $empty (@subf) {
! 			$resultstring =~ s/$empty//g;
! 		}
! 		if ($resultstring ne $subfields && $resultstring) {
! 			&newauthority($dbh,$category,$resultstring);
  		}
  		$i++;
  }
  my $timeneeded = gettimeofday - $starttime;
! print "$i entries done in $timeneeded seconds (".($i/$timeneeded)." per second)\n";