From 6b3e5ce0dc9c6bff81ee2ada54ab6bb43507a824 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 9 Mar 2009 13:51:57 -0500 Subject: [PATCH] Correct perldoc Indentations misformatted for code blocks. Also updated reference to GetBranchesLoop. Signed-off-by: Galen Charlton --- C4/Branch.pm | 44 +++++++++++++++++++++++--------------------- 1 file changed, 23 insertions(+), 21 deletions(-) diff --git a/C4/Branch.pm b/C4/Branch.pm index 44da91d493..0f33491a98 100644 --- a/C4/Branch.pm +++ b/C4/Branch.pm @@ -64,33 +64,35 @@ The functions in this module deal with branches. =head2 GetBranches $branches = &GetBranches(); - returns informations about ALL branches. - Create a branch selector with the following code - IndependantBranches Insensitive... + + Returns informations about ALL branches, IndependantBranches Insensitive. GetBranchInfo() returns the same information without the problems of this function - (namespace collision, mainly). You should probably use that, and replace GetBranches() - with GetBranchInfo() where you see it in the code. + (namespace collision, mainly). + Create a branch selector with the following code. =head3 in PERL SCRIPT -my $branches = GetBranches; -my @branchloop; -foreach my $thisbranch (keys %$branches) { - my $selected = 1 if $thisbranch eq $branch; - my %row =(value => $thisbranch, - selected => $selected, - branchname => $branches->{$thisbranch}->{'branchname'}, - ); - push @branchloop, \%row; -} + my $branches = GetBranches; + my @branchloop; + foreach my $thisbranch (sort keys %$branches) { + my $selected = 1 if $thisbranch eq $branch; + my %row =(value => $thisbranch, + selected => $selected, + branchname => $branches->{$thisbranch}->{branchname}, + ); + push @branchloop, \%row; + } =head3 in TEMPLATE - + + + +=head4 Note that you often will want to just use GetBranchesLoop, for exactly the example above. =cut -- 2.39.5