projects
/
srvgit
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 17600: Standardize our EXPORT_OK
[srvgit]
/
Koha
/
Patron
/
Discharge.pm
diff --git
a/Koha/Patron/Discharge.pm
b/Koha/Patron/Discharge.pm
index
4cd596d
..
8ad1696
100644
(file)
--- a/
Koha/Patron/Discharge.pm
+++ b/
Koha/Patron/Discharge.pm
@@
-2,11
+2,11
@@
package Koha::Patron::Discharge;
use Modern::Perl;
use CGI;
use Modern::Perl;
use CGI;
-use File::Temp qw(
:POSIX
);
-use Carp;
+use File::Temp qw(
tmpnam
);
+use Carp
qw( carp )
;
use C4::Templates qw ( gettemplate );
use C4::Templates qw ( gettemplate );
-use C4::Letters qw
( GetPreparedLetter );
+use C4::Letters qw( GetPreparedLetter );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
@@
-118,7
+118,7
@@
sub generate_as_pdf {
$letter->{'title'} =~ s/<<today>>/$today/g;
$letter->{'content'} =~ s/<<today>>/$today/g;
$letter->{'title'} =~ s/<<today>>/$today/g;
$letter->{'content'} =~ s/<<today>>/$today/g;
- my $tmpl = C4::Templates::gettemplate('batch/print-notices.tt', 'intranet',
new CGI
);
+ my $tmpl = C4::Templates::gettemplate('batch/print-notices.tt', 'intranet',
CGI->new
);
$tmpl->param(
stylesheet => C4::Context->preference("NoticeCSS"),
today => $today,
$tmpl->param(
stylesheet => C4::Context->preference("NoticeCSS"),
today => $today,