| 
      
            Lines 159-164
          sub _get_best_default_xslt_filename {
      
      
        Link Here
      
     | 
  
        
          | 159 | 
          sub XSLTParse4Display { | 
          159 | 
          sub XSLTParse4Display { | 
        
        
          | 160 | 
              my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items ) = @_;  | 
          160 | 
              my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items ) = @_;  | 
        
        
          | 161 | 
              my $xslfilename = C4::Context->preference($xslsyspref);  | 
          161 | 
              my $xslfilename = C4::Context->preference($xslsyspref);  | 
        
            
               | 
               | 
              162 | 
                  my $marcflavour = C4::Context->preference('marcflavour'); | 
            
        
          | 162 | 
              if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) { | 
          163 | 
              if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) { | 
        
        
          | 163 | 
                  my $htdocs;  | 
          164 | 
                  my $htdocs;  | 
        
        
          | 164 | 
                  my $theme;  | 
          165 | 
                  my $theme;  | 
        
  
    | 
      
            Lines 196-202
          sub XSLTParse4Display {
      
      
        Link Here
      
     | 
  
        
          | 196 | 
              # grab the XML, run it through our stylesheet, push it out to the browser  | 
          197 | 
              # grab the XML, run it through our stylesheet, push it out to the browser  | 
        
        
          | 197 | 
              my $record = transformMARCXML4XSLT($biblionumber, $orig_record);  | 
          198 | 
              my $record = transformMARCXML4XSLT($biblionumber, $orig_record);  | 
        
        
          | 198 | 
              my $itemsxml  = buildKohaItemsNamespace($biblionumber, $hidden_items);  | 
          199 | 
              my $itemsxml  = buildKohaItemsNamespace($biblionumber, $hidden_items);  | 
        
          
            
              | 199 | 
                  my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour')); | 
              200 | 
                  my $xmlrecord = $record->as_xml($marcflavour);  | 
            
        
          | 200 | 
              my $sysxml = "<sysprefs>\n";  | 
          201 | 
              my $sysxml = "<sysprefs>\n";  | 
        
        
          | 201 | 
              foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow  | 
          202 | 
              foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow  | 
        
        
          | 202 | 
                                        DisplayOPACiconsXSLT URLLinkText viewISBD  | 
          203 | 
                                        DisplayOPACiconsXSLT URLLinkText viewISBD  | 
        
  
    | 
      
            Lines 218-233
          sub XSLTParse4Display {
      
      
        Link Here
      
     | 
  
        
          | 218 | 
              ## Non-syspref variables that need to be computed  | 
          219 | 
              ## Non-syspref variables that need to be computed  | 
        
        
          | 219 | 
              $sysxml .= "<OtherVars>";  | 
          220 | 
              $sysxml .= "<OtherVars>";  | 
        
        
          | 220 | 
           | 
          221 | 
           | 
        
          
            
              | 221 | 
                  # Fetch the authorised value description for 942$n ( supressed in opac ) for the value '1'  | 
              222 | 
                  unless ( $marcflavour eq 'UNIMARC' ) { | 
            
            
              | 222 | 
                  # if 942$n is not mapped, the return value will be '1' which means even if the field is not  | 
              223 | 
                      # Fetch the authorised value description for 942$n ( supressed in opac ) for the value '1'  | 
            
            
              | 223 | 
                  # mapped in the framework, we will still get the correct value to compare against  | 
              224 | 
                      # if 942$n is not mapped, the return value will be '1' which means even if the field is not  | 
            
            
              | 224 | 
                  my $frameworkcode = GetFrameworkCode($biblionumber) || '';  | 
              225 | 
                      # mapped in the framework, we will still get the correct value to compare against  | 
            
            
              | 225 | 
                  my $tagslib = &GetMarcStructure(1,$frameworkcode);  | 
              226 | 
                      my $frameworkcode = GetFrameworkCode($biblionumber) || '';  | 
            
            
              | 226 | 
                  my $value = GetAuthorisedValueDesc( '942', 'n', '1', '', $tagslib );  | 
              227 | 
                      my $tagslib = &GetMarcStructure(1,$frameworkcode);  | 
            
            
              | 227 | 
                  $sysxml .= "<OtherVar name=\"Field942_1_True_Value\">$value</OtherVar>";  | 
              228 | 
                      my $value = GetAuthorisedValueDesc( '942', 'n', '1', '', $tagslib );  | 
            
            
              | 228 | 
               | 
              229 | 
                      $sysxml .= "<OtherVar name=\"Field942_1_True_Value\">$value</OtherVar>";  | 
            
            
              | 229 | 
                  $sysxml .= "</OtherVars>\n";  | 
              230 | 
               | 
            
            
              | 230 | 
                  ## End non-syspref variables that need to be computed  | 
              231 | 
                      $sysxml .= "</OtherVars>\n";  | 
            
            
               | 
               | 
              232 | 
                      ## End non-syspref variables that need to be computed  | 
            
            
              | 233 | 
                  }  | 
            
        
          | 231 | 
           | 
          234 | 
           | 
        
        
          | 232 | 
              $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/;  | 
          235 | 
              $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/;  | 
        
        
          | 233 | 
              if ($fixamps) { # We need to correct the HTML entities that Zebra outputs | 
          236 | 
              if ($fixamps) { # We need to correct the HTML entities that Zebra outputs | 
        
            
              | 234 | 
              -   | 
               | 
               |