|
Lines 91-97
use Module::Load::Conditional qw( can_load );
Link Here
|
| 91 |
use C4::Koha; |
91 |
use C4::Koha; |
| 92 |
use C4::Log qw( logaction ); # logaction |
92 |
use C4::Log qw( logaction ); # logaction |
| 93 |
use C4::Budgets; |
93 |
use C4::Budgets; |
| 94 |
use C4::ClassSource qw( GetClassSort ); |
94 |
use C4::ClassSource qw( GetClassSort GetClassSource ); |
| 95 |
use C4::Charset qw( |
95 |
use C4::Charset qw( |
| 96 |
nsb_clean |
96 |
nsb_clean |
| 97 |
SetMarcUnicodeFlag |
97 |
SetMarcUnicodeFlag |
|
Lines 1426-1431
sub GetAuthorisedValueDesc {
Link Here
|
| 1426 |
return $itemtype ? $itemtype->translated_description : q||; |
1426 |
return $itemtype ? $itemtype->translated_description : q||; |
| 1427 |
} |
1427 |
} |
| 1428 |
|
1428 |
|
|
|
1429 |
if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "cn_source" ) { |
| 1430 |
my $source = GetClassSource($value); |
| 1431 |
return $source ? $source->{description} : q||; |
| 1432 |
} |
| 1433 |
|
| 1429 |
#---- "true" authorized value |
1434 |
#---- "true" authorized value |
| 1430 |
$category = $tagslib->{$tag}->{$subfield}->{'authorised_value'}; |
1435 |
$category = $tagslib->{$tag}->{$subfield}->{'authorised_value'}; |
| 1431 |
} |
1436 |
} |
| 1432 |
- |
|
|