[Koha-devel] CVS: koha/marc viewmarc.pl,1.1,1.2

[Steve Tonnesen]

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;