}
# Koha modules used
-# use MARC::File::USMARC;
use MARC::Record;
-use MARC::Batch;
use C4::Context;
use C4::Biblio;
use Time::HiRes qw(gettimeofday);
my $starttime = time();
$|=1; # flushes output
-my $starttime = gettimeofday;
+$starttime = gettimeofday;
#1st of all, find item MARC tag.
my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.itemnumber",'');
my ($dbh,$record,$biblionumber,$frameworkcode) =@_;
$frameworkcode="" unless $frameworkcode;
my $oldbiblio = TransformMarcToKoha($dbh,$record,$frameworkcode);
- C4::Biblio::_koha_modify_biblio( $dbh, $oldbiblio );
+ C4::Biblio::_koha_modify_biblio( $dbh, $oldbiblio, $frameworkcode );
C4::Biblio::_koha_modify_biblioitem_nonmarc( $dbh, $oldbiblio );
return 1;
}