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