From 3b43a79c430764daa679a44cbd30c117d388a1ce Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Wed, 23 Dec 2009 22:55:11 +0100 Subject: [PATCH] Suggestions.pm :Changing $$ notation to $ -> --- C4/Suggestions.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm index ed2bbfa1bb..72c3d34841 100644 --- a/C4/Suggestions.pm +++ b/C4/Suggestions.pm @@ -137,7 +137,7 @@ sub SearchSuggestion { LEFT JOIN categories AS C2 ON C2.categorycode = U2.categorycode WHERE STATUS NOT IN ('CLAIMED') } , map { - if ( my $s = $$suggestion{$_} ) { + if ( my $s = $suggestion->{$_} ) { push @sql_params,'%'.$s.'%'; " and suggestions.$_ like ? "; } else { () } @@ -147,7 +147,7 @@ sub SearchSuggestion { my $userenv = C4::Context->userenv; if (C4::Context->preference('IndependantBranches')) { if ($userenv) { - if (($userenv->{flags} % 2) != 1 && !$$suggestion{branchcode}){ + if (($userenv->{flags} % 2) != 1 && !$suggestion->{branchcode}){ push @sql_params,$$userenv{branch}; push @query,q{ and (branchcode = ? or branchcode ='')}; } @@ -161,7 +161,7 @@ sub SearchSuggestion { >} keys %$suggestion ) { if ($$suggestion{$field}){ - push @sql_params,$$suggestion{$field}; + push @sql_params,$suggestion->{$field}; push @query, " and suggestions.$field=?"; } else { @@ -380,12 +380,12 @@ sub ModSuggestion { my $status_update_table=UpdateInTable("suggestions", $suggestion); # check mail sending. if ($$suggestion{STATUS}){ - my $letter=C4::Letters::getletter('suggestions',$$suggestion{STATUS}); + my $letter=C4::Letters::getletter('suggestions',$suggestion->{STATUS}); if ($letter){ my $enqueued = C4::Letters::EnqueueLetter({ letter=>$letter, - borrowernumber=>$$suggestion{suggestedby}, - suggestionid=>$$suggestion{suggestionid}, + borrowernumber=>$suggestion->{suggestedby}, + suggestionid=>$suggestion->{suggestionid}, msg_transport_type=>'email' }); if (!$enqueued){warn "can't enqueue letter $letter";} -- 2.39.5