diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/suggestion.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/suggestion.tt
index e3096c3a51..c8e25f012c 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/suggestion.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/suggestion.tt
@@ -1,5 +1,6 @@
[% USE Branches %]
[% USE AuthorisedValues %]
+[% USE KohaDates %]
[% INCLUDE 'doc-head-open.inc' %]
Koha › Acquisitions ›
[% IF ( op_save ) %]
@@ -261,18 +262,18 @@ h4.local_collapse a { font-size : 80%; text-decoration: none; } fieldset.brief o
| Suggestion creation |
- [% suggesteddate %] |
+ [% suggesteddate | $KohaDates %] |
[% IF ( suggestedby_borrowernumber ) %][% suggestedby_surname %], [% suggestedby_firstname %] [% Branches.GetName( suggestedby_branchcode ) %] ([% suggestedby_description %])[% END %]
|
| Suggestion management |
- [% manageddate %] |
+ [% manageddate | $KohaDates %] |
[% IF ( managedby_borrowernumber ) %][% managedby_surname %], [% managedby_firstname %] [% Branches.GetName( managedby_branchcode ) %] ([% managedby_description %])[% END %] |
| Suggestion accepted |
- [% accepteddate %] |
+ [% accepteddate | $KohaDates %] |
[% IF ( acceptedby_borrowernumber ) %][% acceptedby_surname %], [% acceptedby_firstname %] [% Branches.GetName( acceptedby_branchcode ) %] ([% acceptedby_description %])[% END %] |
@@ -397,18 +398,18 @@ h4.local_collapse a { font-size : 80%; text-decoration: none; } fieldset.brief o
| |
- |
+ |
[% IF ( suggestedby_borrowernumber ) %][% suggestedby_surname %], [% suggestedby_firstname %] [% Branches.GetName( suggestedby_branchcode ) %] ([% suggestedby_description %])[% END %]
|
| |
- |
+ |
[% IF ( managedby_borrowernumber ) %][% managedby_surname %], [% managedby_firstname %] [% Branches.GetName( managedby_branchcode ) %] ([% managedby_description %])[% END %] |
| |
- |
+ |
[% IF ( acceptedby_borrowernumber ) %][% acceptedby_surname %], [% acceptedby_firstname %] [% Branches.GetName( acceptedby_branchcode ) %] ([% acceptedby_description %])[% END %] |
@@ -515,11 +516,11 @@ h4.local_collapse a { font-size : 80%; text-decoration: none; } fieldset.brief o
[% IF ( suggestions_loo.emailsuggestedby ) %][% END %][% suggestions_loo.surnamesuggestedby %][% IF ( suggestions_loo.firstnamesuggestedby ) %], [% suggestions_loo.firstnamesuggestedby %][% END %] [% IF ( suggestions_loo.emailsuggestedby ) %][% END %]
- [% IF ( suggestions_loo.suggesteddate ) %] - [% suggestions_loo.suggesteddate %][% END %]
+ [% IF ( suggestions_loo.suggesteddate ) %] - [% suggestions_loo.suggesteddate | $KohaDates %][% END %]
|
[% IF ( suggestions_loo.emailmanagedby ) %][% END %][% suggestions_loo.surnamemanagedby %][% IF ( suggestions_loo.firstnamemanagedby ) %], [% suggestions_loo.firstnamemanagedby %][% END %] [% IF ( suggestions_loo.emailmanagedby ) %][% END %]
- [% IF ( suggestions_loo.manageddate ) %] - [% suggestions_loo.manageddate %][% END %]
+ [% IF ( suggestions_loo.manageddate ) %] - [% suggestions_loo.manageddate | $KohaDates %][% END %]
|
[% Branches.GetName( suggestions_loo.branchcode ) %]
diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl
index 14c90bd4d8..14e6ac27b8 100755
--- a/suggestion/suggestion.pl
+++ b/suggestion/suggestion.pl
@@ -28,7 +28,6 @@ use C4::Koha; #GetItemTypes
use C4::Branch;
use C4::Budgets;
use C4::Search;
-use C4::Dates qw(format_date);
use C4::Members;
use C4::Debug;
@@ -41,21 +40,13 @@ sub Init{
# "Managed by" is used only when a suggestion is being edited (not when created)
if ($suggestion->{'suggesteddate'} eq "0000-00-00" ||$suggestion->{'suggesteddate'} eq "") {
# new suggestion
- $suggestion->{'suggesteddate'} = C4::Dates->today;
+ $suggestion->{suggesteddate} = dt_from_string;
$suggestion->{'suggestedby'} = C4::Context->userenv->{"number"} unless ($suggestion->{'suggestedby'});
}
else {
# editing of an existing suggestion
- $suggestion->{'manageddate'} = C4::Dates->today;
+ $suggestion->{manageddate} = dt_from_string;
$suggestion->{'managedby'} = C4::Context->userenv->{"number"} unless ($suggestion->{'managedby'});
- # suggesteddate, when coming from the DB, needs to be formated
- $suggestion->{'suggesteddate'} = format_date($suggestion->{'suggesteddate'});
- }
- foreach my $date ( qw(rejecteddate accepteddate) ){
- $suggestion->{$date}=(($suggestion->{$date} eq "0000-00-00" ||$suggestion->{$date} eq "")?
- "":
- format_date($suggestion->{$date})
- );
}
$suggestion->{'branchcode'}=C4::Context->userenv->{"branch"} unless ($suggestion->{'branchcode'});
}
@@ -258,13 +249,6 @@ if ($op=~/else/) {
my $bud = GetBudget( $suggestion->{budgetid} );
$suggestion->{budget_name} = $bud->{budget_name} if $bud;
}
- foreach my $date (qw(suggesteddate manageddate accepteddate)) {
- if ($suggestion->{$date} and $suggestion->{$date} ne "0000-00-00") {
- $suggestion->{$date} = format_date( $suggestion->{$date} );
- } else {
- $suggestion->{$date} = "";
- }
- }
}
push @allsuggestions,{
"suggestiontype"=>$criteriumvalue||"suggest",
|