Attachment 151378 Details for Bug 17385 – Bug 17385: (QA follow-up) Do not needlessly scan biblioexport folder

[patch] Bug 17385: (QA follow-up) Do not needlessly scan biblioexport folder

Bug-17385-QA-follow-up-Do-not-needlessly-scan-bibl.patch (text/plain), 2.80 KB, created by Hammat wele on 2023-05-17 19:37:03 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Hammat wele

Created: 2023-05-17 19:37:03 UTC

Size: 2.80 KB

patch

obsolete

>From f2f70512b03e64187d16e91ec1e06446fc2fec9c Mon Sep 17 00:00:00 2001
>From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
>Date: Fri, 22 Mar 2019 08:03:16 +0000
>Subject: [PATCH] Bug 17385: (QA follow-up) Do not needlessly scan biblioexport
> folder
>
>Performance: We need to return an empty list if OpacExportOptions does not contain Custom.  No need to scan the directory for custom files, if we are not using them at all.
>
>Note: The test only pertains to OPAC now, since the pref should not control intranet behavior. We have no intranet counterpart. See further next follow-up.
>
>Test plan:
>Run t/db_dependent/XSLT.t
>
>Signed-off-by: David Nind <david@davidnind.com>
>---
> C4/XSLT.pm            | 48 +++++++++++++++++++++++++++++++++++++++++++
> t/db_dependent/XSLT.t |  1 +
> 2 files changed, 49 insertions(+)
>
>diff --git a/C4/XSLT.pm b/C4/XSLT.pm
>index 97c028c223..63746d2a31 100644
>--- a/C4/XSLT.pm
>+++ b/C4/XSLT.pm
>@@ -409,6 +409,54 @@ sub engine {
>     return $engine;
> }
> 
>+=head2 CustomXSLTExportList
>+
>+ Returns list of file for custom xslt conversion
>+
>+=cut
>+
>+sub CustomXSLTExportList {
>+    my $opac = shift; # opac (1) vs intranet (0)
>+    return [] if $opac && C4::Context->preference('OpacExportOptions') !~ /custom/;
>+
>+    my @tabFiles;
>+
>+    my $dir = C4::Context->config( $opac ? 'opachtdocs' : 'intrahtdocs') .
>+                      '/' . C4::Context->preference( $opac ? "opacthemes" : "template") .
>+                      '/' . C4::Languages::getlanguage() .
>+                      '/xslt/biblioexport';
>+    my @files = glob qq("$dir/*.xsl");
>+    foreach my $file (@files) {
>+        if ( -f "$file" ) {
>+            (my $text = $file) =~ s/.*\///g;
>+
>+            ## Get title of the option
>+            my $dom;
>+            eval { $dom = XML::LibXML->load_xml( location => $file ); };
>+            next unless $dom;
>+
>+            my $node = $dom->documentElement();
>+            my $title = $node->{"title"};
>+            ($title = $text) =~ s/\.xsl// unless defined $title;
>+
>+            # Get output format
>+            # There should only be one xsl:output node, so taking the first one only is OK
>+            $node = @{$node->findnodes("xsl:output")}[0];
>+            my $outputformat= "";
>+            $outputformat = $node->{"method"} if $node;
>+            $outputformat = "txt" if ($outputformat eq "" || $outputformat eq "text");
>+
>+            my %row = (
>+                value       => $text,
>+                filename    => $title,
>+                format      => $outputformat,
>+            );
>+
>+            push @tabFiles, \%row;
>+        }
>+    }
>+    return \@tabFiles;
>+}
> 1;
> 
> __END__
>diff --git a/t/db_dependent/XSLT.t b/t/db_dependent/XSLT.t
>index 5f79b35b13..3c7b312075 100755
>--- a/t/db_dependent/XSLT.t
>+++ b/t/db_dependent/XSLT.t
>@@ -1,3 +1,4 @@
>+original
> #!/usr/bin/perl
> 
> # This file is part of Koha.
>-- 
>2.34.1

Actions: View | Diff | Splinter Review

Attachments on bug 17385: 55961 | 58308 | 64033 | 64034 | 67357 | 67579 | 74660 | 74661 | 79055 | 79056 | 80675 | 81385 | 81386 | 84388 | 84389 | 84390 | 86875 | 86876 | 86877 | 86878 | 86879 | 86880 | 97076 | 97101 | 97102 | 97103 | 97104 | 97105 | 100289 | 100290 | 100291 | 100292 | 100293 | 100663 | 100670 | 100671 | 100672 | 100673 | 100674 | 100675 | 112671 | 112672 | 112673 | 112674 | 112675 | 112676 | 112677 | 112678 | 112679 | 112680 | 112681 | 112682 | 112956 | 112957 | 112958 | 112959 | 130283 | 130284 | 130285 | 130286 | 130287 | 130691 | 130692 | 130693 | 130694 | 130695 | 131492 | 132488 | 132489 | 132490 | 132491 | 132492 | 132493 | 132581 | 133498 | 133499 | 133500 | 133501 | 133502 | 133503 | 133504 | 138031 | 138032 | 138033 | 138034 | 138035 | 138036 | 138037 | 138082 | 138083 | 138084 | 138085 | 138086 | 138087 | 138088 | 138132 | 139277 | 139278 | 139279 | 139280 | 139281 | 139282 | 139283 | 139284 | 141157 | 141158 | 141159 | 141160 | 141161 | 141162 | 141163 | 141164 | 144335 | 144336 | 144380 | 144384 | 151095 | 151096 | 151097 | 151098 | 151099 | 151102 | 151103 | 151104 | 151105 | 151106 | 151377 | 151378 | 151379 | 151380 | 151381 | 154379 | 154380 | 154381 | 154382 | 154383 | 156815 | 156816 | 156817 | 156818 | 156819 | 159142 | 159143 | 159144 | 159145 | 159146 | 159147 | 159148 | 163623 | 170014 | 170015 | 170016 | 170017 | 170018 | 170019 | 170026 | 170027 | 170028 | 170029 | 170030 | 170031 | 170983 | 170984 | 170985 | 170986 | 170987 | 170988