missing Marc_Search index on marc_word

[koha.git] / loadmodules.pl

diff --git a/loadmodules.pl b/loadmodules.pl
index 59e8731..d87da09 100755 (executable)
--- a/loadmodules.pl
+++ b/loadmodules.pl
@@ -39,27 +39,22 @@ sub acquisitions {
        my $aq_type = $input->param('acquisitions');
        $aq_type = C4::Context->preference("acquisitions") || "normal" unless $aq_type;
        my $marc_bool =$input->param('MARC');
-       $marc_bool = C4::Context->preference("MARC") ||"OFF" unless $marc_bool;
-
+       $marc_bool = C4::Context->boolean_preference('marc') || 0 unless $marc_bool;
        # Get the acquisition preference. This should be:
        #       "simple" - minimal information required
        #       "normal" - full information required
        #       other - Same as "normal"
 
        if ($aq_type eq 'simple') {
-               if ($marc_bool eq "ON") {
                        print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
-               } else {
-                       print $input->redirect("/cgi-bin/koha/acqui.simple/addbiblio-nomarc.pl");
-               }
        } else {
                print $input ->redirect("/cgi-bin/koha/acqui/acqui-home.pl");
        }
 }
 
 sub addbiblio {
-       my $marc_bool = C4::Context->preference("MARC") ||"OFF";
-               if ($marc_bool eq "ON") {
+       my $marc_bool = C4::Context->boolean_preference("MARC") || 0;
+               if ($marc_bool eq "1") {
                        print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
                } else {
                        print $input->redirect("/cgi-bin/koha/acqui.simple/addbiblio-nomarc.pl");