gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 2505 enabling warnings

This commit is contained in:
Chris Cormack 2009-12-12 22:50:02 +13:00 committed by Henri-Damien LAURENT
parent d51332698b
commit 231ea7c341
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
about.pl
View File

@ -16,7 +16,7 @@
# Suite 330, Boston, MA 02111-1307 USA
use strict;
use warnings;
use C4::Output; # contains gettemplate
use C4::Auth;
use C4::Context;

14
acqui/acqui-home.pl
View File

@ -41,6 +41,7 @@ thus, it can be REJECTED, ACCEPTED, ORDERED, ASKED, AVAIBLE
=cut
use strict;
use warnings;
use Number::Format;
use CGI;
@ -146,14 +147,19 @@ foreach my $result (@results) {
$result->{'budget_branchname'} = GetBranchName( $result->{'budget_branchcode'} );
my $member = GetMember( $result->{'budget_owner_id'} );
my $member_full = $member->{'firstname'} . ' ' . $member->{'surname'};
my $member_full = $member->{'firstname'} . ' ' . $member->{'surname'} if $member;
$result->{'budget_owner'} = $member_full;
$result->{'budget_avail'} = $result->{'budget_amount'} - $result->{'budget_spent'};
if ($result->{'budget_spent'}){
$result->{'budget_avail'} = $result->{'budget_amount'} - $result->{'budget_spent'};
}
else {
$result->{'budget_avail'} = $result->{'budget_amount'};
}
$result->{'budget_spent'} = GetBudgetSpent( $result->{'budget_id'} );
$total += $result->{'budget_amount'};
$totspent += $result->{'budget_spent'};
$totspent += $result->{'budget_spent'} if $result->{'budget_spent'};
$totavail += $result->{'budget_avail'};
$result->{'budget_amount'} = $num->format_price( $result->{'budget_amount'} );
@ -164,7 +170,7 @@ foreach my $result (@results) {
# $result->{'budget_spent_percent'} = sprintf( "%00d", $spent_percent );
my $borrower = &GetMember( $result->{budget_owner_id} );
$result->{budget_owner_name} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'};
$result->{budget_owner_name} = $borrower->{'firstname'} . ' ' . $borrower->{'surname'} if $borrower;
push( @loop_budget, { %{$result}, toggle => $toggle++ % 2, } );
}

2
mainpage.pl
View File

@ -17,7 +17,7 @@
#
use strict;
use warnings;
use CGI;
use C4::Output;
use C4::Auth;