ctfliblime

package Plack::Middleware::Debug::CatchStderr;
use parent qw(Plack::Middleware::Debug::Base);

use strict;
use warnings;

our $VERSION = '0.001';

sub TIEHANDLE {
    my ($class, $fh) = @_;

ctfliblime

sub _koha_marc_update_bib_ids {
    my ($record, $frameworkcode, $biblionumber, $biblioitemnumber) = @_;

    my @isbns = $record->subfield('999','e'); # Account for 999$e field
    my $new_field = MARC::Field->new(
        '999' , '', '',
        'c' => $biblionumber,
        'd' => $biblioitemnumber,
        map { ('e' => $_) } @isbns
        );

ctfliblime

### a snippet from code added to opac/opac-search.pl

use vars qw($cache $MRXorig);

# This is not intended to be a long-term cache, but one that persists for
# only the duration one might expect to page around some search results.
# The max_size may need to be increased for very busy sites.
$cache = CHI->new(driver => 'Memory', global => 1, max_size => 3_000_000, expires_in => 120);

$MRXorig = \&MARC::Record::new_from_xml;