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

(-)a/C4/Biblio.pm (-1 lines)
Lines 2917-2923 sub ModBiblioMarc { Link Here
2917
2917
2918
    # Clone record as it gets modified
2918
    # Clone record as it gets modified
2919
    $record = $record->clone();
2919
    $record = $record->clone();
2920
    my $dbh      = C4::Context->dbh;
2921
    my @fields   = $record->fields();
2920
    my @fields   = $record->fields();
2922
    my $encoding = C4::Context->preference("marcflavour");
2921
    my $encoding = C4::Context->preference("marcflavour");
2923
2922
(-)a/C4/Circulation.pm (-1 lines)
Lines 431-437 sub TooMany { Link Here
431
    my $onsite_checkout        = $params->{onsite_checkout}        || 0;
431
    my $onsite_checkout        = $params->{onsite_checkout}        || 0;
432
    my $switch_onsite_checkout = $params->{switch_onsite_checkout} || 0;
432
    my $switch_onsite_checkout = $params->{switch_onsite_checkout} || 0;
433
    my $cat_borrower           = $patron->categorycode;
433
    my $cat_borrower           = $patron->categorycode;
434
    my $dbh                    = C4::Context->dbh;
435
434
436
    # Get which branchcode we need
435
    # Get which branchcode we need
437
    my $branch = _GetCircControlBranch( $item, $patron );
436
    my $branch = _GetCircControlBranch( $item, $patron );
(-)a/C4/InstallAuth.pm (-1 lines)
Lines 236-242 sub checkauth { Link Here
236
    my $type            = shift;
236
    my $type            = shift;
237
    $type = 'intranet' unless $type;
237
    $type = 'intranet' unless $type;
238
238
239
    my $dbh = C4::Context->dbh();
240
    my $template_name;
239
    my $template_name;
241
    $template_name = "installer/auth.tt";
240
    $template_name = "installer/auth.tt";
242
241
(-)a/C4/Search.pm (-2 lines)
Lines 88-94 This function attempts to find duplicate records using a hard-coded, fairly simp Link Here
88
88
89
sub FindDuplicate {
89
sub FindDuplicate {
90
    my ($record) = @_;
90
    my ($record) = @_;
91
    my $dbh      = C4::Context->dbh;
92
    my $result   = TransformMarcToKoha( { record => $record } );
91
    my $result   = TransformMarcToKoha( { record => $record } );
93
    my $sth;
92
    my $sth;
94
    my $query;
93
    my $query;
Lines 1659-1665 Format results in a form suitable for passing to the template Link Here
1659
# building the HTML output for the template
1658
# building the HTML output for the template
1660
sub searchResults {
1659
sub searchResults {
1661
    my ( $search_context, $searchdesc, $hits, $results_per_page, $offset, $scan, $marcresults, $xslt_variables ) = @_;
1660
    my ( $search_context, $searchdesc, $hits, $results_per_page, $offset, $scan, $marcresults, $xslt_variables ) = @_;
1662
    my $dbh = C4::Context->dbh;
1663
    my @newresults;
1661
    my @newresults;
1664
1662
1665
    require C4::Items;
1663
    require C4::Items;
(-)a/C4/XISBN.pm (-1 lines)
Lines 51-57 This module provides facilities for retrieving ThingISBN and XISBN content in Ko Link Here
51
51
52
sub _get_biblio_from_xisbn {
52
sub _get_biblio_from_xisbn {
53
    my $xisbn = shift;
53
    my $xisbn = shift;
54
    my $dbh   = C4::Context->dbh;
55
54
56
    my $searcher = Koha::SearchEngine::Search->new( { index => $Koha::SearchEngine::BIBLIOS_INDEX } );
55
    my $searcher = Koha::SearchEngine::Search->new( { index => $Koha::SearchEngine::BIBLIOS_INDEX } );
57
    my ( $errors, $results, $total_hits ) = $searcher->simple_search_compat( "nb=$xisbn", 0, 1 );
56
    my ( $errors, $results, $total_hits ) = $searcher->simple_search_compat( "nb=$xisbn", 0, 1 );
(-)a/acqui/histsearch.pl (-1 lines)
Lines 60-66 use Koha::DateUtils qw( dt_from_string ); Link Here
60
my $input     = CGI->new;
60
my $input     = CGI->new;
61
my $do_search = $input->param('do_search') || 0;
61
my $do_search = $input->param('do_search') || 0;
62
62
63
my $dbh = C4::Context->dbh;
64
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
63
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
65
    {
64
    {
66
        template_name => "acqui/histsearch.tt",
65
        template_name => "acqui/histsearch.tt",
(-)a/acqui/newordersuggestion.pl (-1 lines)
Lines 115-121 my $link_order = $input->param('link_order'); Link Here
115
115
116
$op = 'else' unless $op;
116
$op = 'else' unless $op;
117
117
118
my $dbh = C4::Context->dbh;
119
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
118
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
120
    {
119
    {
121
        template_name => "acqui/newordersuggestion.tt",
120
        template_name => "acqui/newordersuggestion.tt",
(-)a/authorities/authorities-home.pl (-1 lines)
Lines 37-43 use Koha::XSLT::Base; Link Here
37
use Koha::Z3950Servers;
37
use Koha::Z3950Servers;
38
38
39
my $query        = CGI->new;
39
my $query        = CGI->new;
40
my $dbh          = C4::Context->dbh;
41
my $op           = $query->param('op')           || '';
40
my $op           = $query->param('op')           || '';
42
my $authtypecode = $query->param('authtypecode') || '';
41
my $authtypecode = $query->param('authtypecode') || '';
43
my $authid       = $query->param('authid')       || '';
42
my $authid       = $query->param('authid')       || '';
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-1 lines)
Lines 55-61 my $builder = sub { Link Here
55
my $launcher = sub {
55
my $launcher = sub {
56
    my ($params) = @_;
56
    my ($params) = @_;
57
    my $query    = $params->{cgi};
57
    my $query    = $params->{cgi};
58
    my $dbh      = C4::Context->dbh;
59
    my $op       = $query->param('op') // '';
58
    my $op       = $query->param('op') // '';
60
59
61
    # -- op could be equal to
60
    # -- op could be equal to
(-)a/cataloguing/value_builder/unimarc_field_100.pl (-2 lines)
Lines 54-61 sub plugin { Link Here
54
    my $index   = $input->param('index');
54
    my $index   = $input->param('index');
55
    my $result  = $input->param('result');
55
    my $result  = $input->param('result');
56
56
57
    my $dbh = C4::Context->dbh;
58
59
    my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
57
    my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
60
    $defaultlanguage = "fre" if ( !$defaultlanguage || length($defaultlanguage) != 3 );
58
    $defaultlanguage = "fre" if ( !$defaultlanguage || length($defaultlanguage) != 3 );
61
59
(-)a/cataloguing/value_builder/unimarc_field_100_authorities.pl (-2 lines)
Lines 52-59 sub plugin { Link Here
52
    my $index   = $input->param('index');
52
    my $index   = $input->param('index');
53
    my $result  = $input->param('result');
53
    my $result  = $input->param('result');
54
54
55
    my $dbh = C4::Context->dbh;
56
57
    my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
55
    my $defaultlanguage = C4::Context->preference("UNIMARCField100Language");
58
    $defaultlanguage = "fre" if ( !$defaultlanguage || length($defaultlanguage) != 3 );
56
    $defaultlanguage = "fre" if ( !$defaultlanguage || length($defaultlanguage) != 3 );
59
57
(-)a/cataloguing/value_builder/unimarc_field_105.pl (-1 lines)
Lines 50-56 sub plugin { Link Here
50
    my $index   = $input->param('index');
50
    my $index   = $input->param('index');
51
    my $result  = $input->param('result');
51
    my $result  = $input->param('result');
52
52
53
    my $dbh = C4::Context->dbh;
54
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
53
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
55
        {
54
        {
56
            template_name => "cataloguing/value_builder/unimarc_field_105.tt",
55
            template_name => "cataloguing/value_builder/unimarc_field_105.tt",
(-)a/cataloguing/value_builder/unimarc_field_106.pl (-1 lines)
Lines 48-54 sub plugin { Link Here
48
    my $index   = $input->param('index');
48
    my $index   = $input->param('index');
49
    my $result  = $input->param('result') || q{};
49
    my $result  = $input->param('result') || q{};
50
50
51
    my $dbh = C4::Context->dbh;
52
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
51
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
53
        {
52
        {
54
            template_name => "cataloguing/value_builder/unimarc_field_106.tt",
53
            template_name => "cataloguing/value_builder/unimarc_field_106.tt",
(-)a/cataloguing/value_builder/unimarc_field_110.pl (-1 lines)
Lines 50-56 sub plugin { Link Here
50
    my $index   = $input->param('index');
50
    my $index   = $input->param('index');
51
    my $result  = $input->param('result');
51
    my $result  = $input->param('result');
52
52
53
    my $dbh = C4::Context->dbh;
54
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
53
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
55
        {
54
        {
56
            template_name => "cataloguing/value_builder/unimarc_field_110.tt",
55
            template_name => "cataloguing/value_builder/unimarc_field_110.tt",
(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-1 lines)
Lines 55-61 sub plugin { Link Here
55
    my $index   = $input->param('index');
55
    my $index   = $input->param('index');
56
    my $result  = $input->param('result');
56
    my $result  = $input->param('result');
57
57
58
    my $dbh = C4::Context->dbh;
59
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
58
    my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
60
        {
59
        {
61
            template_name => "cataloguing/value_builder/unimarc_field_115a.tt",
60
            template_name => "cataloguing/value_builder/unimarc_field_115a.tt",
(-)a/opac/opac-search-history.pl (-2 lines)
Lines 97-103 unless ($loggedinuser) { Link Here
97
} else {
97
} else {
98
98
99
    # And if the user is logged in, we deal with the database
99
    # And if the user is logged in, we deal with the database
100
    my $dbh = C4::Context->dbh;
101
100
102
    # Deleting search history
101
    # Deleting search history
103
    if ( $op eq 'cud-delete' ) {
102
    if ( $op eq 'cud-delete' ) {
104
- 

Return to bug 41454