[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;