Bugzilla – Attachment 71708 Details for
Bug 20185
Some scripts don't pass perl -wc
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 20185: Remove warnings from aqplan.pl
Bug-20185-Remove-warnings-from-aqplanpl.patch (text/plain), 2.02 KB, created by
Julian Maurice
on 2018-02-16 10:18:08 UTC
(
hide
)
Description:
Bug 20185: Remove warnings from aqplan.pl
Filename:
MIME Type:
Creator:
Julian Maurice
Created:
2018-02-16 10:18:08 UTC
Size:
2.02 KB
patch
obsolete
>From 2d72823d50f63d7e829a94e3ed6a74acc179d667 Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >Date: Mon, 12 Feb 2018 13:58:28 -0300 >Subject: [PATCH] Bug 20185: Remove warnings from aqplan.pl > >Signed-off-by: Mark Tompsett <mtompset@hotmail.com> >Signed-off-by: Julian Maurice <julian.maurice@biblibre.com> >--- > admin/aqplan.pl | 10 +++++----- > 1 file changed, 5 insertions(+), 5 deletions(-) > >diff --git a/admin/aqplan.pl b/admin/aqplan.pl >index ebad0426b5..fd3f2e6258 100755 >--- a/admin/aqplan.pl >+++ b/admin/aqplan.pl >@@ -36,7 +36,7 @@ use C4::Auth; > use C4::Debug; > use Koha::Acquisition::Currencies; > >-my $input = new CGI; >+our $input = new CGI; > #### $input > > my $dbh = C4::Context->dbh; >@@ -68,7 +68,7 @@ $template->param( period_button_only => 1 ) if $count == 0; > > # authcats_loop populates the YUI planning button > my $auth_cats_loop = GetBudgetAuthCats($budget_period_id); >-my $budget_period_id = $period->{'budget_period_id'}; >+$budget_period_id = $period->{'budget_period_id'}; > my $budget_period_startdate = $period->{'budget_period_startdate'}; > my $budget_period_enddate = $period->{'budget_period_enddate'}; > my $budget_period_locked = $period->{'budget_period_locked'}; >@@ -92,8 +92,8 @@ my $show_active = $input->param('show_active'); > my $show_actual = $input->param('show_actual'); > my $show_percent = $input->param('show_percent'); > my $output = $input->param("output"); >-my $basename = $input->param("basename"); >-my $del = $input->param("sep"); >+our $basename = $input->param("basename"); >+our $del = $input->param("sep"); > > my $show_mine = $input->param('show_mine') ; > >@@ -216,7 +216,7 @@ elsif ( $authcat eq 'MONTHS' && $budget_period_startdate && $budget_period_endda > > #calc number of months between > my $months = ( $Dy * 12 ) + $Dm; >- my $start_month = @start_date[1]; >+ my $start_month = $start_date[1]; > my $end_month = ( $Dy * 12 ) + $Dm; > > for my $mth ( 0 ... $months ) { >-- >2.14.2
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 20185
:
71484
|
71497
|
71561
|
71562
| 71708 |
71709