[Koha-cvs] CVS: koha/misc bulkmarcimport.pl,1.7,1.8 rebuildnonmarc.pl,1.2,1.3

[Paul POULAIN]

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

Modified Files:
        bulkmarcimport.pl rebuildnonmarc.pl 
Log Message:
adding frameworkcode to API in some subs

Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/bulkmarcimport.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** bulkmarcimport.pl   22 Dec 2003 19:16:58 -0000      1.7
--- bulkmarcimport.pl   13 Aug 2004 16:37:26 -0000      1.8
***************
*** 75,79 ****
  my $i=0;
  #1st of all, find item MARC tag.
! my ($tagfield,$tagsubfield) = 
&MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
  # $dbh->do("lock tables biblio write, biblioitems write, items write, 
marc_biblio write, marc_subfield_table write, marc_blob_subfield write, 
marc_word write, marc_subfield_structure write, stopwords write");
  while ( my $record = $batch->next() ) {
--- 75,79 ----
  my $i=0;
  #1st of all, find item MARC tag.
! my ($tagfield,$tagsubfield) = 
&MARCfind_marc_from_kohafield($dbh,"items.itemnumber",'');
  # $dbh->do("lock tables biblio write, biblioitems write, items write, 
marc_biblio write, marc_subfield_table write, marc_blob_subfield write, 
marc_word write, marc_subfield_structure write, stopwords write");
  while ( my $record = $batch->next() ) {
***************
*** 131,135 ****
        # now, create biblio and items with NEWnewXX call.
        unless ($test_parameter) {
!               my ($bibid,$oldbibnum,$oldbibitemnum) = 
NEWnewbiblio($dbh,$newRecord);
                warn "ADDED biblio NB $bibid in DB\n" if $verbose;
                for (my $i=0;$i<=$#items;$i++) {
--- 131,135 ----
        # now, create biblio and items with NEWnewXX call.
        unless ($test_parameter) {
!               my ($bibid,$oldbibnum,$oldbibitemnum) = 
NEWnewbiblio($dbh,$newRecord,'');
                warn "ADDED biblio NB $bibid in DB\n" if $verbose;
                for (my $i=0;$i<=$#items;$i++) {

Index: rebuildnonmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/rebuildnonmarc.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** rebuildnonmarc.pl   24 Nov 2003 13:16:36 -0000      1.2
--- rebuildnonmarc.pl   13 Aug 2004 16:37:26 -0000      1.3
***************
*** 39,43 ****
  my $starttime = time();
  #1st of all, find item MARC tag.
! my ($tagfield,$tagsubfield) = 
&MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
  # $dbh->do("lock tables biblio write, biblioitems write, items write, 
marc_biblio write, marc_subfield_table write, marc_blob_subfield write, 
marc_word write, marc_subfield_structure write, stopwords write");
  my $sth = $dbh->prepare("select bibid from marc_biblio");
--- 39,43 ----
  my $starttime = time();
  #1st of all, find item MARC tag.
! my ($tagfield,$tagsubfield) = 
&MARCfind_marc_from_kohafield($dbh,"items.itemnumber",'');
  # $dbh->do("lock tables biblio write, biblioitems write, items write, 
marc_biblio write, marc_subfield_table write, marc_blob_subfield write, 
marc_word write, marc_subfield_structure write, stopwords write");
  my $sth = $dbh->prepare("select bibid from marc_biblio");