@@ -, +, @@
length on editing a subscription
---
.../prog/en/modules/serials/subscription-add.tt | 30 ++++++++++++++++----
serials/subscription-add.pl | 18 ++++--------
2 files changed, 29 insertions(+), 19 deletions(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-add.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-add.tt
@@ -652,13 +652,31 @@ $(document).ready(function() {
--- a/serials/subscription-add.pl
+++ a/serials/subscription-add.pl
@@ -59,8 +59,6 @@ my ($template, $loggedinuser, $cookie)
my $sub_on;
-my @subscription_types = (qw(issues weeks months));
-my @sub_type_data;
my $subs;
our $firstissuedate;
@@ -164,17 +162,11 @@ if ($op eq 'addsubscription') {
} elsif ($op eq 'modsubscription') {
redirect_mod_subscription();
} else {
- while (@subscription_types) {
- my $sub_type = shift @subscription_types;
- my %row = ( 'name' => $sub_type );
- if ( defined $sub_on and $sub_on eq $sub_type ) {
- $row{'selected'} = ' selected';
- } else {
- $row{'selected'} = '';
- }
- push( @sub_type_data, \%row );
- }
- $template->param(subtype => \@sub_type_data);
+
+ $template->param(
+ subtypes => [ qw( numberlength weeklength monthlength ) ],
+ subtype => $sub_on,
+ );
if ( $op ne 'modsubscription' && $op ne 'dup' && $op ne 'modify' ) {
my $letters = get_letter_loop();
--