The drop-down lists of branches and letter templates
in the overdue notice/status triggers tool are now
sorted in ascending alphabetical order.
No documentation change.
---
tools/overduerules.pl | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index 668a69e..82a8ea3 100755
--- a/tools/overduerules.pl
+++ b/tools/overduerules.pl
@@ -121,7 +121,7 @@ if ($op eq 'save') {
}
my $branches = GetBranches();
my @branchloop;
-foreach my $thisbranch (keys %$branches) {
+foreach my $thisbranch (sort { $branches->{$a}->{branchname} cmp
$branches->{$b}->{branchname} } keys %$branches) {
my $selected = 1 if $thisbranch eq $branch;
my %row =(value => $thisbranch,
selected => $selected,
@@ -155,7 +155,7 @@ while (my $data=$sth->fetchrow_hashref){
$row{"debarred$i"}=$temphash{$data->{'categorycode'}}->{"debarred$i"};
if ($countletters){
my @letterloop;
- foreach my $thisletter (keys %$letters) {
+ foreach my $thisletter (sort { $letters->{$a} cmp
$letters->{$b} } keys %$letters) {
my $selected = 1 if $thisletter eq
$temphash{$data->{'categorycode'}}->{"letter$i"};
my %letterrow =(value => $thisletter,
selected => $selected,
@@ -177,7 +177,7 @@ while (my $data=$sth->fetchrow_hashref){
for (my $i=1;$i<=3;$i++){
if ($countletters){
my @letterloop;
- foreach my $thisletter (keys %$letters) {
+ foreach my $thisletter (sort { $letters->{$a} cmp
$letters->{$b} } keys %$letters) {
my $selected = 1 if $thisletter eq $dat->{"letter$i"};
my %letterrow =(value => $thisletter,
selected => $selected,
--
1.5.5.GIT
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
