Attachment 44248 Details for Bug 14388 – Bug 14388: Funds should be sorted by budget_code

[patch] Bug 14388: Funds should be sorted by budget_code

Bug-14388-Funds-should-be-sorted-by-budgetcode.patch (text/plain), 3.26 KB, created by Nicole C. Engard on 2015-10-30 18:42:16 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Nicole C. Engard

Created: 2015-10-30 18:42:16 UTC

Size: 3.26 KB

patch

obsolete

>From 6e359fb6816455936e0a500f77ef2410b22a52d8 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@koha-community.org>
>Date: Thu, 2 Jul 2015 16:42:16 +0100
>Subject: [PATCH] Bug 14388: Funds should be sorted by budget_code
>
>Before this patch, the funds were sorted by budget_id, which does not
>make any sense.
>
>This patch adds a sort by budget_code on the fund list (acqui/acqui-home.pl and
>admin/aqbudgets.pl)
>
>Test plan:
>On both pages (acqui/acqui-home.pl and admin/aqbudgets.pl) confirm that
>the funds are now sorted by fund code (DB column budget_code)
>
>Signed-off-by: Nicole Engard <nengard@bywatersolutions.com>
>---
> C4/Budgets.pm            |    4 ++--
> t/db_dependent/Budgets.t |   22 +++++++++++++---------
> 2 files changed, 15 insertions(+), 11 deletions(-)
>
>diff --git a/C4/Budgets.pm b/C4/Budgets.pm
>index f2f376a..6d8bf21 100644
>--- a/C4/Budgets.pm
>+++ b/C4/Budgets.pm
>@@ -529,8 +529,8 @@ sub GetBudgetHierarchy {
> 
>     # link child to parent
>     my @first_parents;
>-    foreach ( sort keys %links ) {
>-        my $child = $links{$_};
>+    foreach my $budget ( sort { $a->{budget_code} cmp $b->{budget_code} } values %links ) {
>+        my $child = $links{$budget->{budget_id}};
>         if ( $child->{'budget_parent_id'} ) {
>             my $parent = $links{ $child->{'budget_parent_id'} };
>             if ($parent) {
>diff --git a/t/db_dependent/Budgets.t b/t/db_dependent/Budgets.t
>index 5147002..c461e34 100755
>--- a/t/db_dependent/Budgets.t
>+++ b/t/db_dependent/Budgets.t
>@@ -1,5 +1,5 @@
> use Modern::Perl;
>-use Test::More tests => 120;
>+use Test::More tests => 122;
> 
> BEGIN {
>     use_ok('C4::Budgets')
>@@ -228,22 +228,22 @@ my $budget_id2 = AddBudget(
>         budget_amount    => $budget_2_total,
>     }
> );
>-my $budget_id11 = AddBudget(
>+my $budget_id12 = AddBudget(
>     {
>-        budget_code      => 'budget_11',
>-        budget_name      => 'budget_11',
>+        budget_code      => 'budget_12',
>+        budget_name      => 'budget_12',
>         budget_period_id => $budget_period_id,
>         budget_parent_id => $budget_id1,
>-        budget_amount    => $budget_11_total,
>+        budget_amount    => $budget_12_total,
>     }
> );
>-my $budget_id12 = AddBudget(
>+my $budget_id11 = AddBudget(
>     {
>-        budget_code      => 'budget_12',
>-        budget_name      => 'budget_12',
>+        budget_code      => 'budget_11',
>+        budget_name      => 'budget_11',
>         budget_period_id => $budget_period_id,
>         budget_parent_id => $budget_id1,
>-        budget_amount    => $budget_12_total,
>+        budget_amount    => $budget_11_total,
>     }
> );
> my $budget_id111 = AddBudget(
>@@ -427,6 +427,10 @@ $budget_period_id_cloned = C4::Budgets::CloneBudgetPeriod(
> );
> 
> $budget_hierarchy        = GetBudgetHierarchy($budget_period_id);
>+is( $budget_hierarchy->[0]->{children}->[0]->{budget_name}, 'budget_11', 'GetBudgetHierarchy should return budgets ordered by name, first child is budget_11' );
>+is( $budget_hierarchy->[0]->{children}->[1]->{budget_name}, 'budget_12', 'GetBudgetHierarchy should return budgets ordered by name, second child is budget_12' );
>+
>+$budget_hierarchy        = GetBudgetHierarchy($budget_period_id);
> $budget_hierarchy_cloned = GetBudgetHierarchy($budget_period_id_cloned);
> 
> is( scalar(@$budget_hierarchy_cloned), scalar(@$budget_hierarchy),
>-- 
>1.7.10.4

Actions: View | Diff | Splinter Review

Attachments on bug 14388: 40765 | 40855 | 44248 | 44538 | 44624