Lines 30-35
use C4::Items;
Link Here
|
30 |
use C4::Auth; |
30 |
use C4::Auth; |
31 |
use C4::Output; |
31 |
use C4::Output; |
32 |
use C4::Biblio; |
32 |
use C4::Biblio; |
|
|
33 |
use Koha::Email; |
33 |
|
34 |
|
34 |
my $query = new CGI; |
35 |
my $query = new CGI; |
35 |
|
36 |
|
Lines 50-62
my $email_sender = $query->param('email_sender');
Link Here
|
50 |
my $dbh = C4::Context->dbh; |
51 |
my $dbh = C4::Context->dbh; |
51 |
|
52 |
|
52 |
if ( $email_add ) { |
53 |
if ( $email_add ) { |
53 |
my $email_from = C4::Context->preference('KohaAdminEmailAddress'); |
54 |
my $email = Koha::Email->new(); |
|
|
55 |
my %mail = $email->create_message_headers({ to => $email_add }); |
54 |
my $comment = $query->param('comment'); |
56 |
my $comment = $query->param('comment'); |
55 |
my %mail = ( |
|
|
56 |
To => $email_add, |
57 |
From => $email_from |
58 |
); |
59 |
|
60 |
my ( $template2, $borrowernumber, $cookie ) = get_template_and_user( |
57 |
my ( $template2, $borrowernumber, $cookie ) = get_template_and_user( |
61 |
{ |
58 |
{ |
62 |
template_name => "basket/sendbasket.tt", |
59 |
template_name => "basket/sendbasket.tt", |
63 |
- |
|
|