|
Lines 86-93
sub transformMARCXML4XSLT {
Link Here
|
| 86 |
$value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib ) |
86 |
$value = GetAuthorisedValueDesc( $tag, $letter, $value, '', $tagslib ) |
| 87 |
if $av->{ $tag }->{ $letter }; |
87 |
if $av->{ $tag }->{ $letter }; |
| 88 |
push( @new_subfields, $letter, $value ); |
88 |
push( @new_subfields, $letter, $value ); |
| 89 |
} |
89 |
} |
| 90 |
$field ->replace_with( MARC::Field->new( |
90 |
$field->replace_with( MARC::Field->new( |
| 91 |
$tag, |
91 |
$tag, |
| 92 |
$field->indicator(1), |
92 |
$field->indicator(1), |
| 93 |
$field->indicator(2), |
93 |
$field->indicator(2), |
|
Lines 220-225
sub XSLTParse4Display {
Link Here
|
| 220 |
$sysxml .= "<syspref name=\"singleBranchMode\">$singleBranchMode</syspref>\n"; |
220 |
$sysxml .= "<syspref name=\"singleBranchMode\">$singleBranchMode</syspref>\n"; |
| 221 |
|
221 |
|
| 222 |
$sysxml .= "</sysprefs>\n"; |
222 |
$sysxml .= "</sysprefs>\n"; |
|
|
223 |
|
| 224 |
## Non-syspref variables that need to be computed |
| 225 |
$sysxml .= "<OtherVars>"; |
| 226 |
|
| 227 |
# Fetch the authorised value description for 942$n ( supressed in opac ) for the value '1' |
| 228 |
# if 942$n is not mapped, the return value will be '1' which means even if the field is not |
| 229 |
# mapped in the framework, we will still get the correct value to compare against |
| 230 |
my $frameworkcode = GetFrameworkCode($biblionumber) || ''; |
| 231 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
| 232 |
my $value = GetAuthorisedValueDesc( '942', 'n', '1', '', $tagslib ); |
| 233 |
$sysxml .= "<OtherVar name=\"Field942_1_True_Value\">$value</OtherVar>"; |
| 234 |
|
| 235 |
$sysxml .= "</OtherVars>\n"; |
| 236 |
## End non-syspref variables that need to be computed |
| 237 |
|
| 223 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; |
238 |
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/; |
| 224 |
if ($fixamps) { # We need to correct the HTML entities that Zebra outputs |
239 |
if ($fixamps) { # We need to correct the HTML entities that Zebra outputs |
| 225 |
$xmlrecord =~ s/\&amp;/\&/g; |
240 |
$xmlrecord =~ s/\&amp;/\&/g; |