3 # This file is part of Koha.
4 # Copyright 2006-2010 BibLibre
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 #use warnings; FIXME - Bug 2505
24 use C4
::Auth
; # get_template_and_user
27 use C4
::Koha
; #GetItemTypes
31 use C4
::Dates
qw(format_date);
36 my $suggestion= shift @_;
37 # "Managed by" is used only when a suggestion is being edited (not when created)
38 if ($suggestion->{'suggesteddate'} eq "0000-00-00" ||$suggestion->{'suggesteddate'} eq "") {
40 $suggestion->{'suggesteddate'} = C4
::Dates
->today;
41 $suggestion->{'suggestedby'} = C4
::Context
->userenv->{"number"} unless ($suggestion->{'suggestedby'});
44 # editing of an existing suggestion
45 $suggestion->{'manageddate'} = C4
::Dates
->today;
46 $suggestion->{'managedby'} = C4
::Context
->userenv->{"number"} unless ($suggestion->{'managedby'});
47 # suggesteddate, when coming from the DB, needs to be formated
48 $suggestion->{'suggesteddate'} = format_date
($suggestion->{'suggesteddate'});
50 foreach my $date ( qw(rejecteddate accepteddate) ){
51 $suggestion->{$date}=(($suggestion->{$date} eq "0000-00-00" ||$suggestion->{$date} eq "")?
53 format_date
($suggestion->{$date})
56 $suggestion->{'branchcode'}=C4
::Context
->userenv->{"branch"} unless ($suggestion->{'branchcode'});
60 my ($criteriumvalue,$displayby)=@_;
61 return ($criteriumvalue eq 'ASKED'?
"Pending":ucfirst(lc( $criteriumvalue))) if ($displayby =~/status/i);
62 return (GetBranchName
($criteriumvalue)) if ($displayby =~/branchcode/);
63 return (GetSupportName
($criteriumvalue)) if ($displayby =~/itemtype/);
64 if ($displayby =~/suggestedby/||$displayby =~/managedby/||$displayby =~/acceptedby/){
65 my $borr=C4
::Members
::GetMember
(borrowernumber
=>$criteriumvalue);
66 return "" unless $borr;
67 return $$borr{surname
} . ", " . $$borr{firstname
};
69 if ( $displayby =~ /budgetid/) {
70 my $budget = GetBudget
($criteriumvalue);
71 return "" unless $budget;
72 return $$budget{budget_name
};
77 my $suggestedbyme = (defined $input->param('suggestedbyme')?
$input->param('suggestedbyme'):1);
78 my $op = $input->param('op')||'else';
79 my @editsuggestions = $input->param('edit_field');
80 my $suggestedby = $input->param('suggestedby');
81 my $returnsuggestedby = $input->param('returnsuggestedby');
82 my $returnsuggested = $input->param('returnsuggested');
83 my $managedby = $input->param('managedby');
84 my $displayby = $input->param('displayby') || '';
85 my $branchfilter = ($displayby ne "branchcode") ?
$input->param('branchcode') : '';
86 my $tabcode = $input->param('tabcode');
88 # filter informations which are not suggestion related.
89 my $suggestion_ref = $input->Vars;
91 delete $$suggestion_ref{$_} foreach qw( suggestedbyme op displayby tabcode edit_field );
92 foreach (keys %$suggestion_ref){
93 delete $$suggestion_ref{$_} if (!$$suggestion_ref{$_} && ($op eq 'else' || $op eq 'change'));
95 my ( $template, $borrowernumber, $cookie, $userflags ) = get_template_and_user
(
97 template_name
=> "suggestion/suggestion.tmpl",
100 flagsrequired
=> { catalogue
=> 1 },
104 #########################################
107 if ( $op =~ /save/i ) {
108 if ( $$suggestion_ref{"STATUS"} ) {
109 if ( my $tmpstatus = lc( $$suggestion_ref{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) {
110 $$suggestion_ref{ lc( $$suggestion_ref{"STATUS"}) . "date" } = C4
::Dates
->today;
111 $$suggestion_ref{ lc( $$suggestion_ref{"STATUS"}) . "by" } = C4
::Context
->userenv->{number
};
113 $$suggestion_ref{"manageddate"} = C4
::Dates
->today;
114 $$suggestion_ref{"managedby"} = C4
::Context
->userenv->{number
};
116 if ( $$suggestion_ref{'suggestionid'} > 0 ) {
117 &ModSuggestion
($suggestion_ref);
119 ###FIXME:Search here if suggestion already exists.
120 my $suggestions_loop =
121 SearchSuggestion
( $suggestion_ref );
122 if (@
$suggestions_loop>=1){
123 #some suggestion are answering the request Donot Add
126 ## Adding some informations related to suggestion
127 &NewSuggestion
($suggestion_ref);
129 # empty fields, to avoid filter in "SearchSuggestion"
131 map{delete $$suggestion_ref{$_}} keys %$suggestion_ref;
136 Init
($suggestion_ref);
139 elsif ($op=~/edit/) {
141 $suggestion_ref=&GetSuggestion
($$suggestion_ref{'suggestionid'});
142 Init
($suggestion_ref);
145 elsif ($op eq "change" ) {
146 # set accepted/rejected/managed informations if applicable
147 # ie= if the librarian has choosen some action on the suggestions
148 if ($$suggestion_ref{"STATUS"} eq "ACCEPTED"){
149 $$suggestion_ref{"accepteddate"}=C4
::Dates
->today;
150 $$suggestion_ref{"acceptedby"}=C4
::Context
->userenv->{number
};
151 } elsif ($$suggestion_ref{"STATUS"} eq "REJECTED"){
152 $$suggestion_ref{"rejecteddate"}=C4
::Dates
->today;
153 $$suggestion_ref{"rejectedby"}=C4
::Context
->userenv->{number
};
155 if ($$suggestion_ref{"STATUS"}){
156 $$suggestion_ref{"manageddate"}=C4
::Dates
->today;
157 $$suggestion_ref{"managedby"}=C4
::Context
->userenv->{number
};
159 if ( my $reason = $$suggestion_ref{"reason$tabcode"}){
160 if ( $reason eq "other" ) {
161 $reason = $$suggestion_ref{"other_reason$tabcode"};
163 $$suggestion_ref{'reason'}=$reason;
165 delete $$suggestion_ref{$_} foreach ("reason$tabcode", "other_reason$tabcode");
166 foreach (keys %$suggestion_ref){
167 delete $$suggestion_ref{$_} unless ($$suggestion_ref{$_});
169 foreach my $suggestionid (@editsuggestions) {
170 next unless $suggestionid;
171 $$suggestion_ref{'suggestionid'}=$suggestionid;
172 &ModSuggestion
($suggestion_ref);
175 }elsif ($op eq "delete" ) {
176 foreach my $delete_field (@editsuggestions) {
177 &DelSuggestion
( $borrowernumber, $delete_field,'intranet' );
181 elsif ( $op eq 'show' ) {
182 $suggestion_ref=&GetSuggestion
($$suggestion_ref{'suggestionid'});
183 $$suggestion_ref{branchname
} = GetBranchName
$$suggestion_ref{branchcode
};
184 my $budget = GetBudget
$$suggestion_ref{budgetid
};
185 $$suggestion_ref{budgetname
} = $$budget{budget_name
};
186 Init
($suggestion_ref);
191 $displayby||="STATUS";
192 delete $$suggestion_ref{'branchcode'} if($displayby eq "branchcode");
193 my $criteria_list=GetDistinctValues
("suggestions.".$displayby);
195 my $reasonsloop = GetAuthorisedValues
("SUGGEST");
196 foreach my $criteriumvalue ( map { $$_{'value'} } @
$criteria_list ) {
197 # By default, display suggestions from current working branch
198 if(not defined $branchfilter) {
199 $$suggestion_ref{'branchcode'} = C4
::Context
->userenv->{'branch'};
201 my $definedvalue = defined $$suggestion_ref{$displayby} && $$suggestion_ref{$displayby} ne "";
203 next if ( $definedvalue && $$suggestion_ref{$displayby} ne $criteriumvalue );
204 $$suggestion_ref{$displayby} = $criteriumvalue;
206 my $suggestions = &SearchSuggestion
($suggestion_ref);
207 foreach my $suggestion (@
$suggestions) {
208 if ($suggestion->{budgetid
}){
209 my $bud = GetBudget
( $suggestion->{budgetid
} );
210 $suggestion->{budget_name
} = $bud->{budget_name
} if $bud;
212 foreach my $date (qw(suggesteddate manageddate accepteddate)) {
213 if ($suggestion->{$date} and $suggestion->{$date} ne "0000-00-00") {
214 $suggestion->{$date} = format_date
( $suggestion->{$date} );
216 $suggestion->{$date} = "";
220 push @allsuggestions,{
221 "suggestiontype"=>$criteriumvalue||"suggest",
222 "suggestiontypelabel"=>GetCriteriumDesc
($criteriumvalue,$displayby)||"",
223 "suggestionscount"=>scalar(@
$suggestions),
224 'suggestions_loop'=>$suggestions,
225 'reasonsloop' => $reasonsloop,
228 delete $$suggestion_ref{$displayby} unless $definedvalue;
232 "displayby"=> $displayby,
233 "notabs"=> $displayby eq "",
234 suggestions
=> \
@allsuggestions,
238 foreach my $element ( qw(managedby suggestedby acceptedby) ) {
239 # $debug || warn $$suggestion_ref{$element};
240 if ($$suggestion_ref{$element}){
241 my $member=GetMember
(borrowernumber
=>$$suggestion_ref{$element});
243 $element."_borrowernumber"=>$$member{borrowernumber
},
244 $element."_firstname"=>$$member{firstname
},
245 $element."_surname"=>$$member{surname
},
246 $element."_branchcode"=>$$member{branchcode
},
247 $element."_description"=>$$member{description
},
248 $element."_category_type"=>$$member{category_type
}
255 dateformat
=> C4
::Context
->preference("dateformat"),
259 if(defined($returnsuggested) and $returnsuggested ne "noone")
261 print $input->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=".$returnsuggested."#suggestions");
265 ## Initializing selection lists
267 #branch display management
268 my $onlymine=C4
::Context
->preference('IndependantBranches') &&
269 C4
::Context
->userenv &&
270 C4
::Context
->userenv->{flags
}!=1 &&
271 C4
::Context
->userenv->{branch
};
272 my $branches = GetBranches
($onlymine);
275 foreach my $thisbranch ( sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches ) {
277 value
=> $thisbranch,
278 branchname
=> $branches->{$thisbranch}->{'branchname'},
279 selected
=> ($branchfilter and $branches->{$thisbranch}->{'branchcode'} eq $branchfilter ) || ( $$suggestion_ref{'branchcode'} and $branches->{$thisbranch}->{'branchcode'} eq $$suggestion_ref{'branchcode'} )
281 push @branchloop, \
%row;
283 $branchfilter=C4
::Context
->userenv->{'branch'} if ($onlymine && !$branchfilter);
285 $template->param( branchloop
=> \
@branchloop,
286 branchfilter
=> $branchfilter);
288 # the index parameter is different for item-level itemtypes
289 my $supportlist = GetSupportList
();
291 foreach my $support (@
$supportlist) {
292 $$support{'selected'} = (defined $$suggestion_ref{'itemtype'})
293 ?
$$support{'itemtype'} eq $$suggestion_ref{'itemtype'}
295 if ( $$support{'imageurl'} ) {
296 $$support{'imageurl'} = getitemtypeimagelocation
( 'intranet', $$support{'imageurl'} );
298 delete $$support{'imageurl'};
301 $template->param(itemtypeloop
=>$supportlist);
302 $template->param( returnsuggestedby
=> $returnsuggestedby );
304 my $patron_reason_loop = GetAuthorisedValues
("OPAC_SUG",$$suggestion_ref{'patronreason'});
305 $template->param(patron_reason_loop
=>$patron_reason_loop);
310 my $searchbudgets = { budget_branchcode
=> $branchfilter };
311 $budgets = GetBudgets
($searchbudgets);
313 $budgets = GetBudgets
(undef);
317 foreach my $budget ( @
{$budgets} ) {
318 next unless (CanUserUseBudget
($borrowernumber, $budget, $userflags));
320 ## Please see file perltidy.ERR
321 $budget->{'selected'} = 1
322 if ($$suggestion_ref{'budgetid'}
323 && $budget->{'budget_id'} eq $$suggestion_ref{'budgetid'});
325 push @budgets_loop, $budget;
328 $template->param( budgetsloop
=> \
@budgets_loop);
329 $template->param( "statusselected_$$suggestion_ref{'STATUS'}" =>1) if ($$suggestion_ref{'STATUS'});
331 # get currencies and rates
332 my @rates = GetCurrencies
();
333 my $count = scalar @rates;
334 my $active_currency = GetCurrency
();
335 my $selected_currency;
336 if ($$suggestion_ref{'currency'}) {
337 $selected_currency = $$suggestion_ref{'currency'};
340 $selected_currency = $active_currency->{currency
};
343 my @loop_currency = ();
344 for ( my $i = 0 ; $i < $count ; $i++ ) {
346 $line{currcode
} = $rates[$i]->{'currency'};
347 $line{rate
} = $rates[$i]->{'rate'};
348 $line{selected
} = 1 if ($line{'currcode'} eq $selected_currency);
349 push @loop_currency, \
%line;
352 $template->param(loop_currency
=> \
@loop_currency);
355 price
=> sprintf("%.2f", $$suggestion_ref{'price'}||0),
356 total
=> sprintf("%.2f", $$suggestion_ref{'total'}||0),
360 foreach my $field ( qw(managedby acceptedby suggestedby budgetid) ) {
362 $values_list = GetDistinctValues
( "suggestions." . $field );
363 my @codes_list = map {
364 { 'code' => $$_{'value'},
365 'desc' => GetCriteriumDesc
( $$_{'value'}, $field ),
366 'selected' => ($$suggestion_ref{$field}) ?
$$_{'value'} eq $$suggestion_ref{$field} : 0,
369 $hashlists{ lc($field) . "_loop" } = \
@codes_list;
371 $template->param(%hashlists);
372 $template->param(DHTMLcalendar_dateformat
=> C4
::Dates
->DHTMLcalendar(),);
373 output_html_with_http_headers
$input, $cookie, $template->output;