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