[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc rebuildnonmarc.pl,1.1,1.2
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/misc rebuildnonmarc.pl,1.1,1.2 |
Date: |
Mon, 24 Nov 2003 05:16:38 -0800 |
Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv16074/misc
Modified Files:
rebuildnonmarc.pl
Log Message:
fix for #380
Index: rebuildnonmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/rebuildnonmarc.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** rebuildnonmarc.pl 14 Oct 2003 09:45:29 -0000 1.1
--- rebuildnonmarc.pl 24 Nov 2003 13:16:36 -0000 1.2
***************
*** 10,14 ****
use C4::Context;
use C4::Biblio;
- use Time::HiRes qw(gettimeofday);
use Getopt::Long;
--- 10,13 ----
***************
*** 38,42 ****
my $dbh = C4::Context->dbh;
my $i=0;
! my $starttime = gettimeofday;
#1st of all, find item MARC tag.
my ($tagfield,$tagsubfield) =
&MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
--- 37,41 ----
my $dbh = C4::Context->dbh;
my $i=0;
! my $starttime = time();
#1st of all, find item MARC tag.
my ($tagfield,$tagsubfield) =
&MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
***************
*** 72,75 ****
}
# $dbh->do("unlock tables");
! my $timeneeded = gettimeofday - $starttime;
print "$i MARC record done in $timeneeded seconds\n";
--- 71,74 ----
}
# $dbh->do("unlock tables");
! my $timeneeded = time() - $starttime;
print "$i MARC record done in $timeneeded seconds\n";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc rebuildnonmarc.pl,1.1,1.2,
Paul POULAIN <=