[Koha-patches] [PATCH] Bug 5870 : Follow up clean up patch
Chris Cormack
chrisc at catalyst.net.nz
Mon Mar 28 03:33:52 CEST 2011
From: Stéphane Delaune <stephane.delaune at biblibre.com>
(MT #4626) followup debug suggestion management : "accepted by" was not correctly displayed on suggestion's edit page
suggestion's status, document's type and "accepted by" was not correctly displayed on suggestion's edit page
(link with MT #4585)
---
suggestion/suggestion.pl | 17 ++++++++++++-----
1 files changed, 12 insertions(+), 5 deletions(-)
diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl
index 4ce0cef..ccb6bda 100755
--- a/suggestion/suggestion.pl
+++ b/suggestion/suggestion.pl
@@ -99,11 +99,18 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
#########################################
## Operations
##
-if ($op =~/save/i){
- if ($$suggestion_ref{'suggestionid'}>0){
- &ModSuggestion($suggestion_ref);
- }
- else {
+if ( $op =~ /save/i ) {
+ if ( $$suggestion_ref{"STATUS"} ) {
+ if ( my $tmpstatus = lc( $$suggestion_ref{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) {
+ $$suggestion_ref{ lc( $$suggestion_ref{"STATUS"}) . "date" } = C4::Dates->today;
+ $$suggestion_ref{ lc( $$suggestion_ref{"STATUS"}) . "by" } = C4::Context->userenv->{number};
+ }
+ $$suggestion_ref{"manageddate"} = C4::Dates->today;
+ $$suggestion_ref{"managedby"} = C4::Context->userenv->{number};
+ }
+ if ( $$suggestion_ref{'suggestionid'} > 0 ) {
+ &ModSuggestion($suggestion_ref);
+ } else {
###FIXME:Search here if suggestion already exists.
my $suggestions_loop =
SearchSuggestion( $suggestion_ref );
--
1.7.1
More information about the Koha-patches
mailing list