X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FSuggestions.pm;h=b543293bbc36882e8474ac96a7c166a17d1ed61b;hb=ab4c11c2d32f92f7ea9363958c74ff2f3fbe823e;hp=131f117b072575376a7131fbaaf3bd97c0fa0a37;hpb=8101d83af67f696fc12cc1830d9b51fd120ef6a4;p=koha-ffzg.git diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm index 131f117b07..b543293bbc 100644 --- a/C4/Suggestions.pm +++ b/C4/Suggestions.pm @@ -132,10 +132,10 @@ sub SearchSuggestion { } # filter on user branch - if ( C4::Context->preference('IndependantBranches') ) { + if ( C4::Context->preference('IndependentBranches') ) { my $userenv = C4::Context->userenv; if ($userenv) { - if ( ( $userenv->{flags} % 2 ) != 1 && !$suggestion->{branchcode} ) + if ( !C4::Context->IsSuperLibrarian() && !$suggestion->{branchcode} ) { push @sql_params, $$userenv{branch}; push @query, q{ @@ -149,10 +149,6 @@ sub SearchSuggestion { push @sql_params, $suggestion->{branchcode}; push @query, qq{ AND suggestions.branchcode=? }; } - } else { - push @query, qq{ - AND (suggestions.branchcode='' OR suggestions.branchcode IS NULL) - }; } } @@ -343,10 +339,10 @@ sub GetSuggestionByStatus { }; # filter on branch - if ( C4::Context->preference("IndependantBranches") || $branchcode ) { + if ( C4::Context->preference("IndependentBranches") || $branchcode ) { my $userenv = C4::Context->userenv; if ($userenv) { - unless ( $userenv->{flags} % 2 == 1 ) { + unless ( C4::Context->IsSuperLibrarian() ) { push @sql_params, $userenv->{branch}; $query .= q{ AND (U1.branchcode = ? OR U1.branchcode ='') }; } @@ -356,7 +352,7 @@ sub GetSuggestionByStatus { $query .= q{ AND (U1.branchcode = ? OR U1.branchcode ='') }; } } - + my $sth = $dbh->prepare($query); $sth->execute(@sql_params); my $results; @@ -393,8 +389,8 @@ sub CountSuggestion { my $dbh = C4::Context->dbh; my $sth; my $userenv = C4::Context->userenv; - if ( C4::Context->preference("IndependantBranches") - && $userenv->{flags} % 2 != 1 ) + if ( C4::Context->preference("IndependentBranches") + && !C4::Context->IsSuperLibrarian() ) { my $query = q{ SELECT count(*) @@ -440,10 +436,10 @@ sub NewSuggestion { Modify the suggestion according to the hash passed by ref. The hash HAS to contain suggestionid -Data not defined is not updated unless it is a note or sort1 +Data not defined is not updated unless it is a note or sort1 Send a mail to notify the user that did the suggestion. -Note that there is no function to modify a suggestion. +Note that there is no function to modify a suggestion. =cut @@ -537,9 +533,9 @@ sub DelSuggestion { =head2 DelSuggestionsOlderThan &DelSuggestionsOlderThan($days) - + Delete all suggestions older than TODAY-$days , that have be accepted or rejected. - + =cut sub DelSuggestionsOlderThan {