|
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 |
- |
|
|