X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-sendbasket.pl;h=6a6e8253ba35a003095bbc1f1e1ccf83a23ff56e;hb=e4abe486daa05669dd1cd85758d4d6eaec3f8427;hp=621396542cfb3d60411e45834d657e54cc889088;hpb=a8222aeeb1169d7b1939d1e64c319a16e3846e8c;p=koha_fer diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl index 621396542c..6a6e8253ba 100755 --- a/opac/opac-sendbasket.pl +++ b/opac/opac-sendbasket.pl @@ -20,6 +20,7 @@ use warnings; use CGI; use Encode qw(encode); +use Carp; 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", - authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), + authnotrequired => 0, flagsrequired => { borrow => 1 }, } ); @@ -80,7 +81,7 @@ if ( $email_add ) { my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); - my @items = &GetItemsInfo( $biblionumber, 'opac' ); + my @items = GetItemsInfo( $biblionumber ); my $hasauthors = 0; if($dat->{'author'} || @$marcauthorsarray) { @@ -170,7 +171,7 @@ END_OF_BODY } 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 );