Update of /cvsroot/koha/koha/marc In directory usw-pr-cvs1:/tmp/cvs-serv15600/koha/marc Modified Files: viewmarc.pl Log Message: Removed duplicate viewmarc.pl from acqui.simple directory Index: viewmarc.pl =================================================================== RCS file: /cvsroot/koha/koha/marc/viewmarc.pl,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -r1.1 -r1.2 *** viewmarc.pl 2001/06/25 20:15:44 1.1 --- viewmarc.pl 2001/10/05 21:23:22 1.2 *************** *** 7,10 **** --- 7,12 ---- # + my $starttime=gettime(); + use C4::Database; use CGI; *************** *** 30,34 **** my $Record_ID=$input->param('Record_ID'); ! ($Record_ID) || ($Record_ID=1); my $tagnames=$input->param('tagnames'); my $subfieldnames=$tagnames; --- 32,36 ---- my $Record_ID=$input->param('Record_ID'); ! ($Record_ID) || ($Record_ID=24); my $tagnames=$input->param('tagnames'); my $subfieldnames=$tagnames; *************** *** 204,207 **** --- 206,215 ---- } + sub gettime { + my $t=`cat /proc/uptime`; + return (split(/\s+/, $t))[0]; + } + + print gettime()."<br>\n"; *************** *** 370,373 **** --- 378,384 ---- </form> EOF + my $endtime=gettime(); + my $diff=$endtime-$starttime; + print "ELAPSED: $diff seconds.<p>\n"; print endmenu(); *************** *** 5646,5649 **** --- 5657,5664 ---- $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;