Enabling listing of category codes when "new patron" button is displayed.

[koha_fer] / circ / branchtransfers.pl

diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl
index 36f4da3..92b139c 100755 (executable)
--- a/circ/branchtransfers.pl
+++ b/circ/branchtransfers.pl
@@ -59,7 +59,7 @@ my $user;
         query           => $query,
         type            => "intranet",
         authnotrequired => 0,
-        flagsrequired   => { circulate => 1 },
+        flagsrequired   => { circulate => "circulate_remaining_permissions" },
     }
 );
 
@@ -202,6 +202,15 @@ foreach my $code ( keys %$messages ) {
         $err{errbadcode} = 1;
     }
 
+    if ( $code eq "NotAllowed" ) {
+    warn $messages->{'NotAllowed'};
+    warn  $branches->{ $messages->{'NotAllowed'} }->{'branchname'};
+        $err{errnotallowed} =  1;
+        my ( $tbr, $itemtype ) = split( /::/,  $messages->{'NotAllowed'} );
+        $err{tbr} = $branches->{ $tbr }->{'branchname'};
+        $err{itemtype} = $itemtype;
+    }
+    
     if ( $code eq 'IsPermanent' ) {
         $err{errispermanent} = 1;
         $err{msg} = $branches->{ $messages->{'IsPermanent'} }->{'branchname'};