X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=loadmodules.pl;h=0eb085c1a92b1fa5ddf4288ed5838e788e2aade7;hb=04d4635a52a89e681fd6b7af097906300df5a90d;hp=7d36887123c7d5505adfd60309234d762ec91af9;hpb=cc1d55c13691748308d38a145fc4309a8ce6b5cf;p=koha.git diff --git a/loadmodules.pl b/loadmodules.pl index 7d36887123..0eb085c1a9 100755 --- a/loadmodules.pl +++ b/loadmodules.pl @@ -23,34 +23,31 @@ # Suite 330, Boston, MA 02111-1307 USA use C4::Context; -use C4::Acquisitions; -use C4::Biblio; -use C4::Search; use CGI; 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"); + } }