Bug 7317: Add partner_code checks to abot page

[koha-equinox.git] / about.pl

diff --git a/about.pl b/about.pl
index a7daa37..5e48173 100755 (executable)
--- a/about.pl
+++ b/about.pl
@@ -35,6 +35,7 @@ use C4::Installer;
 
 use Koha;
 use Koha::Acquisition::Currencies;
+use Koha::Patron::Categories;
 use Koha::Patrons;
 use Koha::Caches;
 use Koha::Config::SysPrefs;
@@ -261,16 +262,33 @@ if ( !defined C4::Context->config('use_zebra_facets') ) {
     }
 }
 
+# ILL module checks
 if ( C4::Context->preference('ILLModule') ) {
     my $warnILLConfiguration = 0;
+    my $ill_config_from_file = C4::Context->config("interlibrary_loans");
+    my $ill_config = Koha::Illrequest::Config->new;
+
     my $available_ill_backends =
-      ( scalar @{ Koha::Illrequest::Config->new->available_backends } > 0 );
+      ( scalar @{ $ill_config->available_backends } > 0 );
 
+    # Check backends
     if ( !$available_ill_backends ) {
         $template->param( no_ill_backends => 1 );
         $warnILLConfiguration = 1;
     }
 
+    # Check partner_code
+    if ( !Koha::Patron::Categories->find($ill_config->partner_code) ) {
+        $template->param( ill_partner_code_doesnt_exist => $ill_config->partner_code );
+        $warnILLConfiguration = 1;
+    }
+
+    if ( !$ill_config_from_file->{partner_code} ) {
+        # partner code not defined
+        $template->param( ill_partner_code_not_defined => 1 );
+        $warnILLConfiguration = 1;
+    }
+
     $template->param( warnILLConfiguration => $warnILLConfiguration );
 }