[Koha-cvs] CVS: koha/misc build_marc_Tword.pl,1.2,1.3

[Paul POULAIN]

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

Modified Files:
	build_marc_Tword.pl 
Log Message:
new version, doing tag by tag. Should be slower, but requires a lot less memory

Index: build_marc_Tword.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/build_marc_Tword.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** build_marc_Tword.pl	1 Jun 2005 18:47:38 -0000	1.2
--- build_marc_Tword.pl	1 Jun 2005 18:55:08 -0000	1.3
***************
*** 55,59 ****
  
  # parse every line
! my $query="SELECT biblio.biblionumber,tag,subfieldcode,subfieldvalue,biblio.title FROM marc_subfield_table left join marc_biblio on marc_biblio.bibid=marc_subfield_table.bibid left join biblio on marc_biblio.biblionumber=biblio.biblionumber and tag=?";
  my $sth=$dbh->prepare($query);
  
--- 55,59 ----
  
  # parse every line
! my $query="SELECT biblio.biblionumber,tag,subfieldcode,subfieldvalue,biblio.title FROM marc_subfield_table left join marc_biblio on marc_biblio.bibid=marc_subfield_table.bibid left join biblio on marc_biblio.biblionumber=biblio.biblionumber where tag=?";
  my $sth=$dbh->prepare($query);
  
***************
*** 95,99 ****
  	# 2nd version : faster (about 100 times !), bug maybe too much RAM consumming...
  	my %largehash;
! 	print "READING\n";
  	while (my ($biblionumber, $tag, $subfieldcode, $subfieldvalue, $title) = $sth->fetchrow) {
  		next unless $subfieldvalue;
--- 95,101 ----
  	# 2nd version : faster (about 100 times !), bug maybe too much RAM consumming...
  	my %largehash;
! # 	print "READING\n";
! 	$timeneeded = gettimeofday - $starttime unless ($i % 30000);
! 	print "READING $timeneeded s\n";
  	while (my ($biblionumber, $tag, $subfieldcode, $subfieldvalue, $title) = $sth->fetchrow) {
  		next unless $subfieldvalue;