From 62436508e56f611fd4065673cb1217fa7318fa60 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 22 Oct 2002 15:51:25 +0000
Subject: [PATCH] small fixes

---
 MARCdetail.pl  |  2 --
 loadmodules.pl | 20 ++++++++++----------
 2 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/MARCdetail.pl b/MARCdetail.pl
index 50c457fb52..baf3415447 100755
--- a/MARCdetail.pl
+++ b/MARCdetail.pl
@@ -114,7 +114,6 @@ foreach my $field (@fields) {
 	}
 }
 #fill big_row with missing datas
-#warn "loop 2";
 foreach my $subfield_code  (keys(%witness)) {
 	for (my $i=0;$i<=$#big_array;$i++) {
 		$big_array[$i]{$subfield_code}="&nbsp;" unless ($big_array[$i]{$subfield_code});
@@ -122,7 +121,6 @@ foreach my $subfield_code  (keys(%witness)) {
 	}
 }
 # now, construct template !
-#warn "loop 3";
 my @item_value_loop;
 my @header_value_loop;
 for (my $i=0;$i<=$#big_array; $i++) {
diff --git a/loadmodules.pl b/loadmodules.pl
index d70560b2c6..0eb085c1a9 100755
--- a/loadmodules.pl
+++ b/loadmodules.pl
@@ -29,25 +29,25 @@ my $input=new CGI;
 my $module=$input->param('module');
 
 SWITCH: {
-    if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
-    if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
+	if ($module eq 'acquisitions') { acquisitions(); last SWITCH; }
+	if ($module eq 'somethingelse') { somethingelse(); last SWITCH; }
 }
 
 
 sub acquisitions {
-    my $aq_type = C4::Context->preference("acquisitions") || "normal";
+	my $aq_type = C4::Context->preference("acquisitions") || "normal";
 		# Get the acquisition preference. This should be:
 		#	"simple" - minimal information required
 		#	"normal" - full information required
 		#	other - Same as "normal"
 
-    if ($aq_type eq 'simple') {
-	print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
-    } elsif ($aq_type eq 'normal') {
-	print $input ->redirect("/acquisitions");
-    } else {
-	print $input ->redirect("/acquisitions");
-    }
+	if ($aq_type eq 'simple') {
+		print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
+	} elsif ($aq_type eq 'normal') {
+		print $input ->redirect("/acquisitions");
+	} else {
+		print $input ->redirect("/acquisitions");
+	}
 }
 
 
-- 
2.39.5