Avoid reading marc_tag_structure for each biblo record to
transform by XSLT. Not totaly useless on OPAC result page.
Should be done via application variables rather than
request variable, but this is another story.
---
C4/XSLT.pm | 25 ++++++++++++++++++-------
1 files changed, 18 insertions(+), 7 deletions(-)
diff --git a/C4/XSLT.pm b/C4/XSLT.pm
index 0fbfda1..8c576b3 100644
--- a/C4/XSLT.pm
+++ b/C4/XSLT.pm
@@ -94,16 +94,27 @@ sub transformMARCXML4XSLT {
=cut
+# Cache for tagfield-tagsubfield to decode per framework.
+# Should be preferably be placed in Koha-core...
+my %authval_per_framework;
+
sub getAuthorisedValues4MARCSubfields {
my ($frameworkcode) = @_;
- my @results;
- my $dbh = C4::Context->dbh;
- my $sth = $dbh->prepare("SELECT DISTINCT tagfield,tagsubfield FROM
marc_subfield_structure WHERE authorised_value IS NOT NULL AND
authorised_value!='' AND frameworkcode=?");
- $sth->execute($frameworkcode);
- while (my $result = $sth->fetchrow_hashref()) {
- push @results, $result;
+ unless ( $authval_per_framework{ $frameworkcode } ) {
+ my @results;
+ my $dbh = C4::Context->dbh;
+ my $sth = $dbh->prepare("SELECT DISTINCT tagfield, tagsubfield
+ FROM marc_subfield_structure
+ WHERE authorised_value IS NOT NULL
+ AND authorised_value!=''
+ AND frameworkcode=?");
+ $sth->execute( $frameworkcode );
+ while ( my $result = $sth->fetchrow_hashref() ) {
+ push ( @results, $result );
+ }
+ $authval_per_framework{ $frameworkcode } = \...@results;
}
- return \...@results;
+ return $authval_per_framework{ $frameworkcode };
}
my $stylesheet;
--
1.5.6.5
_______________________________________________
Koha-patches mailing list
Koha-patches@lists.koha.org
http://lists.koha.org/mailman/listinfo/koha-patches
