X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=catalogue%2Fshowmarc.pl;h=0ee70c5fea0f6f63ca1914d71bab045860efa1d7;hb=5b6f89714d58d4a7c33b621b2cefbc02523dafa3;hp=1c453c4d13ca8699f4fd3c5d666213338267a58d;hpb=906bf789febd3e97bd23ed2cc1fcf3233bdfba9c;p=koha.git

diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl
index 1c453c4d13..0ee70c5fea 100755
--- a/catalogue/showmarc.pl
+++ b/catalogue/showmarc.pl
@@ -52,10 +52,13 @@ else {
 }
 
 if($view eq 'card') {
-    my $themelang = '/' . C4::Context->preference("opacthemes") .  '/' . C4::Templates::_current_language();
+    my $themelang =  '/' . C4::Templates::_current_language();
     my $xmlrecord= $importid? $record->as_xml(): GetXmlBiblio($biblionumber);
     my $xslfile =
-      C4::Context->config('intrahtdocs') . $themelang . "/xslt/compact.xsl";
+      C4::Context->config('intrahtdocs') . '/prog' . $themelang . "/xslt/compact.xsl";
+    if ( ! -f $xslfile && $themelang ne '/en' ) {
+        $xslfile=~s#$themelang#/en#;
+    }
     my $parser       = XML::LibXML->new();
     my $xslt         = XML::LibXSLT->new();
     my $source       = $parser->parse_string($xmlrecord);