Lines 68-74
Is only used in this module currently.
Link Here
|
68 |
sub transformMARCXML4XSLT { |
68 |
sub transformMARCXML4XSLT { |
69 |
my ($biblionumber, $record) = @_; |
69 |
my ($biblionumber, $record) = @_; |
70 |
my $frameworkcode = GetFrameworkCode($biblionumber) || ''; |
70 |
my $frameworkcode = GetFrameworkCode($biblionumber) || ''; |
|
|
71 |
my $cache = Koha::Cache->get_instance(); |
72 |
my $cache_key = "transformMARCXML4XSLT-$biblionumber"; |
73 |
my $cached = $cache->get_from_cache($cache_key); |
74 |
return $cached if $cached; |
75 |
|
71 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
76 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
|
|
77 |
|
72 |
my @fields; |
78 |
my @fields; |
73 |
# FIXME: wish there was a better way to handle exceptions |
79 |
# FIXME: wish there was a better way to handle exceptions |
74 |
eval { |
80 |
eval { |
Lines 95-100
sub transformMARCXML4XSLT {
Link Here
|
95 |
} |
101 |
} |
96 |
} |
102 |
} |
97 |
} |
103 |
} |
|
|
104 |
$cache->set_in_cache( "transformMARCXML4XSLT-$biblionumber", $record, { expiry => 3600 } ); |
98 |
return $record; |
105 |
return $record; |
99 |
} |
106 |
} |
100 |
|
107 |
|
101 |
- |
|
|