Lines 64-72
my $sub_on;
Link Here
|
64 |
my $subs; |
64 |
my $subs; |
65 |
our $firstissuedate; |
65 |
our $firstissuedate; |
66 |
|
66 |
|
67 |
if ($op eq 'modify' || $op eq 'dup' || $op eq 'modsubscription') { |
67 |
my $subscriptionid = $query->param('subscriptionid'); |
68 |
|
68 |
|
69 |
my $subscriptionid = $query->param('subscriptionid'); |
69 |
if ($op eq 'modify' || $op eq 'dup' || $op eq 'modsubscription') { |
70 |
$subs = GetSubscription($subscriptionid); |
70 |
$subs = GetSubscription($subscriptionid); |
71 |
|
71 |
|
72 |
## FIXME : Check rights to edit if mod. Could/Should display an error message. |
72 |
## FIXME : Check rights to edit if mod. Could/Should display an error message. |
Lines 134-140
$template->param(
Link Here
|
134 |
locations_loop=>$locations_loop, |
134 |
locations_loop=>$locations_loop, |
135 |
); |
135 |
); |
136 |
|
136 |
|
137 |
$template->param( additional_fields_for_subscription => [ Koha::AdditionalFields->search( { tablename => 'subscription' } ) ] ); |
137 |
my @additional_fields = Koha::AdditionalFields->search({ tablename => 'subscription' }); |
|
|
138 |
my %additional_field_values; |
139 |
if ($subscriptionid) { |
140 |
my $subscription = Koha::Subscriptions->find($subscriptionid); |
141 |
foreach my $value ($subscription->additional_field_values) { |
142 |
$additional_field_values{$value->field_id} = $value->value; |
143 |
} |
144 |
} |
145 |
|
146 |
$template->param( |
147 |
additional_fields => \@additional_fields, |
148 |
additional_field_values => \%additional_field_values, |
149 |
); |
138 |
|
150 |
|
139 |
my $typeloop = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } }; |
151 |
my $typeloop = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } }; |
140 |
|
152 |
|
141 |
- |
|
|