|
Lines 62-69
$subs->{enddate} ||= GetExpirationDate($subscriptionid);
Link Here
|
| 62 |
my ($totalissues,@serialslist) = GetSerials($subscriptionid); |
62 |
my ($totalissues,@serialslist) = GetSerials($subscriptionid); |
| 63 |
$totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue) |
63 |
$totalissues-- if $totalissues; # the -1 is to have 0 if this is a new subscription (only 1 issue) |
| 64 |
|
64 |
|
| 65 |
my $subscription = Koha::Subscriptions->find( $subscriptionid ); |
|
|
| 66 |
|
| 67 |
if ( $op and $op eq "close" ) { |
65 |
if ( $op and $op eq "close" ) { |
| 68 |
C4::Serials::CloseSubscription( $subscriptionid ); |
66 |
C4::Serials::CloseSubscription( $subscriptionid ); |
| 69 |
} elsif ( $op and $op eq "reopen" ) { |
67 |
} elsif ( $op and $op eq "reopen" ) { |
|
Lines 123-128
my @irregular_issues = split /;/, $subs->{irregularity};
Link Here
|
| 123 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subs->{periodicity}); |
121 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($subs->{periodicity}); |
| 124 |
my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern}); |
122 |
my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern}); |
| 125 |
|
123 |
|
|
|
124 |
my $subscription = Koha::Subscriptions->find( $subscriptionid ); |
| 125 |
|
| 126 |
$template->param( |
126 |
$template->param( |
| 127 |
available_additional_fields => Koha::AdditionalFields->search( { tablename => 'subscription' } ), |
127 |
available_additional_fields => Koha::AdditionalFields->search( { tablename => 'subscription' } ), |
| 128 |
additional_field_values => { map { $_->field->name => $_->value } $subscription->additional_field_values->as_list }, |
128 |
additional_field_values => { map { $_->field->name => $_->value } $subscription->additional_field_values->as_list }, |
| 129 |
- |
|
|