Allow GetBranchesLoop to intuit IndependantBranches if not specified in argument.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>

diff --git a/C4/Branch.pm b/C4/Branch.pm
index cd81368..9ec155a 100644 (file)
--- a/C4/Branch.pm
+++ b/C4/Branch.pm
@@ -133,9 +133,9 @@ sub GetBranches {
     return ( \%branches );
 }
 
-sub GetBranchesLoop ($$) {  # since this is what most pages want anyway
+sub GetBranchesLoop ($;$) {  # since this is what most pages want anyway
     my $branch   = shift or return undef;
-    my $onlymine = shift || 0;
+    my $onlymine = shift || C4::Context->preference("IndependantBranches");
     my $branches = GetBranches($onlymine);
     my @loop;
     foreach (sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches) {