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