[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.13,1.6.2.14

[Alan Millar]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv19200

Modified Files:
      Tag: rel-1-2
	marcimport.pl 
Log Message:
minor comments and cosmetics

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.13
retrieving revision 1.6.2.14
diff -C2 -r1.6.2.13 -r1.6.2.14
*** marcimport.pl	6 Jun 2002 07:32:20 -0000	1.6.2.13
--- marcimport.pl	6 Jun 2002 19:18:01 -0000	1.6.2.14
***************
*** 760,765 ****
      return $bib;
  
- #---------------------------------
  } # sub extractmarcfields
  
  sub z3950menu {
--- 760,765 ----
      return $bib;
  
  } # sub extractmarcfields
+ #---------------------------------
  
  sub z3950menu {
***************
*** 905,908 ****
--- 905,909 ----
      print "</td></tr></table>\n";
  } # sub z3950menu
+ #---------------------------------
  
  sub uploadmarc {
***************
*** 1165,1169 ****
  EOF
      } else {
- 	use strict;
  
  	# It doesn't exist; add it.
--- 1166,1169 ----
***************
*** 1531,1534 ****
--- 1531,1535 ----
  sub addz3950queue {
      use strict;
+     # input
      my (
  	$dbh,		# DBI handle
***************
*** 1564,1568 ****
  	foreach (@serverlist) {
  	    $serverlist.="$_ ";
!     }
  	chop $serverlist;
  
--- 1565,1569 ----
  	foreach (@serverlist) {
  	    $serverlist.="$_ ";
!     	} # foreach
  	chop $serverlist;
  
***************
*** 1607,1611 ****
  	} else {
  	    $isbngood=0;
! }
  
  	return $isbngood;
--- 1608,1612 ----
  	} else {
  	    $isbngood=0;
! 	} # if length good
  
  	return $isbngood;