@@ -, +, @@ C4/Branch.pm --- C4/Branch.pm | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) --- a/C4/Branch.pm +++ a/C4/Branch.pm @@ -154,7 +154,7 @@ sub mybranch { return C4::Context->userenv->{branch} || ''; } -sub GetBranchesLoop (;$$) { # since this is what most pages want anyway +sub GetBranchesLoop { # since this is what most pages want anyway my $branch = @_ ? shift : mybranch(); # optional first argument is branchcode of "my branch", if preselection is wanted. my $onlymine = @_ ? shift : onlymine(); my $branches = GetBranches($onlymine); @@ -372,7 +372,7 @@ the categories were already here, and minimally used. =cut #TODO manage category types. rename possibly to 'agency domains' ? as borrowergroups are called categories. -sub GetCategoryTypes() { +sub GetCategoryTypes { return ( 'searchdomain','properties'); } @@ -382,7 +382,7 @@ $branch = GetBranch( $query, $branches ); =cut -sub GetBranch ($$) { +sub GetBranch { my ( $query, $branches ) = @_; # get branch for this query from branches my $branch = $query->param('branch'); my %cookie = $query->cookie('userenv'); @@ -415,7 +415,7 @@ Returns a href: keys %$branches eq (branchcode,branchname) . =cut -sub GetBranchesInCategory($) { +sub GetBranchesInCategory { my ($categorycode) = @_; my @branches; my $dbh = C4::Context->dbh(); --