From 944c78191a786d3d91e4ed9bcda325b6913f6cc9 Mon Sep 17 00:00:00 2001
From: amillar <amillar>
Date: Thu, 6 Jun 2002 19:18:01 +0000
Subject: [PATCH] minor comments and cosmetics

---
 acqui.simple/marcimport.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/acqui.simple/marcimport.pl b/acqui.simple/marcimport.pl
index 402cfcd8fe..9171cba8d9 100755
--- a/acqui.simple/marcimport.pl
+++ b/acqui.simple/marcimport.pl
@@ -759,8 +759,8 @@ sub extractmarcfields {
 
     return $bib;
 
-#---------------------------------
 } # sub extractmarcfields
+#---------------------------------
 
 sub z3950menu {
     use strict;
@@ -904,6 +904,7 @@ print << "EOF";
 EOF
     print "</td></tr></table>\n";
 } # sub z3950menu
+#---------------------------------
 
 sub uploadmarc {
     use strict;
@@ -1164,7 +1165,6 @@ sub AcceptBiblioitem {
 	<p>
 EOF
     } else {
-	use strict;
 
 	# It doesn't exist; add it.
 
@@ -1530,6 +1530,7 @@ sub getoraddbiblio {
 #---------------------------------------
 sub addz3950queue {
     use strict;
+    # input
     my (
 	$dbh,		# DBI handle
 	$query,		# value to look up
@@ -1563,7 +1564,7 @@ sub addz3950queue {
 	my $serverlist='';
 	foreach (@serverlist) {
 	    $serverlist.="$_ ";
-    }
+    	} # foreach
 	chop $serverlist;
 
 	# Don't allow reinsertion of the same request number.
@@ -1606,7 +1607,7 @@ sub checkvalidisbn {
 	    }
 	} else {
 	    $isbngood=0;
-}
+	} # if length good
 
 	return $isbngood;
 
-- 
2.20.1