From 62436508e56f611fd4065673cb1217fa7318fa60 Mon Sep 17 00:00:00 2001 From: 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}=" " 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