@@ -, +, @@ (opac-)sendbasket --- basket/sendbasket.pl | 19 ++++++++----------- opac/opac-sendbasket.pl | 17 +++++++---------- 2 files changed, 15 insertions(+), 21 deletions(-) --- a/basket/sendbasket.pl +++ a/basket/sendbasket.pl @@ -15,8 +15,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw(encode); @@ -29,7 +28,7 @@ use C4::Biblio; use C4::Items; use C4::Auth; use C4::Output; -use C4::Biblio; +use C4::Templates (); use Koha::Email; my $query = new CGI; @@ -53,15 +52,13 @@ if ( $email_add ) { my $email = Koha::Email->new(); my %mail = $email->create_message_headers({ to => $email_add }); my $comment = $query->param('comment'); - my ( $template2, $borrowernumber, $cookie ) = get_template_and_user( - { - template_name => "basket/sendbasket.tt", - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => { catalogue => 1 }, - } + + # Since we are already logged in, no need to check credentials again + # We only need to add OPACBaseURL + my $template2 = C4::Templates::gettemplate( + 'basket/sendbasket.tt', 'intranet', $query, ); + $template2->param( OPACBaseURL => C4::Context->preference('OPACBaseURL') ); my @bibs = split( /\//, $bib_list ); my @results; --- a/opac/opac-sendbasket.pl +++ a/opac/opac-sendbasket.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw(encode); @@ -31,8 +30,8 @@ use C4::Biblio; use C4::Items; use C4::Auth; use C4::Output; -use C4::Biblio; use C4::Members; +use C4::Templates (); use Koha::Email; my $query = new CGI; @@ -67,14 +66,12 @@ if ( $email_add ) { }); $mail{'X-Abuse-Report'} = C4::Context->preference('KohaAdminEmailAddress'); - my ( $template2, $borrowernumber, $cookie ) = get_template_and_user( - { - template_name => "opac-sendbasket.tt", - query => $query, - type => "opac", - authnotrequired => 0, - } + # Since we are already logged in, no need to check credentials again + # We only need to add OPACBaseURL + my $template2 = C4::Templates::gettemplate( + 'opac-sendbasket.tt', 'opac', $query, ); + $template2->param( OPACBaseURL => C4::Context->preference('OPACBaseURL') ); my @bibs = split( /\//, $bib_list ); my @results; --