From e46bf8e10256946708dc72972d36f4e2b7113a18 Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 24 Nov 2003 13:16:36 +0000 Subject: [PATCH] fix for #380 --- misc/rebuildnonmarc.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/misc/rebuildnonmarc.pl b/misc/rebuildnonmarc.pl index aac4d1af93..5c35c21eea 100755 --- a/misc/rebuildnonmarc.pl +++ b/misc/rebuildnonmarc.pl @@ -9,7 +9,6 @@ use MARC::Record; use MARC::Batch; use C4::Context; use C4::Biblio; -use Time::HiRes qw(gettimeofday); use Getopt::Long; my ( $input_marc_file, $number) = ('',0); @@ -37,7 +36,7 @@ die; my $dbh = C4::Context->dbh; my $i=0; -my $starttime = gettimeofday; +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"); @@ -71,5 +70,5 @@ while (my ($bibid)= $sth->fetchrow) { } } # $dbh->do("unlock tables"); -my $timeneeded = gettimeofday - $starttime; +my $timeneeded = time() - $starttime; print "$i MARC record done in $timeneeded seconds\n"; -- 2.39.5