X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=admin%2Fbranch_transfer_limits.pl;h=8c6f42e419c2985def3435d468517b5373ae52f1;hb=32d8abbb43729aedfe20d30a9acc21d4f7268ec9;hp=64d2a70ff553fc293071297c53ff8b8e6f737ca7;hpb=aaa0cdb9e82930b2d920ee02b71673e6e236b5f8;p=koha_gimpoz

diff --git a/admin/branch_transfer_limits.pl b/admin/branch_transfer_limits.pl
index 64d2a70ff5..8c6f42e419 100755
--- a/admin/branch_transfer_limits.pl
+++ b/admin/branch_transfer_limits.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 
 # Copyright 2000-2002 Katipo Communications
+# copyright 2010 BibLibre
 #
 # This file is part of Koha.
 #
@@ -57,6 +58,7 @@ my @branch_loop;
 for my $thisbranch (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) {
     my %row =(value => $thisbranch,
               branchname => $branches->{$thisbranch}->{'branchname'},
+              selected => $thisbranch eq $branchcode ? 1 : 0,
              );
     push @branch_loop, \%row;
 }
@@ -64,7 +66,7 @@ for my $thisbranch (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{b
 
 # Set the template language for the correct limit type
 my $limit_phrase = 'Collection Code';
-my $limitType = C4::Context->preference("BranchTransferLimitsType");
+my $limitType = C4::Context->preference("BranchTransferLimitsType") || "ccode";
 if ( $limitType eq 'itemtype' ) {
 	$limit_phrase = 'Item Type';
 }