projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Important Commit For UNIMARC Items.
[koha.git]
/
C4
/
Suggestions.pm
diff --git
a/C4/Suggestions.pm
b/C4/Suggestions.pm
index
336e408
..
8212307
100644
(file)
--- a/
C4/Suggestions.pm
+++ b/
C4/Suggestions.pm
@@
-19,15
+19,31
@@
package C4::Suggestions;
use strict;
use strict;
-require Exporter;
+use CGI;
+use Mail::Sendmail;
+
use C4::Context;
use C4::Output;
use C4::Dates qw(format_date);
use C4::Context;
use C4::Output;
use C4::Dates qw(format_date);
-use Mail::Sendmail;
use vars qw($VERSION @ISA @EXPORT);
use vars qw($VERSION @ISA @EXPORT);
-# set the version for version checking
-$VERSION = 3.01;
+BEGIN {
+ # set the version for version checking
+ $VERSION = 3.01;
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(
+ &NewSuggestion
+ &SearchSuggestion
+ &GetSuggestion
+ &GetSuggestionByStatus
+ &DelSuggestion
+ &CountSuggestion
+ &ModStatus
+ &ConnectSuggestionAndBiblio
+ &GetSuggestionFromBiblionumber
+ );
+}
=head1 NAME
=head1 NAME
@@
-54,21
+70,6
@@
Suggestions done by other borrowers can be seen when not "AVAILABLE"
=head1 FUNCTIONS
=head1 FUNCTIONS
-=cut
-
-@ISA = qw(Exporter);
-@EXPORT = qw(
- &NewSuggestion
- &SearchSuggestion
- &GetSuggestion
- &GetSuggestionByStatus
- &DelSuggestion
- &CountSuggestion
- &ModStatus
- &ConnectSuggestionAndBiblio
- &GetSuggestionFromBiblionumber
- );
-
=head2 SearchSuggestion
(\@array) = &SearchSuggestion($user,$author,$title,$publishercode,$status,$suggestedbyme)
=head2 SearchSuggestion
(\@array) = &SearchSuggestion($user,$author,$title,$publishercode,$status,$suggestedbyme)
@@
-386,7
+387,7
@@
sub ModStatus {
$sth = $dbh->prepare($queryMail);
$sth->execute($suggestionid);
my $emailinfo = $sth->fetchrow_hashref;
$sth = $dbh->prepare($queryMail);
$sth->execute($suggestionid);
my $emailinfo = $sth->fetchrow_hashref;
- my $template = gettemplate("suggestion/mail_suggestion_$status.tmpl",
"intranet"
);
+ my $template = gettemplate("suggestion/mail_suggestion_$status.tmpl",
"intranet", CGI->new()
);
$template->param(
byemail => $emailinfo->{byemail},
$template->param(
byemail => $emailinfo->{byemail},