projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge remote branch 'kc/new/enh/bug_5547' into kcmaster
[koha_gimpoz]
/
opac
/
opac-sendbasket.pl
diff --git
a/opac/opac-sendbasket.pl
b/opac/opac-sendbasket.pl
index
76400a5
..
0042c42
100755
(executable)
--- a/
opac/opac-sendbasket.pl
+++ b/
opac/opac-sendbasket.pl
@@
-20,6
+20,7
@@
use warnings;
use CGI;
use Encode qw(encode);
use CGI;
use Encode qw(encode);
+use Carp;
use Mail::Sendmail;
use MIME::QuotedPrint;
use Mail::Sendmail;
use MIME::QuotedPrint;
@@
-38,7
+39,7
@@
my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
template_name => "opac-sendbasketform.tmpl",
query => $query,
type => "opac",
template_name => "opac-sendbasketform.tmpl",
query => $query,
type => "opac",
- authnotrequired =>
0
,
+ authnotrequired =>
( C4::Context->preference("OpacPublic") ? 1 : 0 )
,
flagsrequired => { borrow => 1 },
}
);
flagsrequired => { borrow => 1 },
}
);
@@
-170,7
+171,7
@@
END_OF_BODY
}
else {
# do something if it doesnt work....
}
else {
# do something if it doesnt work....
-
warn
"Error sending mail: $Mail::Sendmail::error \n";
+
carp
"Error sending mail: $Mail::Sendmail::error \n";
$template->param( error => 1 );
}
$template->param( email_add => $email_add );
$template->param( error => 1 );
}
$template->param( email_add => $email_add );