From 3e282ff91b4c01fd027b7c8c5f86d24869cbe20c Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 30 Dec 2011 10:24:31 +0100 Subject: [PATCH] Bug 5347: Follow up - Fix warnings, check/uncheck all and makes error message translatable This patch fixes some minor problems found in late order management: 1) Silences 2 warns in Letters.p After patch is applied no more warns should show up in the logs. 2) Fixes check/uncheck al When limiting on one vendor the checkbox in the last header column was doing nothing. I changed the checkbox to 2 links 'check all' and 'uncheck all' as it's done in other templates. 3) Email has been sent The message was hardcoded into the lateorders.pl file and not translatable. I moved it to the template and changed the wording slightly. Note: The error message 'The bookseller has no email' comes from Letters.pm. I didn't change that, because I was not sure where it is used. The error message as is can not be translated and should be moved into the templates too. Signed-off-by: Jonathan Druart Signed-off-by: Paul Poulain --- C4/Letters.pm | 4 ++-- acqui/lateorders.pl | 2 +- .../intranet-tmpl/prog/en/modules/acqui/lateorders.tt | 11 +++++++---- 3 files changed, 10 insertions(+), 7 deletions(-) diff --git a/C4/Letters.pm b/C4/Letters.pm index 5cde41d867..5e3089bda5 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -393,7 +393,7 @@ sub SendAlerts { 'Content-Type' => 'text/plain; charset="utf8"', ); sendmail(%mail) or carp $Mail::Sendmail::error; - warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}"; + warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}" if $debug; if ( C4::Context->preference("LetterLog") ) { logaction( "ACQUISITION", "Send Acquisition claim letter", "", "order list : " . join( ",", @$externalid ) . "\n$innerletter->{title}\n$innerletter->{content}" ) if $type eq 'claimacquisition'; logaction( "ACQUISITION", "CLAIM ISSUE", undef, "To=" . $mail{To} . " Title=" . $innerletter->{title} . " Content=" . $innerletter->{content} ) if $type eq 'claimissues'; @@ -402,7 +402,7 @@ sub SendAlerts { die "This bookseller has no email\n"; } - warn "sending to From $userenv->{emailaddress} subj $innerletter->{title} Mess $innerletter->{content}"; + warn "sending to From $userenv->{emailaddress} subj $innerletter->{title} Mess $innerletter->{content}" if $debug; } # send an "account details" notice to a newly created user diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl index 2482ffb88f..998899e620 100755 --- a/acqui/lateorders.pl +++ b/acqui/lateorders.pl @@ -85,7 +85,7 @@ if ($op and $op eq "send_alert"){ if ( $@ ) { $template->param(error_claim => $@); } else { - $template->param(info_claim => "Emails have been sent"); + $template->{VARS}->{'info_claim'} = 1; } } diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt index 82277225b2..5ce1faebd6 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/lateorders.tt @@ -1,6 +1,7 @@ [% INCLUDE 'doc-head-open.inc' %] Koha › Acquisitions › Late orders [% INCLUDE 'doc-head-close.inc' %] + @@ -35,7 +38,7 @@ $(document).ready(function() {
[% error_claim %]
[% END %] [% IF info_claim %] -
[% info_claim %]
+
Email has been sent.
[% END %] [% IF ( lateorders ) %]
@@ -50,7 +53,7 @@ $(document).ready(function() {

[% END %] - +
@@ -61,7 +64,7 @@ $(document).ready(function() { [% IF Supplier %] - + [% ELSE %] [% END %] @@ -103,7 +106,7 @@ $(document).ready(function() { -- 2.39.5
Order Date VendorClaimed date Check all
Uncheck all
[% lateorder.claimed_date %] [% UNLESS lateorder.budget_lock %] - + [% END %]