From 62821a4217e42ff2529383b51cc64d1d8fef5f67 Mon Sep 17 00:00:00 2001 From: tonnesen Date: Fri, 5 Oct 2001 21:23:22 +0000 Subject: [PATCH] Removed duplicate viewmarc.pl from acqui.simple directory --- marc/viewmarc.pl | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/marc/viewmarc.pl b/marc/viewmarc.pl index d2754380cc..827868c000 100755 --- a/marc/viewmarc.pl +++ b/marc/viewmarc.pl @@ -6,6 +6,8 @@ # Add info on biblioitems and items already entered as you enter new ones # +my $starttime=gettime(); + use C4::Database; use CGI; use strict; @@ -29,7 +31,7 @@ print startmenu('catalogue'); my $Record_ID=$input->param('Record_ID'); -($Record_ID) || ($Record_ID=1); +($Record_ID) || ($Record_ID=24); my $tagnames=$input->param('tagnames'); my $subfieldnames=$tagnames; @@ -203,6 +205,12 @@ EOF print "
\n"; } +sub gettime { + my $t=`cat /proc/uptime`; + return (split(/\s+/, $t))[0]; +} + +print gettime()."
\n"; my $color1='#dddddd'; @@ -369,6 +377,9 @@ Add a new field: EOF +my $endtime=gettime(); +my $diff=$endtime-$starttime; +print "ELAPSED: $diff seconds.

\n"; print endmenu(); print endpage(); @@ -5645,6 +5656,10 @@ sub marcdefs { $fields->{'090'}->{'subfields'}->{"a"}->{'repeating'}=0; $fields->{'090'}->{'subfields'}->{"b"}->{'name'}="Dewey Subclass (NR)"; $fields->{'090'}->{'subfields'}->{"b"}->{'repeating'}=0; + $fields->{'090'}->{'subfields'}->{"c"}->{'name'}="biblionumber (NR)"; + $fields->{'090'}->{'subfields'}->{"c"}->{'repeating'}=0; + $fields->{'090'}->{'subfields'}->{"d"}->{'name'}="biblioitemnumber (NR)"; + $fields->{'090'}->{'subfields'}->{"d"}->{'repeating'}=0; $fields->{'091'}->{'name'}="MICROFILM SHELF LOCATION (AM) [OBSOLETE]"; $fields->{'091'}->{'repeating'}=1; $fields->{'091'}->{'firstindicator'}="Undefined"; -- 2.39.5