gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added caching of results of GetMarcStructure 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2008-01-21 14:14:41 -06:00 committed by Joshua Ferraro
parent ff5bc241ff
commit a6bd90c48c
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C4/Biblio.pm
View File

@ -576,10 +576,19 @@ $frameworkcode : the framework code to read
=cut
# cache for results of GetMarcStructure -- needed
# for batch jobs
our $marc_structure_cache;
sub GetMarcStructure {
my ( $forlibrarian, $frameworkcode ) = @_;
my $dbh=C4::Context->dbh;
$frameworkcode = "" unless $frameworkcode;
if (defined $marc_structure_cache and exists $marc_structure_cache->{$forlibrarian}->{$frameworkcode}) {
return $marc_structure_cache->{$forlibrarian}->{$frameworkcode};
}
my $sth;
my $libfield = ( $forlibrarian eq 1 ) ? 'liblibrarian' : 'libopac';
@ -659,6 +668,9 @@ sub GetMarcStructure {
$res->{$tag}->{$subfield}->{'link'} = $link;
$res->{$tag}->{$subfield}->{defaultvalue} = $defaultvalue;
}
$marc_structure_cache->{$forlibrarian}->{$frameworkcode} = $res;
return $res;
}