Lines 32-37
use C4::Serials;
Link Here
|
32 |
use C4::Serials::Frequency; |
32 |
use C4::Serials::Frequency; |
33 |
use C4::Serials::Numberpattern; |
33 |
use C4::Serials::Numberpattern; |
34 |
use C4::Letters; |
34 |
use C4::Letters; |
|
|
35 |
use Koha::AdditionalField; |
35 |
use Carp; |
36 |
use Carp; |
36 |
|
37 |
|
37 |
#use Smart::Comments; |
38 |
#use Smart::Comments; |
Lines 153-158
my $locations_loop = GetAuthorisedValues("LOC",$subs->{'location'});
Link Here
|
153 |
$template->param(branchloop => $branchloop, |
154 |
$template->param(branchloop => $branchloop, |
154 |
locations_loop=>$locations_loop, |
155 |
locations_loop=>$locations_loop, |
155 |
); |
156 |
); |
|
|
157 |
|
158 |
|
159 |
my $additional_fields = Koha::AdditionalField->all( { table => 'subscription' } ); |
160 |
for my $field ( @$additional_fields ) { |
161 |
if ( $field->{authorised_value_category} ) { |
162 |
$field->{authorised_value_choices} = GetAuthorisedValues( $field->{authorised_value_category} ); |
163 |
} |
164 |
} |
165 |
$template->param( additional_fields_for_subscription => $additional_fields ); |
166 |
|
156 |
# prepare template variables common to all $op conditions: |
167 |
# prepare template variables common to all $op conditions: |
157 |
if ($op!~/^mod/) { |
168 |
if ($op!~/^mod/) { |
158 |
my $letters = get_letter_loop(); |
169 |
my $letters = get_letter_loop(); |
Lines 341-346
sub redirect_add_subscription {
Link Here
|
341 |
$skip_serialseq |
352 |
$skip_serialseq |
342 |
); |
353 |
); |
343 |
|
354 |
|
|
|
355 |
my $additional_fields = Koha::AdditionalField->all( { table => 'subscription' } ); |
356 |
my @additional_field_values; |
357 |
for my $field ( @$additional_fields ) { |
358 |
my $af = Koha::AdditionalField->new({ id => $field->{id} }); |
359 |
$af->{values} = { |
360 |
$subscriptionid => $query->param('additional_fields_' . $field->{name}) |
361 |
}; |
362 |
$af->insert_values; |
363 |
} |
364 |
|
344 |
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); |
365 |
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); |
345 |
return; |
366 |
return; |
346 |
} |
367 |
} |
Lines 416-421
sub redirect_mod_subscription {
Link Here
|
416 |
$skip_serialseq |
437 |
$skip_serialseq |
417 |
); |
438 |
); |
418 |
|
439 |
|
|
|
440 |
my $additional_fields = Koha::AdditionalField->all( { table => 'subscription' } ); |
441 |
my @additional_field_values; |
442 |
for my $field ( @$additional_fields ) { |
443 |
my $af = Koha::AdditionalField->new({ id => $field->{id} })->fetch; |
444 |
if ( $af->{marcfield} ) { |
445 |
my $record = GetMarcBiblio( $biblionumber, 1 ); |
446 |
my ( $field, $subfield ) = split /\$/, $af->{marcfield}; |
447 |
next unless $field and $subfield; |
448 |
my $value = $record->subfield( $field, $subfield ); |
449 |
$af->{values} = { |
450 |
$subscriptionid => $value |
451 |
}; |
452 |
} else { |
453 |
$af->{values} = { |
454 |
$subscriptionid => $query->param('additional_fields_' . $field->{name}) |
455 |
}; |
456 |
} |
457 |
$af->insert_values; |
458 |
} |
459 |
|
419 |
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); |
460 |
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid"); |
420 |
return; |
461 |
return; |
421 |
} |
462 |
} |