[Koha-cvs] CVS: koha/misc rebuildnonmarc.pl,1.1,1.2

[Paul POULAIN]

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