View | Details | Raw Unified | Return to bug 9967
Collapse All | Expand All

(-)a/C4/Koha.pm (-2 / +7 lines)
Lines 27-32 use C4::Context; Link Here
27
use C4::Branch qw(GetBranchesCount);
27
use C4::Branch qw(GetBranchesCount);
28
use Koha::DateUtils qw(dt_from_string);
28
use Koha::DateUtils qw(dt_from_string);
29
use Memoize;
29
use Memoize;
30
use Memoize::Expire;
30
use DateTime::Format::MySQL;
31
use DateTime::Format::MySQL;
31
use autouse 'Data::Dumper' => qw(Dumper);
32
use autouse 'Data::Dumper' => qw(Dumper);
32
use DBI qw(:sql_types);
33
use DBI qw(:sql_types);
Lines 78-84 BEGIN { Link Here
78
}
79
}
79
80
80
# expensive functions
81
# expensive functions
81
memoize('GetAuthorisedValues');
82
tie my %memoize_cache => 'Memoize::Expire',
83
  LIFETIME            => 10;
84
memoize('GetAuthorisedValues', SCALAR_HASH => [HASH => \%memoize_cache]);
82
85
83
=head1 NAME
86
=head1 NAME
84
87
Lines 1254-1259 Create a new authorised value. Link Here
1254
sub AddAuthorisedValue {
1257
sub AddAuthorisedValue {
1255
    my ($category, $authorised_value, $lib, $lib_opac, $imageurl) = @_;
1258
    my ($category, $authorised_value, $lib, $lib_opac, $imageurl) = @_;
1256
1259
1260
    # clear the memoize cache
1261
    flush_cache('AddAuthorisedValue');
1262
1257
    my $dbh = C4::Context->dbh;
1263
    my $dbh = C4::Context->dbh;
1258
    my $query = qq{
1264
    my $query = qq{
1259
        INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl)
1265
        INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl)
1260
- 

Return to bug 9967