|
Lines 124-129
if ($op eq 'modify' || $op eq 'dup' || $op eq 'modsubscription') {
Link Here
|
| 124 |
|
124 |
|
| 125 |
my $locations_loop = GetAuthorisedValues("LOC"); |
125 |
my $locations_loop = GetAuthorisedValues("LOC"); |
| 126 |
my $ccodes_loop = GetAuthorisedValues("CCODE"); |
126 |
my $ccodes_loop = GetAuthorisedValues("CCODE"); |
|
|
127 |
my @loc_av; |
| 128 |
|
| 129 |
for my $loc (@$locations_loop) { |
| 130 |
push @loc_av, $loc->{authorised_value}; |
| 131 |
} |
| 132 |
|
| 133 |
if ( !grep { $_ eq $subs->{location} } @loc_av ) { |
| 134 |
my $location_av = Koha::AuthorisedValues->search( |
| 135 |
{ authorised_value => $subs->{location} } )->next; |
| 136 |
if ($location_av) { |
| 137 |
push @$locations_loop, $location_av; |
| 138 |
} |
| 139 |
} |
| 127 |
|
140 |
|
| 128 |
$template->param( |
141 |
$template->param( |
| 129 |
branchcode => $subs->{branchcode}, |
142 |
branchcode => $subs->{branchcode}, |
| 130 |
- |
|
|