Lines 27-32
use C4::Serials qw( can_edit_subscription );
Link Here
|
27 |
use Koha::Subscriptions; |
27 |
use Koha::Subscriptions; |
28 |
use Koha::Acquisition::Booksellers; |
28 |
use Koha::Acquisition::Booksellers; |
29 |
use Koha::AdditionalFields; |
29 |
use Koha::AdditionalFields; |
|
|
30 |
use Koha::Database; |
30 |
use Koha::DateUtils qw( dt_from_string ); |
31 |
use Koha::DateUtils qw( dt_from_string ); |
31 |
|
32 |
|
32 |
my $cgi = CGI->new; |
33 |
my $cgi = CGI->new; |
Lines 59-64
if ($batchedit) {
Link Here
|
59 |
notes => scalar $cgi->param('notes'), |
60 |
notes => scalar $cgi->param('notes'), |
60 |
internalnotes => scalar $cgi->param('internalnotes'), |
61 |
internalnotes => scalar $cgi->param('internalnotes'), |
61 |
serialsadditems => scalar $cgi->param('serialsadditems'), |
62 |
serialsadditems => scalar $cgi->param('serialsadditems'), |
|
|
63 |
late_issue_letter_code => scalar $cgi->param('late_issue_letter_code'), |
62 |
enddate => dt_from_string(scalar $cgi->param('enddate')), |
64 |
enddate => dt_from_string(scalar $cgi->param('enddate')), |
63 |
); |
65 |
); |
64 |
|
66 |
|
Lines 96-106
if ($batchedit) {
Link Here
|
96 |
exit; |
98 |
exit; |
97 |
} |
99 |
} |
98 |
|
100 |
|
|
|
101 |
my $schema = Koha::Database->schema; |
102 |
my @letters = $schema->resultset('Letter')->search( |
103 |
{ module => 'serial' }, |
104 |
{ |
105 |
columns => ['code', 'name'], |
106 |
distinct => 1, |
107 |
order_by => 'code', |
108 |
}, |
109 |
); |
110 |
my %letters_map = map { $_->code => $_->name } @letters; |
111 |
|
99 |
$template->param( |
112 |
$template->param( |
100 |
subscriptions => \@subscriptions, |
113 |
subscriptions => \@subscriptions, |
101 |
booksellers => [ Koha::Acquisition::Booksellers->search->as_list ], |
114 |
booksellers => [ Koha::Acquisition::Booksellers->search->as_list ], |
102 |
additional_fields => \@additional_fields, |
115 |
additional_fields => \@additional_fields, |
103 |
referrer => scalar $cgi->param('referrer'), |
116 |
referrer => scalar $cgi->param('referrer'), |
|
|
117 |
letters => \@letters, |
118 |
letters_map => \%letters_map, |
104 |
); |
119 |
); |
105 |
|
120 |
|
106 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
121 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
107 |
- |
|
|