branch transfer limits

[koha.git] / admin / branch_transfer_limits.pl

diff --git a/admin/branch_transfer_limits.pl b/admin/branch_transfer_limits.pl
index 1b89efb..64d2a70 100755 (executable)
--- a/admin/branch_transfer_limits.pl
+++ b/admin/branch_transfer_limits.pl
@@ -39,8 +39,16 @@ my ($template, $loggedinuser, $cookie)
                             });
 
 my $dbh = C4::Context->dbh;
+my $branchcode;
+if((!defined($input->param('branchcode'))) & mybranch() ne '')
+{
+       $branchcode = mybranch();
+}
+else
+{
+       $branchcode = $input->param('branchcode');
+}
 
-my $branchcode = $input->param('branchcode');
 my $branchname = GetBranchName($branchcode);
 
 # Getting the branches for user selection