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

(-)a/about.pl (-1 lines)
Lines 68-74 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
68
        query           => $query,
68
        query           => $query,
69
        type            => "intranet",
69
        type            => "intranet",
70
        flagsrequired   => { catalogue => 1 },
70
        flagsrequired   => { catalogue => 1 },
71
        debug           => 1,
72
    }
71
    }
73
);
72
);
74
73
(-)a/acqui/acqui-home.pl (-1 lines)
Lines 45-51 my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( Link Here
45
        query           => $query,
45
        query           => $query,
46
        type            => 'intranet',
46
        type            => 'intranet',
47
        flagsrequired   => { acquisition => '*' },
47
        flagsrequired   => { acquisition => '*' },
48
        debug           => 1,
49
    }
48
    }
50
);
49
);
51
50
(-)a/acqui/addorder.pl (-1 lines)
Lines 219-225 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
219
        query           => $input,
219
        query           => $input,
220
        type            => "intranet",
220
        type            => "intranet",
221
        flagsrequired   => { acquisition => 'order_manage' },
221
        flagsrequired   => { acquisition => 'order_manage' },
222
        debug           => 1,
223
    }
222
    }
224
);
223
);
225
224
(-)a/acqui/addorderiso2709.pl (-1 lines)
Lines 57-63 my ($template, $loggedinuser, $cookie, $userflags) = get_template_and_user({ Link Here
57
    query => $input,
57
    query => $input,
58
    type => "intranet",
58
    type => "intranet",
59
    flagsrequired   => { acquisition => 'order_manage' },
59
    flagsrequired   => { acquisition => 'order_manage' },
60
    debug => 1,
61
});
60
});
62
61
63
my $cgiparams = $input->Vars;
62
my $cgiparams = $input->Vars;
(-)a/acqui/basket.pl (-1 lines)
Lines 86-92 our ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( Link Here
86
        query           => $query,
86
        query           => $query,
87
        type            => "intranet",
87
        type            => "intranet",
88
        flagsrequired   => { acquisition => 'order_manage' },
88
        flagsrequired   => { acquisition => 'order_manage' },
89
        debug           => 1,
90
    }
89
    }
91
);
90
);
92
91
(-)a/acqui/basketgroup.pl (-1 lines)
Lines 66-72 our ($template, $loggedinuser, $cookie) Link Here
66
			     query => $input,
66
			     query => $input,
67
			     type => "intranet",
67
			     type => "intranet",
68
			     flagsrequired => {acquisition => 'group_manage'},
68
			     flagsrequired => {acquisition => 'group_manage'},
69
			     debug => 1,
70
                });
69
                });
71
70
72
sub BasketTotal {
71
sub BasketTotal {
(-)a/acqui/basketheader.pl (-1 lines)
Lines 64-70 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
64
        query           => $input,
64
        query           => $input,
65
        type            => "intranet",
65
        type            => "intranet",
66
       flagsrequired   => { acquisition => 'order_manage' },
66
       flagsrequired   => { acquisition => 'order_manage' },
67
        debug           => 1,
68
    }
67
    }
69
);
68
);
70
69
(-)a/acqui/booksellers.pl (-1 lines)
Lines 70-76 my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( Link Here
70
        query           => $query,
70
        query           => $query,
71
        type            => 'intranet',
71
        type            => 'intranet',
72
        flagsrequired   => { acquisition => '*' },
72
        flagsrequired   => { acquisition => '*' },
73
        debug           => 1,
74
    }
73
    }
75
);
74
);
76
75
(-)a/acqui/cancelorder.pl (-1 lines)
Lines 43-49 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { Link Here
43
    query           => $input,
43
    query           => $input,
44
    type            => 'intranet',
44
    type            => 'intranet',
45
    flagsrequired   => { 'acquisition' => 'order_manage' },
45
    flagsrequired   => { 'acquisition' => 'order_manage' },
46
    debug           => 1,
47
} );
46
} );
48
47
49
my $action = $input->param('action');
48
my $action = $input->param('action');
(-)a/acqui/check_budget_total.pl (-1 / +1 lines)
Lines 38-44 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
38
    {   template_name   => "acqui/ajax.tt",
38
    {   template_name   => "acqui/ajax.tt",
39
        query           => $input,
39
        query           => $input,
40
        type            => "intranet",
40
        type            => "intranet",
41
        debug => 1,    } );
41
} );
42
42
43
my $budget = GetBudget($budget_id);
43
my $budget = GetBudget($budget_id);
44
44
(-)a/acqui/edi_ean.pl (-1 lines)
Lines 52-58 else { Link Here
52
            query           => $query,
52
            query           => $query,
53
            type            => 'intranet',
53
            type            => 'intranet',
54
            flagsrequired   => { acquisition => 'order_manage' },
54
            flagsrequired   => { acquisition => 'order_manage' },
55
            debug           => 1,
56
        }
55
        }
57
    );
56
    );
58
    $template->param( eans     => \@eans );
57
    $template->param( eans     => \@eans );
(-)a/acqui/edifactmsgs.pl (-1 lines)
Lines 33-39 my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( Link Here
33
        query           => $q,
33
        query           => $q,
34
        type            => 'intranet',
34
        type            => 'intranet',
35
        flagsrequired   => { acquisition => 'edi_manage' },
35
        flagsrequired   => { acquisition => 'edi_manage' },
36
        debug           => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/acqui/edimsg.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( Link Here
31
        query           => $q,
31
        query           => $q,
32
        type            => 'intranet',
32
        type            => 'intranet',
33
        flagsrequired   => { acquisition => 'edi_manage' },
33
        flagsrequired   => { acquisition => 'edi_manage' },
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
my $msg_id = $q->param('id');
36
my $msg_id = $q->param('id');
(-)a/acqui/histsearch.pl (-1 lines)
Lines 69-75 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
69
        query           => $input,
69
        query           => $input,
70
        type            => "intranet",
70
        type            => "intranet",
71
        flagsrequired   => { acquisition => '*' },
71
        flagsrequired   => { acquisition => '*' },
72
        debug           => 1,
73
    }
72
    }
74
);
73
);
75
74
(-)a/acqui/invoice-files.pl (-1 lines)
Lines 42-48 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
42
        query           => $input,
42
        query           => $input,
43
        type            => 'intranet',
43
        type            => 'intranet',
44
        flagsrequired   => { 'acquisition' => '*' },
44
        flagsrequired   => { 'acquisition' => '*' },
45
        debug           => 1,
46
    }
45
    }
47
);
46
);
48
47
(-)a/acqui/invoice.pl (-1 lines)
Lines 47-53 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
47
        query           => $input,
47
        query           => $input,
48
        type            => 'intranet',
48
        type            => 'intranet',
49
        flagsrequired   => { 'acquisition' => '*' },
49
        flagsrequired   => { 'acquisition' => '*' },
50
        debug           => 1,
51
    }
50
    }
52
);
51
);
53
52
(-)a/acqui/invoices.pl (-1 lines)
Lines 44-50 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
44
        query           => $input,
44
        query           => $input,
45
        type            => 'intranet',
45
        type            => 'intranet',
46
        flagsrequired   => { 'acquisition' => '*' },
46
        flagsrequired   => { 'acquisition' => '*' },
47
        debug           => 1,
48
    }
47
    }
49
);
48
);
50
49
(-)a/acqui/lateorders.pl (-1 lines)
Lines 62-68 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
62
        query           => $input,
62
        query           => $input,
63
        type            => "intranet",
63
        type            => "intranet",
64
        flagsrequired   => { acquisition => 'order_receive' },
64
        flagsrequired   => { acquisition => 'order_receive' },
65
        debug           => 1,
66
    }
65
    }
67
);
66
);
68
67
(-)a/acqui/modordernotes.pl (-1 lines)
Lines 41-47 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { Link Here
41
    query           => $input,
41
    query           => $input,
42
    type            => 'intranet',
42
    type            => 'intranet',
43
    flagsrequired   => { 'acquisition' => '*' },
43
    flagsrequired   => { 'acquisition' => '*' },
44
    debug           => 1,
45
} );
44
} );
46
45
47
my $op = $input->param('op');
46
my $op = $input->param('op');
(-)a/acqui/neworderempty.pl (-2 lines)
Lines 116-122 our ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( Link Here
116
        query           => $input,
116
        query           => $input,
117
        type            => "intranet",
117
        type            => "intranet",
118
        flagsrequired   => { acquisition => 'order_manage' },
118
        flagsrequired   => { acquisition => 'order_manage' },
119
        debug           => 1,
120
    }
119
    }
121
);
120
);
122
121
Lines 591-597 sub Load_Duplicate { Link Here
591
        query           => $input,
590
        query           => $input,
592
        type            => "intranet",
591
        type            => "intranet",
593
        flagsrequired   => { acquisition => 'order_manage' },
592
        flagsrequired   => { acquisition => 'order_manage' },
594
#        debug           => 1,
595
    }
593
    }
596
  );
594
  );
597
595
(-)a/acqui/ordered.pl (-1 lines)
Lines 46-52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
46
        query           => $input,
46
        query           => $input,
47
        type            => "intranet",
47
        type            => "intranet",
48
        flagsrequired   => { acquisition => '*' },
48
        flagsrequired   => { acquisition => '*' },
49
        debug           => 1,
50
    }
49
    }
51
);
50
);
52
51
(-)a/acqui/orderreceive.pl (-1 lines)
Lines 97-103 my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( Link Here
97
        query           => $input,
97
        query           => $input,
98
        type            => "intranet",
98
        type            => "intranet",
99
        flagsrequired   => {acquisition => 'order_receive'},
99
        flagsrequired   => {acquisition => 'order_receive'},
100
        debug           => 1,
101
    }
100
    }
102
);
101
);
103
102
(-)a/acqui/parcel.pl (-1 lines)
Lines 81-87 my ($template, $loggedinuser, $cookie) Link Here
81
                 query => $input,
81
                 query => $input,
82
                 type => "intranet",
82
                 type => "intranet",
83
                 flagsrequired => {acquisition => 'order_receive'},
83
                 flagsrequired => {acquisition => 'order_receive'},
84
                 debug => 1,
85
});
84
});
86
85
87
my $op = $input->param('op') // '';
86
my $op = $input->param('op') // '';
(-)a/acqui/parcels.pl (-1 lines)
Lines 93-99 our ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
93
        query           => $input,
93
        query           => $input,
94
        type            => 'intranet',
94
        type            => 'intranet',
95
        flagsrequired   => { acquisition => 'order_receive' },
95
        flagsrequired   => { acquisition => 'order_receive' },
96
        debug           => 1,
97
    }
96
    }
98
);
97
);
99
98
(-)a/acqui/spent.pl (-1 lines)
Lines 48-54 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
48
        query           => $input,
48
        query           => $input,
49
        type            => "intranet",
49
        type            => "intranet",
50
        flagsrequired   => { acquisition => '*' },
50
        flagsrequired   => { acquisition => '*' },
51
        debug           => 1,
52
    }
51
    }
53
);
52
);
54
53
(-)a/acqui/supplier.pl (-1 lines)
Lines 60-66 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
60
        query           => $query,
60
        query           => $query,
61
        type            => 'intranet',
61
        type            => 'intranet',
62
        flagsrequired   => { acquisition => '*' },
62
        flagsrequired   => { acquisition => '*' },
63
        debug           => 1,
64
    }
63
    }
65
);
64
);
66
my $booksellerid       = $query->param('booksellerid');
65
my $booksellerid       = $query->param('booksellerid');
(-)a/acqui/uncertainprice.pl (-1 lines)
Lines 62-68 my ($template, $loggedinuser, $cookie) Link Here
62
			     query => $input,
62
			     query => $input,
63
			     type => "intranet",
63
			     type => "intranet",
64
			     flagsrequired   => { acquisition => 'order_manage' },
64
			     flagsrequired   => { acquisition => 'order_manage' },
65
			     debug => 1,
66
                });
65
                });
67
66
68
my $booksellerid = $input->param('booksellerid');
67
my $booksellerid = $input->param('booksellerid');
(-)a/admin/additional-fields.pl (-1 lines)
Lines 42-48 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
42
        query           => $input,
42
        query           => $input,
43
        type            => "intranet",
43
        type            => "intranet",
44
        flagsrequired   => \%flagsrequired,
44
        flagsrequired   => \%flagsrequired,
45
        debug           => 1,
46
    }
45
    }
47
);
46
);
48
47
(-)a/admin/admin-home.pl (-1 lines)
Lines 33-39 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
33
        query           => $query,
33
        query           => $query,
34
        type            => "intranet",
34
        type            => "intranet",
35
        flagsrequired   => { parameters => '*' },
35
        flagsrequired   => { parameters => '*' },
36
        debug           => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/admin/adveditorshortcuts.pl (-1 lines)
Lines 51-57 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
51
        query           => $input,
51
        query           => $input,
52
        type            => "intranet",
52
        type            => "intranet",
53
        flagsrequired   => { parameters => 'manage_keyboard_shortcuts' },
53
        flagsrequired   => { parameters => 'manage_keyboard_shortcuts' },
54
        debug           => 1,
55
    }
54
    }
56
);
55
);
57
56
(-)a/admin/aqbudgetperiods.pl (-1 lines)
Lines 83-89 my ($template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user( Link Here
83
        query           => $input,
83
        query           => $input,
84
        type            => "intranet",
84
        type            => "intranet",
85
        flagsrequired   => { acquisition => 'period_manage' },
85
        flagsrequired   => { acquisition => 'period_manage' },
86
        debug           => 1,
87
    }
86
    }
88
);
87
);
89
88
(-)a/admin/aqbudgets.pl (-1 lines)
Lines 44-50 my ($template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user( Link Here
44
        query           => $input,
44
        query           => $input,
45
        type            => "intranet",
45
        type            => "intranet",
46
        flagsrequired   => { acquisition => 'budget_manage' },
46
        flagsrequired   => { acquisition => 'budget_manage' },
47
        debug           => 0,
48
    }
47
    }
49
);
48
);
50
49
(-)a/admin/aqcontract.pl (-1 lines)
Lines 42-48 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
42
        query           => $input,
42
        query           => $input,
43
        type            => "intranet",
43
        type            => "intranet",
44
        flagsrequired   => { acquisition => 'contracts_manage' },
44
        flagsrequired   => { acquisition => 'contracts_manage' },
45
        debug           => 1,
46
    }
45
    }
47
);
46
);
48
47
(-)a/admin/aqplan.pl (-1 lines)
Lines 46-52 my ( $template, $borrowernumber, $cookie, $staff_flags ) = get_template_and_user Link Here
46
        query           => $input,
46
        query           => $input,
47
        type            => "intranet",
47
        type            => "intranet",
48
        flagsrequired   => { acquisition => 'planning_manage' },
48
        flagsrequired   => { acquisition => 'planning_manage' },
49
        debug           => 0,
50
    }
49
    }
51
);
50
);
52
51
(-)a/admin/audio_alerts.pl (-1 lines)
Lines 40-46 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
40
        query           => $cgi,
40
        query           => $cgi,
41
        type            => "intranet",
41
        type            => "intranet",
42
        flagsrequired   => { parameters => 'manage_audio_alerts' },
42
        flagsrequired   => { parameters => 'manage_audio_alerts' },
43
        debug           => 1,
44
    }
43
    }
45
);
44
);
46
45
(-)a/admin/auth_subfields_structure.pl (-1 lines)
Lines 42-48 my ($template, $borrowernumber, $cookie) = get_template_and_user( Link Here
42
        query           => $input,
42
        query           => $input,
43
        type            => "intranet",
43
        type            => "intranet",
44
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
44
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
45
        debug           => 1,
46
    }
45
    }
47
);
46
);
48
my $pagesize = 30;
47
my $pagesize = 30;
(-)a/admin/auth_tag_structure.pl (-1 lines)
Lines 50-56 my ($template, $loggedinuser, $cookie) Link Here
50
                 query => $input,
50
                 query => $input,
51
                 type => "intranet",
51
                 type => "intranet",
52
                 flagsrequired => {parameters => 'manage_marc_frameworks'},
52
                 flagsrequired => {parameters => 'manage_marc_frameworks'},
53
                 debug => 1,
54
                 });
53
                 });
55
54
56
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypecode'] } );
55
my $authority_types = Koha::Authority::Types->search( {}, { order_by => ['authtypecode'] } );
(-)a/admin/authorised_values.pl (-1 lines)
Lines 44-50 our ($template, $borrowernumber, $cookie)= get_template_and_user({ Link Here
44
    flagsrequired => {parameters => 'manage_auth_values'},
44
    flagsrequired => {parameters => 'manage_auth_values'},
45
    query => $input,
45
    query => $input,
46
    type => "intranet",
46
    type => "intranet",
47
    debug => 1,
48
});
47
});
49
48
50
################## ADD_FORM ##################################
49
################## ADD_FORM ##################################
(-)a/admin/authtypes.pl (-1 lines)
Lines 37-43 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
37
        query           => $input,
37
        query           => $input,
38
        type            => "intranet",
38
        type            => "intranet",
39
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
39
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
40
        debug           => 1,
41
    }
40
    }
42
);
41
);
43
42
(-)a/admin/background_jobs.pl (-1 lines)
Lines 40-46 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
40
        query           => $input,
40
        query           => $input,
41
        type            => "intranet",
41
        type            => "intranet",
42
        flagsrequired   => $flags_required,
42
        flagsrequired   => $flags_required,
43
        debug           => 1,
44
    }
43
    }
45
);
44
);
46
45
(-)a/admin/biblio_framework.pl (-1 lines)
Lines 39-45 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
39
        query           => $input,
39
        query           => $input,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
41
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
44
(-)a/admin/branch_transfer_limits.pl (-1 lines)
Lines 34-40 my ($template, $loggedinuser, $cookie) Link Here
34
			     query => $input,
34
			     query => $input,
35
			     type => "intranet",
35
			     type => "intranet",
36
                 flagsrequired => {parameters => 'manage_transfers'},
36
                 flagsrequired => {parameters => 'manage_transfers'},
37
			     debug => 1,
38
			     });
37
			     });
39
38
40
my $dbh = C4::Context->dbh;
39
my $dbh = C4::Context->dbh;
(-)a/admin/branches.pl (-1 lines)
Lines 45-51 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
45
        query           => $input,
45
        query           => $input,
46
        type            => "intranet",
46
        type            => "intranet",
47
        flagsrequired   => { parameters => 'manage_libraries' },
47
        flagsrequired   => { parameters => 'manage_libraries' },
48
        debug           => 1,
49
    }
48
    }
50
);
49
);
51
50
(-)a/admin/categories.pl (-1 lines)
Lines 43-49 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
43
        query           => $input,
43
        query           => $input,
44
        type            => "intranet",
44
        type            => "intranet",
45
        flagsrequired   => { parameters => 'manage_patron_categories' },
45
        flagsrequired   => { parameters => 'manage_patron_categories' },
46
        debug           => 1,
47
    }
46
    }
48
);
47
);
49
48
(-)a/admin/check_budget_parent.pl (-1 lines)
Lines 40-46 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
40
    {   template_name   => "acqui/ajax.tt",
40
    {   template_name   => "acqui/ajax.tt",
41
        query           => $input,
41
        query           => $input,
42
        type            => "intranet",
42
        type            => "intranet",
43
        debug           => 0,
44
    }
43
    }
45
);
44
);
46
45
(-)a/admin/check_parent_total.pl (-1 lines)
Lines 46-52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
46
    {   template_name   => "acqui/ajax.tt",
46
    {   template_name   => "acqui/ajax.tt",
47
        query           => $input,
47
        query           => $input,
48
        type            => "intranet",
48
        type            => "intranet",
49
        debug           => 0,
50
    }
49
    }
51
);
50
);
52
my ($period, $parent , $budget);
51
my ($period, $parent , $budget);
(-)a/admin/checkmarc.pl (-1 lines)
Lines 33-39 my ($template, $borrowernumber, $cookie) Link Here
33
			     query => $input,
33
			     query => $input,
34
			     type => "intranet",
34
			     type => "intranet",
35
                 flagsrequired => { parameters => 'manage_marc_frameworks' },
35
                 flagsrequired => { parameters => 'manage_marc_frameworks' },
36
			     debug => 1,
37
			     });
36
			     });
38
37
39
my $dbh = C4::Context->dbh;
38
my $dbh = C4::Context->dbh;
(-)a/admin/cities.pl (-1 lines)
Lines 37-43 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
37
        query           => $input,
37
        query           => $input,
38
        type            => "intranet",
38
        type            => "intranet",
39
        flagsrequired   => { parameters => 'manage_cities' },
39
        flagsrequired   => { parameters => 'manage_cities' },
40
        debug           => 1,
41
    }
40
    }
42
);
41
);
43
42
(-)a/admin/classsources.pl (-1 lines)
Lines 50-56 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
50
        query           => $input,
50
        query           => $input,
51
        type            => "intranet",
51
        type            => "intranet",
52
        flagsrequired   => { parameters => 'manage_classifications' },
52
        flagsrequired   => { parameters => 'manage_classifications' },
53
        debug           => 1,
54
    }
53
    }
55
);
54
);
56
55
(-)a/admin/clone-rules.pl (-1 lines)
Lines 41-47 my ($template, $loggedinuser, $cookie) Link Here
41
                            query => $input,
41
                            query => $input,
42
                            type => "intranet",
42
                            type => "intranet",
43
                            flagsrequired => {parameters => 'manage_circ_rules'},
43
                            flagsrequired => {parameters => 'manage_circ_rules'},
44
                            debug => 1,
45
                            });
44
                            });
46
45
47
my $frombranch = $input->param("frombranch");
46
my $frombranch = $input->param("frombranch");
(-)a/admin/columns_settings.pl (-1 lines)
Lines 14-20 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
14
        query           => $input,
14
        query           => $input,
15
        type            => "intranet",
15
        type            => "intranet",
16
        flagsrequired   => { parameters => 'manage_column_config' },
16
        flagsrequired   => { parameters => 'manage_column_config' },
17
        debug           => 1,
18
    }
17
    }
19
);
18
);
20
19
(-)a/admin/credit_types.pl (-1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
39
        query           => $input,
39
        query           => $input,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => { parameters => 'manage_accounts' },
41
        flagsrequired   => { parameters => 'manage_accounts' },
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
44
(-)a/admin/debit_types.pl (-1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
39
        query           => $input,
39
        query           => $input,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => { parameters => 'manage_accounts' },
41
        flagsrequired   => { parameters => 'manage_accounts' },
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
44
(-)a/admin/desks.pl (-1 lines)
Lines 38-44 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
38
        type            => "intranet",
38
        type            => "intranet",
39
        authnotrequired => 0,
39
        authnotrequired => 0,
40
        flagsrequired   => { parameters => 'manage_libraries' },
40
        flagsrequired   => { parameters => 'manage_libraries' },
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/admin/didyoumean.pl (-1 lines)
Lines 16-22 my ($template, $loggedinuser, $cookie) Link Here
16
            query => $input,
16
            query => $input,
17
            type => "intranet",
17
            type => "intranet",
18
            flagsrequired => {parameters => 'manage_didyoumean'},
18
            flagsrequired => {parameters => 'manage_didyoumean'},
19
            debug => 1,
20
            });
19
            });
21
20
22
my $opacplugins = from_json(C4::Context->preference('OPACdidyoumean') || '[]');
21
my $opacplugins = from_json(C4::Context->preference('OPACdidyoumean') || '[]');
(-)a/admin/itemtypes.pl (-1 lines)
Lines 46-52 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
46
        query           => $input,
46
        query           => $input,
47
        type            => "intranet",
47
        type            => "intranet",
48
        flagsrequired   => { parameters => 'manage_itemtypes' },
48
        flagsrequired   => { parameters => 'manage_itemtypes' },
49
        debug           => 1,
50
    }
49
    }
51
);
50
);
52
51
(-)a/admin/koha2marclinks.pl (-1 lines)
Lines 37-43 my ( $template, $borrowernumber, $cookie ) = get_template_and_user ( Link Here
37
        query           => $input,
37
        query           => $input,
38
        type            => "intranet",
38
        type            => "intranet",
39
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
39
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
40
        debug           => 1,
41
    }
40
    }
42
);
41
);
43
42
(-)a/admin/library_groups.pl (-1 lines)
Lines 35-41 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
35
        query           => $cgi,
35
        query           => $cgi,
36
        type            => "intranet",
36
        type            => "intranet",
37
        flagsrequired   => { parameters => 'manage_libraries' },
37
        flagsrequired   => { parameters => 'manage_libraries' },
38
        debug           => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/admin/localization.pl (-1 lines)
Lines 33-39 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
33
        flagsrequired   => { parameters => 'manage_itemtypes' },
33
        flagsrequired   => { parameters => 'manage_itemtypes' },
34
        query           => $query,
34
        query           => $query,
35
        type            => "intranet",
35
        type            => "intranet",
36
        debug           => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/admin/marc_subfields_structure.pl (-1 lines)
Lines 44-50 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
44
        query           => $input,
44
        query           => $input,
45
        type            => "intranet",
45
        type            => "intranet",
46
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
46
        flagsrequired   => { parameters => 'manage_marc_frameworks' },
47
        debug           => 1,
48
    }
47
    }
49
);
48
);
50
my $cache = Koha::Caches->get_instance();
49
my $cache = Koha::Caches->get_instance();
(-)a/admin/marctagstructure.pl (-1 lines)
Lines 53-59 my ($template, $loggedinuser, $cookie) Link Here
53
			     query => $input,
53
			     query => $input,
54
			     type => "intranet",
54
			     type => "intranet",
55
                 flagsrequired => { parameters => 'manage_marc_frameworks' },
55
                 flagsrequired => { parameters => 'manage_marc_frameworks' },
56
			     debug => 1,
57
			     });
56
			     });
58
57
59
my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });
58
my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });
(-)a/admin/matching-rules.pl (-1 lines)
Lines 38-44 my ($template, $loggedinuser, $cookie) Link Here
38
                 query => $input,
38
                 query => $input,
39
                 type => "intranet",
39
                 type => "intranet",
40
                 flagsrequired => { parameters => 'manage_matching_rules' },
40
                 flagsrequired => { parameters => 'manage_matching_rules' },
41
                 debug => 1,
42
                 });
41
                 });
43
42
44
$template->param(script_name => $script_name);
43
$template->param(script_name => $script_name);
(-)a/admin/oai_set_mappings.pl (-1 lines)
Lines 45-51 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { Link Here
45
    query           => $input,
45
    query           => $input,
46
    type            => 'intranet',
46
    type            => 'intranet',
47
    flagsrequired   => { 'parameters' => 'manage_oai_sets' },
47
    flagsrequired   => { 'parameters' => 'manage_oai_sets' },
48
    debug           => 1,
49
} );
48
} );
50
49
51
my $id = $input->param('id');
50
my $id = $input->param('id');
(-)a/admin/oai_sets.pl (-1 lines)
Lines 41-47 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { Link Here
41
    query           => $input,
41
    query           => $input,
42
    type            => 'intranet',
42
    type            => 'intranet',
43
    flagsrequired   => { 'parameters' => 'manage_oai_sets' },
43
    flagsrequired   => { 'parameters' => 'manage_oai_sets' },
44
    debug           => 1,
45
} );
44
} );
46
45
47
my $op = $input->param('op');
46
my $op = $input->param('op');
(-)a/admin/preferences.pl (-1 lines)
Lines 334-340 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
334
        query           => $input,
334
        query           => $input,
335
        type            => "intranet",
335
        type            => "intranet",
336
        flagsrequired   => { parameters => 'manage_sysprefs' },
336
        flagsrequired   => { parameters => 'manage_sysprefs' },
337
        debug           => 1,
338
    }
337
    }
339
);
338
);
340
339
(-)a/admin/share_content.pl (-1 lines)
Lines 33-39 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
33
        query           => $query,
33
        query           => $query,
34
        type            => "intranet",
34
        type            => "intranet",
35
        flagsrequired   => { parameters => 'manage_mana' },
35
        flagsrequired   => { parameters => 'manage_mana' },
36
        debug           => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/admin/smart-rules.pl (-1 lines)
Lines 43-49 my ($template, $loggedinuser, $cookie) Link Here
43
                            query => $input,
43
                            query => $input,
44
                            type => "intranet",
44
                            type => "intranet",
45
                            flagsrequired => {parameters => 'manage_circ_rules'},
45
                            flagsrequired => {parameters => 'manage_circ_rules'},
46
                            debug => 1,
47
                            });
46
                            });
48
47
49
my $type=$input->param('type');
48
my $type=$input->param('type');
(-)a/admin/sms_providers.pl (-1 lines)
Lines 36-42 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
36
        query           => $cgi,
36
        query           => $cgi,
37
        type            => "intranet",
37
        type            => "intranet",
38
        flagsrequired   => { parameters => 'manage_sms_providers' },
38
        flagsrequired   => { parameters => 'manage_sms_providers' },
39
        debug           => 1,
40
    }
39
    }
41
);
40
);
42
41
(-)a/admin/systempreferences.pl (-1 lines)
Lines 216-222 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
216
        query           => $input,
216
        query           => $input,
217
        type            => "intranet",
217
        type            => "intranet",
218
        flagsrequired   => { parameters => 'manage_sysprefs' },
218
        flagsrequired   => { parameters => 'manage_sysprefs' },
219
        debug           => 1,
220
    }
219
    }
221
);
220
);
222
my $pagesize = 100;
221
my $pagesize = 100;
(-)a/admin/transfer_limits.pl (-1 lines)
Lines 35-41 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
35
        query         => $input,
35
        query         => $input,
36
        type          => "intranet",
36
        type          => "intranet",
37
        flagsrequired => { parameters => 'manage_transfers' },
37
        flagsrequired => { parameters => 'manage_transfers' },
38
        debug         => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/admin/transport-cost-matrix.pl (-1 lines)
Lines 37-43 my ($template, $loggedinuser, $cookie) Link Here
37
                            query => $input,
37
                            query => $input,
38
                            type => "intranet",
38
                            type => "intranet",
39
                            flagsrequired => { parameters => 'manage_transfers' },
39
                            flagsrequired => { parameters => 'manage_transfers' },
40
                            debug => 1,
41
                            });
40
                            });
42
my $use_transport_cost_matrix = C4::Context->preference("UseTransportCostMatrix");
41
my $use_transport_cost_matrix = C4::Context->preference("UseTransportCostMatrix");
43
42
(-)a/admin/usage_statistics.pl (-1 lines)
Lines 30-36 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
30
        query           => $query,
30
        query           => $query,
31
        type            => "intranet",
31
        type            => "intranet",
32
        flagsrequired   => { parameters => 'manage_usage_stats' },
32
        flagsrequired   => { parameters => 'manage_usage_stats' },
33
        debug           => 1,
34
    }
33
    }
35
);
34
);
36
35
(-)a/admin/z3950servers.pl (-1 lines)
Lines 45-51 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { Link Here
45
    query => $input,
45
    query => $input,
46
    type => "intranet",
46
    type => "intranet",
47
    flagsrequired => { parameters => 'manage_search_targets' },
47
    flagsrequired => { parameters => 'manage_search_targets' },
48
    debug => 1,
49
});
48
});
50
my $script_name = "/cgi-bin/koha/admin/z3950servers.pl";
49
my $script_name = "/cgi-bin/koha/admin/z3950servers.pl";
51
$template->param( script_name => $script_name );
50
$template->param( script_name => $script_name );
(-)a/authorities/authorities-home.pl (-3 lines)
Lines 55-61 if ( $op eq "delete" ) { Link Here
55
            query           => $query,
55
            query           => $query,
56
            type            => 'intranet',
56
            type            => 'intranet',
57
            flagsrequired   => { catalogue => 1 },
57
            flagsrequired   => { catalogue => 1 },
58
            debug           => 1,
59
        }
58
        }
60
    );
59
    );
61
60
Lines 105-111 if ( $op eq "do_search" ) { Link Here
105
            query           => $query,
104
            query           => $query,
106
            type            => 'intranet',
105
            type            => 'intranet',
107
            flagsrequired   => { catalogue => 1 },
106
            flagsrequired   => { catalogue => 1 },
108
            debug           => 1,
109
        }
107
        }
110
    );
108
    );
111
109
Lines 203-209 if ( $op eq '' ) { Link Here
203
            query           => $query,
201
            query           => $query,
204
            type            => 'intranet',
202
            type            => 'intranet',
205
            flagsrequired   => { catalogue => 1 },
203
            flagsrequired   => { catalogue => 1 },
206
            debug           => 1,
207
        }
204
        }
208
    );
205
    );
209
206
(-)a/authorities/authorities.pl (-1 lines)
Lines 581-587 my ($template, $loggedinuser, $cookie) Link Here
581
                            query => $input,
581
                            query => $input,
582
                            type => "intranet",
582
                            type => "intranet",
583
                            flagsrequired => {editauthorities => 1},
583
                            flagsrequired => {editauthorities => 1},
584
                            debug => 1,
585
                            });
584
                            });
586
$template->param(nonav   => $nonav,index=>$myindex,authtypecode=>$authtypecode,breedingid=>$breedingid);
585
$template->param(nonav   => $nonav,index=>$myindex,authtypecode=>$authtypecode,breedingid=>$breedingid);
587
586
(-)a/authorities/detail-biblio-search.pl (-1 lines)
Lines 68-74 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
68
        query           => $query,
68
        query           => $query,
69
        type            => "intranet",
69
        type            => "intranet",
70
        flagsrequired   => { catalogue => 1 },
70
        flagsrequired   => { catalogue => 1 },
71
        debug           => 1,
72
    }
71
    }
73
);
72
);
74
73
(-)a/authorities/detail.pl (-1 lines)
Lines 175-181 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
175
        query           => $query,
175
        query           => $query,
176
        type            => "intranet",
176
        type            => "intranet",
177
        flagsrequired   => { catalogue => 1 },
177
        flagsrequired   => { catalogue => 1 },
178
        debug           => 1,
179
    }
178
    }
180
);
179
);
181
180
(-)a/authorities/export.pl (-1 lines)
Lines 14-20 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
14
        query           => $query,
14
        query           => $query,
15
        type            => "intranet",
15
        type            => "intranet",
16
        flagsrequired   => { catalogue => 1 },
16
        flagsrequired   => { catalogue => 1 },
17
        debug           => 1,
18
    }
17
    }
19
);
18
);
20
19
(-)a/catalogue/MARCdetail.pl (-1 lines)
Lines 83-89 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
83
        query           => $query,
83
        query           => $query,
84
        type            => "intranet",
84
        type            => "intranet",
85
        flagsrequired   => { catalogue => 1 },
85
        flagsrequired   => { catalogue => 1 },
86
        debug           => 1,
87
    }
86
    }
88
);
87
);
89
88
(-)a/catalogue/export.pl (-1 lines)
Lines 16-22 my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ Link Here
16
    query           => $query,
16
    query           => $query,
17
    type            => "intranet",
17
    type            => "intranet",
18
    flagsrequired   => { catalogue => 1 },
18
    flagsrequired   => { catalogue => 1 },
19
    debug           => 1,
20
    });
19
    });
21
20
22
my $op=$query->param("op");
21
my $op=$query->param("op");
(-)a/catalogue/labeledMARCdetail.pl (-1 lines)
Lines 50-56 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
50
        query           => $query,
50
        query           => $query,
51
        type            => "intranet",
51
        type            => "intranet",
52
        flagsrequired   => { catalogue => 1 },
52
        flagsrequired   => { catalogue => 1 },
53
        debug           => 1,
54
    }
53
    }
55
);
54
);
56
55
(-)a/catalogue/showmarc.pl (-1 lines)
Lines 42-48 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
42
    query           => $input,
42
    query           => $input,
43
    type            => "intranet",
43
    type            => "intranet",
44
    flagsrequired   => { catalogue => 1  },
44
    flagsrequired   => { catalogue => 1  },
45
    debug           => 1,
46
  }
45
  }
47
);
46
);
48
47
(-)a/cataloguing/addbooks.pl (-1 lines)
Lines 57-63 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
57
        query           => $input,
57
        query           => $input,
58
        type            => "intranet",
58
        type            => "intranet",
59
        flagsrequired   => { editcatalogue => '*' },
59
        flagsrequired   => { editcatalogue => '*' },
60
        debug           => 1,
61
    }
60
    }
62
);
61
);
63
62
(-)a/cataloguing/additem.pl (-1 lines)
Lines 430-436 my ($template, $loggedinuser, $cookie) Link Here
430
                 query => $input,
430
                 query => $input,
431
                 type => "intranet",
431
                 type => "intranet",
432
                 flagsrequired => {editcatalogue => $userflags},
432
                 flagsrequired => {editcatalogue => $userflags},
433
                 debug => 1,
434
                 });
433
                 });
435
434
436
435
(-)a/cataloguing/linkitem.pl (-1 lines)
Lines 41-47 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
41
        query           => $query,
41
        query           => $query,
42
        type            => "intranet",
42
        type            => "intranet",
43
        flagsrequired   => { editcatalogue => 'edit_catalogue' },
43
        flagsrequired   => { editcatalogue => 'edit_catalogue' },
44
        debug           => 1,
45
    }
44
    }
46
);
45
);
47
46
(-)a/cataloguing/moveitem.pl (-1 lines)
Lines 53-59 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
53
        query           => $query,
53
        query           => $query,
54
        type            => "intranet",
54
        type            => "intranet",
55
        flagsrequired   => { editcatalogue => 'edit_items' },
55
        flagsrequired   => { editcatalogue => 'edit_items' },
56
        debug           => 1,
57
    }
56
    }
58
);
57
);
59
58
(-)a/cataloguing/value_builder/callnumber-KU.pl (-1 lines)
Lines 71-77 my $launcher = sub { Link Here
71
        query           => $input,
71
        query           => $input,
72
        type            => "intranet",
72
        type            => "intranet",
73
        flagsrequired   => {editcatalogue => '*'},
73
        flagsrequired   => {editcatalogue => '*'},
74
        debug           => 1,
75
    });
74
    });
76
75
77
    my $BASE_CALLNUMBER_RE = qr/^(\w+) (\w+)$/;
76
    my $BASE_CALLNUMBER_RE = qr/^(\w+) (\w+)$/;
(-)a/cataloguing/value_builder/callnumber.pl (-1 lines)
Lines 69-75 my $launcher = sub { Link Here
69
        query           => $input,
69
        query           => $input,
70
        type            => "intranet",
70
        type            => "intranet",
71
        flagsrequired   => {editcatalogue => '*'},
71
        flagsrequired   => {editcatalogue => '*'},
72
        debug           => 1,
73
    });
72
    });
74
73
75
    my $dbh = C4::Context->dbh;
74
    my $dbh = C4::Context->dbh;
(-)a/cataloguing/value_builder/macles.pl (-1 lines)
Lines 161-167 my $launcher = sub { Link Here
161
                    query => $input,
161
                    query => $input,
162
                    type => "intranet",
162
                    type => "intranet",
163
                    flagsrequired => {editcatalogue => '*'},
163
                    flagsrequired => {editcatalogue => '*'},
164
                    debug => 1,
165
                    });
164
                    });
166
    $template->param(BIGLOOP=>\@BIGLOOP);
165
    $template->param(BIGLOOP=>\@BIGLOOP);
167
	$template->param("index"=>$index);
166
	$template->param("index"=>$index);
(-)a/cataloguing/value_builder/marc21_field_006.pl (-1 lines)
Lines 59-65 my $launcher = sub { Link Here
59
            query           => $input,
59
            query           => $input,
60
            type            => "intranet",
60
            type            => "intranet",
61
            flagsrequired   => { editcatalogue => '*' },
61
            flagsrequired   => { editcatalogue => '*' },
62
            debug           => 1,
63
        }
62
        }
64
    );
63
    );
65
    $result = "a|||||r|||| 00| 0 " unless $result;
64
    $result = "a|||||r|||| 00| 0 " unless $result;
(-)a/cataloguing/value_builder/marc21_field_007.pl (-1 lines)
Lines 58-64 my $launcher = sub { Link Here
58
            query           => $input,
58
            query           => $input,
59
            type            => "intranet",
59
            type            => "intranet",
60
            flagsrequired   => { editcatalogue => '*' },
60
            flagsrequired   => { editcatalogue => '*' },
61
            debug           => 1,
62
        }
61
        }
63
    );
62
    );
64
63
(-)a/cataloguing/value_builder/marc21_field_008.pl (-1 lines)
Lines 139-145 my $launcher = sub { Link Here
139
            query           => $input,
139
            query           => $input,
140
            type            => "intranet",
140
            type            => "intranet",
141
            flagsrequired   => { editcatalogue => '*' },
141
            flagsrequired   => { editcatalogue => '*' },
142
            debug           => 1,
143
        }
142
        }
144
    );
143
    );
145
144
(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-1 lines)
Lines 80-86 my $launcher = sub { Link Here
80
                 query => $input,
80
                 query => $input,
81
                 type => "intranet",
81
                 type => "intranet",
82
                 flagsrequired => {editcatalogue => '*'},
82
                 flagsrequired => {editcatalogue => '*'},
83
                 debug => 1,
84
                 });
83
                 });
85
    my $dateentered = date_entered();
84
    my $dateentered = date_entered();
86
    $result = "$dateentered$defaultval" unless $result;
85
    $result = "$dateentered$defaultval" unless $result;
(-)a/cataloguing/value_builder/marc21_field_008_classifications.pl (-1 lines)
Lines 69-75 my $launcher = sub { Link Here
69
        query => $input,
69
        query => $input,
70
        type => "intranet",
70
        type => "intranet",
71
        flagsrequired => { editcatalogue => '*' },
71
        flagsrequired => { editcatalogue => '*' },
72
        debug => 1,
73
    });
72
    });
74
    my $dateentered = date_entered();
73
    my $dateentered = date_entered();
75
    $result = "$dateentered$defaultval" unless $result;
74
    $result = "$dateentered$defaultval" unless $result;
(-)a/cataloguing/value_builder/marc21_leader.pl (-1 lines)
Lines 62-68 my $launcher = sub { Link Here
62
            query           => $input,
62
            query           => $input,
63
            type            => "intranet",
63
            type            => "intranet",
64
            flagsrequired   => { editcatalogue => '*' },
64
            flagsrequired   => { editcatalogue => '*' },
65
            debug           => 1,
66
        }
65
        }
67
    );
66
    );
68
    $result = "     nam a22     7a 4500" unless $result;
67
    $result = "     nam a22     7a 4500" unless $result;
(-)a/cataloguing/value_builder/marc21_leader_authorities.pl (-1 lines)
Lines 65-71 my $launcher = sub { Link Here
65
            query           => $input,
65
            query           => $input,
66
            type            => "intranet",
66
            type            => "intranet",
67
            flagsrequired   => { editcatalogue => '*' },
67
            flagsrequired   => { editcatalogue => '*' },
68
            debug           => 1,
69
        }
68
        }
70
    );
69
    );
71
    $result = "     nz  a22     n  4500" unless $result;
70
    $result = "     nz  a22     n  4500" unless $result;
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-2 lines)
Lines 79-85 my $launcher = sub { Link Here
79
                query           => $query,
79
                query           => $query,
80
                type            => "intranet",
80
                type            => "intranet",
81
                flagsrequired   => { editcatalogue => '*' },
81
                flagsrequired   => { editcatalogue => '*' },
82
                debug           => 1,
83
            }
82
            }
84
        );
83
        );
85
84
Lines 191-197 my $launcher = sub { Link Here
191
            {   template_name   => "cataloguing/value_builder/marc21_linking_section.tt",
190
            {   template_name   => "cataloguing/value_builder/marc21_linking_section.tt",
192
                query           => $query,
191
                query           => $query,
193
                type            => 'intranet',
192
                type            => 'intranet',
194
                debug           => 1,
195
            }
193
            }
196
        );
194
        );
197
195
(-)a/cataloguing/value_builder/normarc_field_007.pl (-1 lines)
Lines 54-60 my ($template, $loggedinuser, $cookie) Link Here
54
			     query => $input,
54
			     query => $input,
55
			     type => "intranet",
55
			     type => "intranet",
56
			     flagsrequired => {editcatalogue => 1},
56
			     flagsrequired => {editcatalogue => 1},
57
			     debug => 1,
58
			     });
57
			     });
59
	$result = "ta" unless $result;
58
	$result = "ta" unless $result;
60
	my $f0 = substr($result,0,1);
59
	my $f0 = substr($result,0,1);
(-)a/cataloguing/value_builder/normarc_field_008.pl (-1 lines)
Lines 78-84 sub plugin { Link Here
78
            query           => $input,
78
            query           => $input,
79
            type            => "intranet",
79
            type            => "intranet",
80
            flagsrequired   => { editcatalogue => 1 },
80
            flagsrequired   => { editcatalogue => 1 },
81
            debug           => 1,
82
        }
81
        }
83
    );
82
    );
84
83
(-)a/cataloguing/value_builder/normarc_leader.pl (-1 lines)
Lines 63-69 my ($template, $loggedinuser, $cookie) Link Here
63
			     query => $input,
63
			     query => $input,
64
			     type => "intranet",
64
			     type => "intranet",
65
			     flagsrequired => {editcatalogue => 1},
65
			     flagsrequired => {editcatalogue => 1},
66
			     debug => 1,
67
			     });
66
			     });
68
	$result = "     nam a22     1  4500" unless $result;
67
	$result = "     nam a22     1  4500" unless $result;
69
	my $f5 = substr($result,5,1);
68
	my $f5 = substr($result,5,1);
(-)a/cataloguing/value_builder/stocknumberAV.pl (-1 lines)
Lines 79-85 my $launcher = sub { Link Here
79
            query           => $input,
79
            query           => $input,
80
            type            => "intranet",
80
            type            => "intranet",
81
            flagsrequired   => { editcatalogue => '*' },
81
            flagsrequired   => { editcatalogue => '*' },
82
            debug           => 1,
83
        }
82
        }
84
    );
83
    );
85
84
(-)a/cataloguing/value_builder/stocknumberam123.pl (-1 lines)
Lines 70-76 my $launcher = sub { Link Here
70
        query           => $input,
70
        query           => $input,
71
        type            => "intranet",
71
        type            => "intranet",
72
        flagsrequired   => {editcatalogue => '*'},
72
        flagsrequired   => {editcatalogue => '*'},
73
        debug           => 1,
74
    });
73
    });
75
74
76
    my $dbh = C4::Context->dbh;
75
    my $dbh = C4::Context->dbh;
(-)a/cataloguing/value_builder/unimarc_field_010.pl (-1 lines)
Lines 61-67 sub plugin { Link Here
61
                                    query => $input,
61
                                    query => $input,
62
                                    type => "intranet",
62
                                    type => "intranet",
63
                                    flagsrequired => {editcatalogue => '*'},
63
                                    flagsrequired => {editcatalogue => '*'},
64
                                    debug => 1,
65
                                    });
64
                                    });
66
65
67
66
(-)a/cataloguing/value_builder/unimarc_field_100.pl (-1 lines)
Lines 66-72 sub plugin { Link Here
66
            query         => $input,
66
            query         => $input,
67
            type          => "intranet",
67
            type          => "intranet",
68
            flagsrequired   => { editcatalogue => '*' },
68
            flagsrequired   => { editcatalogue => '*' },
69
            debug           => 1,
70
        }
69
        }
71
    );
70
    );
72
    $result = "        d        u  y0".$defaultlanguage."y50      ba" unless $result;
71
    $result = "        d        u  y0".$defaultlanguage."y50      ba" unless $result;
(-)a/cataloguing/value_builder/unimarc_field_100_authorities.pl (-1 lines)
Lines 63-69 sub plugin { Link Here
63
            query         => $input,
63
            query         => $input,
64
            type          => "intranet",
64
            type          => "intranet",
65
            flagsrequired   => { editcatalogue => '*' },
65
            flagsrequired   => { editcatalogue => '*' },
66
            debug           => 1,
67
        }
66
        }
68
    );
67
    );
69
    $result = "        a".$defaultlanguage."y50      ba0" unless $result;
68
    $result = "        a".$defaultlanguage."y50      ba0" unless $result;
(-)a/cataloguing/value_builder/unimarc_field_105.pl (-1 lines)
Lines 57-63 sub plugin { Link Here
57
			     query => $input,
57
			     query => $input,
58
			     type => "intranet",
58
			     type => "intranet",
59
			     flagsrequired => {editcatalogue => '*'},
59
			     flagsrequired => {editcatalogue => '*'},
60
			     debug => 1,
61
			     });
60
			     });
62
 	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
61
 	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
63
 	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
62
 	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
(-)a/cataloguing/value_builder/unimarc_field_106.pl (-1 lines)
Lines 53-59 my ($template, $loggedinuser, $cookie) Link Here
53
			     query => $input,
53
			     query => $input,
54
			     type => "intranet",
54
			     type => "intranet",
55
			     flagsrequired => {editcatalogue => '*'},
55
			     flagsrequired => {editcatalogue => '*'},
56
			     debug => 1,
57
			     });
56
			     });
58
 	my $f1 = substr($result,0,1);
57
 	my $f1 = substr($result,0,1);
59
	$template->param(index => $index,
58
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_110.pl (-1 lines)
Lines 56-62 my ($template, $loggedinuser, $cookie) Link Here
56
			     query => $input,
56
			     query => $input,
57
			     type => "intranet",
57
			     type => "intranet",
58
			     flagsrequired => {editcatalogue => '*'},
58
			     flagsrequired => {editcatalogue => '*'},
59
			     debug => 1,
60
			     });
59
			     });
61
 	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
60
 	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
62
 	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
61
 	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-1 lines)
Lines 63-69 sub plugin { Link Here
63
            query           => $input,
63
            query           => $input,
64
            type            => "intranet",
64
            type            => "intranet",
65
            flagsrequired   => { editcatalogue => '*' },
65
            flagsrequired   => { editcatalogue => '*' },
66
            debug           => 1,
67
        }
66
        }
68
    );
67
    );
69
    my $f1  = substr( $result, 0,  1 ); $f1  = wrapper( $f1 ) if $f1;
68
    my $f1  = substr( $result, 0,  1 ); $f1  = wrapper( $f1 ) if $f1;
(-)a/cataloguing/value_builder/unimarc_field_115b.pl (-1 lines)
Lines 57-63 sub plugin { Link Here
57
            query           => $input,
57
            query           => $input,
58
            type            => "intranet",
58
            type            => "intranet",
59
            flagsrequired   => { editcatalogue => '*' },
59
            flagsrequired   => { editcatalogue => '*' },
60
            debug           => 1,
61
        }
60
        }
62
    );
61
    );
63
    my $f1  = substr( $result, 0,  1 ); $f1  = wrapper( $f1 ) if $f1;
62
    my $f1  = substr( $result, 0,  1 ); $f1  = wrapper( $f1 ) if $f1;
(-)a/cataloguing/value_builder/unimarc_field_116.pl (-1 lines)
Lines 56-62 sub plugin { Link Here
56
            query         => $input,
56
            query         => $input,
57
            type          => "intranet",
57
            type          => "intranet",
58
            flagsrequired   => { editcatalogue => '*' },
58
            flagsrequired   => { editcatalogue => '*' },
59
            debug           => 1,
60
        }
59
        }
61
    );
60
    );
62
    my $f1 = substr( $result, 0, 1 ); $f1 = wrapper( $f1 ) if $f1;
61
    my $f1 = substr( $result, 0, 1 ); $f1 = wrapper( $f1 ) if $f1;
(-)a/cataloguing/value_builder/unimarc_field_117.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
 	my $f1 = substr($result,0,2); $f1 = wrapper( $f1 ) if $f1;
59
 	my $f1 = substr($result,0,2); $f1 = wrapper( $f1 ) if $f1;
61
 	my $f2 = substr($result,2,2); $f2 = wrapper( $f2 ) if $f2;
60
 	my $f2 = substr($result,2,2); $f2 = wrapper( $f2 ) if $f2;
(-)a/cataloguing/value_builder/unimarc_field_120.pl (-1 lines)
Lines 59-65 my ($template, $loggedinuser, $cookie) Link Here
59
			     query => $input,
59
			     query => $input,
60
			     type => "intranet",
60
			     type => "intranet",
61
			     flagsrequired => {editcatalogue => '*'},
61
			     flagsrequired => {editcatalogue => '*'},
62
			     debug => 1,
63
			     });
62
			     });
64
	my $f1 = substr($result,0,1);
63
	my $f1 = substr($result,0,1);
65
	my $f2 = substr($result,1,1);
64
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_121a.pl (-1 lines)
Lines 58-64 my ($template, $loggedinuser, $cookie) Link Here
58
			     query => $input,
58
			     query => $input,
59
			     type => "intranet",
59
			     type => "intranet",
60
			     flagsrequired => {editcatalogue => '*'},
60
			     flagsrequired => {editcatalogue => '*'},
61
			     debug => 1,
62
			     });
61
			     });
63
	my $f1 = substr($result,0,1);
62
	my $f1 = substr($result,0,1);
64
	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
63
	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
(-)a/cataloguing/value_builder/unimarc_field_121b.pl (-1 lines)
Lines 54-60 my ($template, $loggedinuser, $cookie) Link Here
54
			     query => $input,
54
			     query => $input,
55
			     type => "intranet",
55
			     type => "intranet",
56
			     flagsrequired => {editcatalogue => '*'},
56
			     flagsrequired => {editcatalogue => '*'},
57
			     debug => 1,
58
			     });
57
			     });
59
	my $f1 = substr($result,0,1);
58
	my $f1 = substr($result,0,1);
60
	my $f2 = substr($result,1,1);
59
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_122.pl (-1 lines)
Lines 54-60 my ($template, $loggedinuser, $cookie) Link Here
54
			     query => $input,
54
			     query => $input,
55
			     type => "intranet",
55
			     type => "intranet",
56
			     flagsrequired => {editcatalogue => '*'},
56
			     flagsrequired => {editcatalogue => '*'},
57
			     debug => 1,
58
			     });
57
			     });
59
	my $f1 = substr($result,0,1);
58
	my $f1 = substr($result,0,1);
60
	my $f2 = substr($result,1,4);
59
	my $f2 = substr($result,1,4);
(-)a/cataloguing/value_builder/unimarc_field_123a.pl (-1 lines)
Lines 54-60 my ($template, $loggedinuser, $cookie) Link Here
54
			     query => $input,
54
			     query => $input,
55
			     type => "intranet",
55
			     type => "intranet",
56
			     flagsrequired => {editcatalogue => '*'},
56
			     flagsrequired => {editcatalogue => '*'},
57
			     debug => 1,
58
			     });
57
			     });
59
	my $f1 = substr($result,0,1);
58
	my $f1 = substr($result,0,1);
60
	$template->param(index => $index,
59
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_123d.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	my $f2 = substr($result,1,3);
60
	my $f2 = substr($result,1,3);
(-)a/cataloguing/value_builder/unimarc_field_123e.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	my $f2 = substr($result,1,3);
60
	my $f2 = substr($result,1,3);
(-)a/cataloguing/value_builder/unimarc_field_123f.pl (-1 lines)
Lines 56-62 my ($template, $loggedinuser, $cookie) Link Here
56
			     query => $input,
56
			     query => $input,
57
			     type => "intranet",
57
			     type => "intranet",
58
			     flagsrequired => {editcatalogue => '*'},
58
			     flagsrequired => {editcatalogue => '*'},
59
			     debug => 1,
60
			     });
59
			     });
61
	my $f1 = substr($result,0,1);
60
	my $f1 = substr($result,0,1);
62
	my $f2 = substr($result,1,3);
61
	my $f2 = substr($result,1,3);
(-)a/cataloguing/value_builder/unimarc_field_123g.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	my $f2 = substr($result,1,3);
60
	my $f2 = substr($result,1,3);
(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	my $f2 = substr($result,1,3);
60
	my $f2 = substr($result,1,3);
(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-1 lines)
Lines 58-64 sub plugin { Link Here
58
			query => $input,
58
			query => $input,
59
			type => "intranet",
59
			type => "intranet",
60
			flagsrequired => {editcatalogue => '*'},
60
			flagsrequired => {editcatalogue => '*'},
61
			debug => 1,
62
		}
61
		}
63
	);
62
	);
64
	my $f1 = substr($result,0,1);
63
	my $f1 = substr($result,0,1);
(-)a/cataloguing/value_builder/unimarc_field_124.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,8);
59
	my $f1 = substr($result,0,8);
61
	my $f2 = substr($result,8,1);
60
	my $f2 = substr($result,8,1);
(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-1 lines)
Lines 56-62 my ($input) = @_; Link Here
56
            query           => $input,
56
            query           => $input,
57
            type            => "intranet",
57
            type            => "intranet",
58
            flagsrequired   => { editcatalogue => '*' },
58
            flagsrequired   => { editcatalogue => '*' },
59
            debug           => 1,
60
        }
59
        }
61
    );
60
    );
62
	my $f1 = substr($result,0,1);
61
	my $f1 = substr($result,0,1);
(-)a/cataloguing/value_builder/unimarc_field_124b.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_124c.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_124d.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_124e.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_124f.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,2);
59
	my $f1 = substr($result,0,2);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,2);
59
	my $f1 = substr($result,0,2);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_125.pl (-1 lines)
Lines 61-67 my ($template, $loggedinuser, $cookie) Link Here
61
			     query => $input,
61
			     query => $input,
62
			     type => "intranet",
62
			     type => "intranet",
63
			     flagsrequired => {editcatalogue => '*'},
63
			     flagsrequired => {editcatalogue => '*'},
64
			     debug => 1,
65
			     });
64
			     });
66
	my $f1 = substr($result,0,8);
65
	my $f1 = substr($result,0,8);
67
	my $f2 = substr($result,8,1);
66
	my $f2 = substr($result,8,1);
(-)a/cataloguing/value_builder/unimarc_field_125a.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	my $f2 = substr($result,1,1);
60
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_125b.pl (-1 lines)
Lines 58-64 my ($template, $loggedinuser, $cookie) Link Here
58
			     query => $input,
58
			     query => $input,
59
			     type => "intranet",
59
			     type => "intranet",
60
			     flagsrequired => {editcatalogue => '*'},
60
			     flagsrequired => {editcatalogue => '*'},
61
			     debug => 1,
62
			     });
61
			     });
63
	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
62
	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
64
	$template->param(index => $index,
63
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_126.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,8);
59
	my $f1 = substr($result,0,8);
61
	my $f2 = substr($result,8,1);
60
	my $f2 = substr($result,8,1);
(-)a/cataloguing/value_builder/unimarc_field_126a.pl (-1 lines)
Lines 58-64 my ($template, $loggedinuser, $cookie) Link Here
58
			     query => $input,
58
			     query => $input,
59
			     type => "intranet",
59
			     type => "intranet",
60
			     flagsrequired => {editcatalogue => '*'},
60
			     flagsrequired => {editcatalogue => '*'},
61
			     debug => 1,
62
			     });
61
			     });
63
	my $f1 = substr($result,0,1);
62
	my $f1 = substr($result,0,1);
64
	my $f2 = substr($result,1,1);
63
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_126b.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	my $f2 = substr($result,1,1);
60
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_127.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,2);
59
	my $f1 = substr($result,0,2);
61
	my $f2 = substr($result,2,2);
60
	my $f2 = substr($result,2,2);
(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,2);
59
	my $f1 = substr($result,0,2);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_128b.pl (-1 lines)
Lines 58-64 my ($template, $loggedinuser, $cookie) Link Here
58
			     query => $input,
58
			     query => $input,
59
			     type => "intranet",
59
			     type => "intranet",
60
			     flagsrequired => {editcatalogue => '*'},
60
			     flagsrequired => {editcatalogue => '*'},
61
			     debug => 1,
62
			     });
61
			     });
63
	my $f1 = substr($result,0,2); $f1 = wrapper( $f1 ) if $f1;
62
	my $f1 = substr($result,0,2); $f1 = wrapper( $f1 ) if $f1;
64
	$template->param(index => $index,
63
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,2);
59
	my $f1 = substr($result,0,2);
61
	$template->param(index => $index,
60
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_130.pl (-1 lines)
Lines 59-65 my ($template, $loggedinuser, $cookie) Link Here
59
			     query => $input,
59
			     query => $input,
60
			     type => "intranet",
60
			     type => "intranet",
61
			     flagsrequired => {editcatalogue => '*'},
61
			     flagsrequired => {editcatalogue => '*'},
62
			     debug => 1,
63
			     });
62
			     });
64
	my $f1 = substr($result,0,1);
63
	my $f1 = substr($result,0,1);
65
	my $f2 = substr($result,1,1);
64
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-1 lines)
Lines 58-64 my ($template, $loggedinuser, $cookie) Link Here
58
			     query => $input,
58
			     query => $input,
59
			     type => "intranet",
59
			     type => "intranet",
60
			     flagsrequired => {editcatalogue => '*'},
60
			     flagsrequired => {editcatalogue => '*'},
61
			     debug => 1,
62
			     });
61
			     });
63
	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
62
	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
64
	my $f2 = substr($result,1,1);
63
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_140.pl (-1 lines)
Lines 59-65 my ($template, $loggedinuser, $cookie) Link Here
59
			     query => $input,
59
			     query => $input,
60
			     type => "intranet",
60
			     type => "intranet",
61
			     flagsrequired => {editcatalogue => '*'},
61
			     flagsrequired => {editcatalogue => '*'},
62
			     debug => 1,
63
			     });
62
			     });
64
	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
63
	my $f1 = substr($result,0,1); $f1 = wrapper( $f1 ) if $f1;
65
	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
64
	my $f2 = substr($result,1,1); $f2 = wrapper( $f2 ) if $f2;
(-)a/cataloguing/value_builder/unimarc_field_141.pl (-1 lines)
Lines 55-61 my ($template, $loggedinuser, $cookie) Link Here
55
			     query => $input,
55
			     query => $input,
56
			     type => "intranet",
56
			     type => "intranet",
57
			     flagsrequired => {editcatalogue => '*'},
57
			     flagsrequired => {editcatalogue => '*'},
58
			     debug => 1,
59
			     });
58
			     });
60
	my $f1 = substr($result,0,1);
59
	my $f1 = substr($result,0,1);
61
	my $f2 = substr($result,1,1);
60
	my $f2 = substr($result,1,1);
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-2 lines)
Lines 95-101 my ($input) = @_; Link Here
95
                    query => $query,
95
                    query => $query,
96
                    type => 'intranet',
96
                    type => 'intranet',
97
                    flagsrequired => {editcatalogue => '*'},
97
                    flagsrequired => {editcatalogue => '*'},
98
                    debug => 1,
99
                    });
98
                    });
100
99
101
        # Results displayed in current page
100
        # Results displayed in current page
Lines 125-131 my ($input) = @_; Link Here
125
                    query => $query,
124
                    query => $query,
126
                    type => 'intranet',
125
                    type => 'intranet',
127
                    flagsrequired => {editcatalogue => '*'},
126
                    flagsrequired => {editcatalogue => '*'},
128
                    debug => 1,
129
                    });
127
                    });
130
128
131
        $template->param(index => $index,
129
        $template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_210c_bis.pl (-1 lines)
Lines 75-81 sub plugin { Link Here
75
            query           => $input,
75
            query           => $input,
76
            type            => "intranet",
76
            type            => "intranet",
77
            flagsrequired   => { editcatalogue => '*' },
77
            flagsrequired   => { editcatalogue => '*' },
78
            debug           => 1,
79
        }
78
        }
80
    );
79
    );
81
80
(-)a/cataloguing/value_builder/unimarc_field_225a.pl (-1 lines)
Lines 104-110 sub plugin { Link Here
104
            query           => $input,
104
            query           => $input,
105
            type            => "intranet",
105
            type            => "intranet",
106
            flagsrequired   => { editcatalogue => '*' },
106
            flagsrequired   => { editcatalogue => '*' },
107
            debug           => 1,
108
        }
107
        }
109
    );
108
    );
110
109
(-)a/cataloguing/value_builder/unimarc_field_225a_bis.pl (-1 lines)
Lines 53-59 sub plugin { Link Here
53
        query           => $input,
53
        query           => $input,
54
        type            => "intranet",
54
        type            => "intranet",
55
        flagsrequired   => { editcatalogue => '*' },
55
        flagsrequired   => { editcatalogue => '*' },
56
        debug           => 1,
57
    });
56
    });
58
57
59
    $template->param(index => $index);
58
    $template->param(index => $index);
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-2 lines)
Lines 90-96 sub plugin { Link Here
90
                query           => $query,
90
                query           => $query,
91
                type            => "intranet",
91
                type            => "intranet",
92
                flagsrequired   => { editcatalogue => '*' },
92
                flagsrequired   => { editcatalogue => '*' },
93
                debug           => 1,
94
            }
93
            }
95
        );
94
        );
96
95
Lines 375-381 sub plugin { Link Here
375
                  "cataloguing/value_builder/unimarc_field_4XX.tt",
374
                  "cataloguing/value_builder/unimarc_field_4XX.tt",
376
                query           => $query,
375
                query           => $query,
377
                type            => 'intranet',
376
                type            => 'intranet',
378
                debug           => 1,
379
            }
377
            }
380
        );
378
        );
381
379
(-)a/cataloguing/value_builder/unimarc_field_686a.pl (-1 lines)
Lines 57-63 my ($input) = @_; Link Here
57
            query           => $input,
57
            query           => $input,
58
            type            => "intranet",
58
            type            => "intranet",
59
            flagsrequired   => { editcatalogue => '*' },
59
            flagsrequired   => { editcatalogue => '*' },
60
            debug           => 1,
61
        }
60
        }
62
    );
61
    );
63
	$template->param(index => $index,
62
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_field_700-4.pl (-1 lines)
Lines 60-66 my ($input) = @_; Link Here
60
            query           => $input,
60
            query           => $input,
61
            type            => "intranet",
61
            type            => "intranet",
62
            flagsrequired   => { editcatalogue => '*' },
62
            flagsrequired   => { editcatalogue => '*' },
63
            debug           => 1,
64
        }
63
        }
65
    );
64
    );
66
	$template->param(index => $index,
65
	$template->param(index => $index,
(-)a/cataloguing/value_builder/unimarc_leader.pl (-1 lines)
Lines 65-71 sub plugin { Link Here
65
            query           => $input,
65
            query           => $input,
66
            type            => "intranet",
66
            type            => "intranet",
67
            flagsrequired   => { editcatalogue => '*' },
67
            flagsrequired   => { editcatalogue => '*' },
68
            debug           => 1,
69
        }
68
        }
70
    );
69
    );
71
    $result = "     nam         3       " unless $result;
70
    $result = "     nam         3       " unless $result;
(-)a/circ/add_message.pl (-1 lines)
Lines 32-38 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
32
        query           => $input,
32
        query           => $input,
33
        type            => "intranet",
33
        type            => "intranet",
34
        flagsrequired   => { borrowers => 'edit_borrowers' },
34
        flagsrequired   => { borrowers => 'edit_borrowers' },
35
        debug           => 1,
36
    }
35
    }
37
);
36
);
38
37
(-)a/circ/bookcount.pl (-1 lines)
Lines 46-52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
46
        query           => $input,
46
        query           => $input,
47
        type            => "intranet",
47
        type            => "intranet",
48
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
48
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
49
        debug           => 1,
50
    }
49
    }
51
);
50
);
52
51
(-)a/circ/branchoverdues.pl (-1 lines)
Lines 46-52 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user({ Link Here
46
        query           => $input,
46
        query           => $input,
47
        type            => "intranet",
47
        type            => "intranet",
48
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
48
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
49
        debug           => 1,
50
});
49
});
51
50
52
my $default = C4::Context->userenv->{'branch'};
51
my $default = C4::Context->userenv->{'branch'};
(-)a/circ/del_message.pl (-1 lines)
Lines 32-38 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
32
        query           => $input,
32
        query           => $input,
33
        type            => "intranet",
33
        type            => "intranet",
34
        flagsrequired   => { borrowers => 'edit_borrowers' },
34
        flagsrequired   => { borrowers => 'edit_borrowers' },
35
        debug           => 1,
36
    }
35
    }
37
);
36
);
38
37
(-)a/circ/overdue.pl (-1 lines)
Lines 72-78 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
72
        query           => $input,
72
        query           => $input,
73
        type            => "intranet",
73
        type            => "intranet",
74
        flagsrequired   => { circulate => "overdues_report" },
74
        flagsrequired   => { circulate => "overdues_report" },
75
        debug           => 1,
76
    }
75
    }
77
);
76
);
78
77
(-)a/circ/pendingreserves.pl (-1 lines)
Lines 50-56 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
50
        query           => $input,
50
        query           => $input,
51
        type            => "intranet",
51
        type            => "intranet",
52
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
52
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
53
        debug           => 1,
54
    }
53
    }
55
);
54
);
56
55
(-)a/circ/reserveratios.pl (-1 lines)
Lines 45-51 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
45
        query           => $input,
45
        query           => $input,
46
        type            => "intranet",
46
        type            => "intranet",
47
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
47
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
48
        debug           => 1,
49
    }
48
    }
50
);
49
);
51
50
(-)a/circ/set-library.pl (-1 lines)
Lines 35-41 my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user({ Link Here
35
    template_name   => "circ/set-library.tt",
35
    template_name   => "circ/set-library.tt",
36
    query           => $query,
36
    query           => $query,
37
    type            => "intranet",
37
    type            => "intranet",
38
    debug           => 1,
39
    flagsrequired   => { catalogue => 1, },
38
    flagsrequired   => { catalogue => 1, },
40
});
39
});
41
40
(-)a/circ/transfers_to_send.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
34
        query         => $input,
34
        query         => $input,
35
        type          => "intranet",
35
        type          => "intranet",
36
        flagsrequired => { circulate => "circulate_remaining_permissions" },
36
        flagsrequired => { circulate => "circulate_remaining_permissions" },
37
        debug         => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/circ/transferstoreceive.pl (-1 lines)
Lines 50-56 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
50
        query           => $input,
50
        query           => $input,
51
        type            => "intranet",
51
        type            => "intranet",
52
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
52
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
53
        debug           => 1,
54
    }
53
    }
55
);
54
);
56
55
(-)a/circ/view_holdsqueue.pl (-1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
39
        query           => $query,
39
        query           => $query,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
41
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
44
(-)a/circ/waitingreserves.pl (-1 lines)
Lines 56-62 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
56
        query           => $input,
56
        query           => $input,
57
        type            => "intranet",
57
        type            => "intranet",
58
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
58
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
59
        debug           => 1,
60
    }
59
    }
61
);
60
);
62
61
(-)a/errors/400.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => 'intranet',
32
        type            => 'intranet',
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/errors/401.pl (-1 lines)
Lines 30-36 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
30
        query           => $query,
30
        query           => $query,
31
        type            => 'intranet',
31
        type            => 'intranet',
32
        authnotrequired => 1,
32
        authnotrequired => 1,
33
        debug           => 1,
34
    }
33
    }
35
);
34
);
36
$template->param (
35
$template->param (
(-)a/errors/402.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => 'intranet',
32
        type            => 'intranet',
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/errors/403.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => 'intranet',
32
        type            => 'intranet',
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/errors/404.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => 'intranet',
32
        type            => 'intranet',
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/errors/500.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => 'intranet',
32
        type            => 'intranet',
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/installer/install.pl (-1 lines)
Lines 49-55 if ( defined($language) ) { Link Here
49
        template_name => "installer/step" . ( $step ? $step : 1 ) . ".tt",
49
        template_name => "installer/step" . ( $step ? $step : 1 ) . ".tt",
50
        query         => $query,
50
        query         => $query,
51
        type          => "intranet",
51
        type          => "intranet",
52
        debug           => 1,
53
    }
52
    }
54
);
53
);
55
54
(-)a/installer/onboarding.pl (-1 lines)
Lines 321-327 my ( $template, $loggedinuser ); Link Here
321
        template_name   => "onboarding/onboardingstep${step}.tt",
321
        template_name   => "onboarding/onboardingstep${step}.tt",
322
        query           => $input,
322
        query           => $input,
323
        type            => "intranet",
323
        type            => "intranet",
324
        debug           => 1,
325
    }
324
    }
326
);
325
);
327
326
(-)a/labels/label-create-pdf.pl (-1 lines)
Lines 33-39 my ( undef, $loggedinuser, $cookie ) = get_template_and_user({ Link Here
33
								     query           => $cgi,
33
								     query           => $cgi,
34
								     type            => "intranet",
34
								     type            => "intranet",
35
								     flagsrequired   => { tools => 'label_creator' },
35
								     flagsrequired   => { tools => 'label_creator' },
36
								     debug           => 1,
37
								     });
36
								     });
38
37
39
my $batch_id;
38
my $batch_id;
(-)a/labels/label-edit-batch.pl (-1 lines)
Lines 37-43 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
37
        query           => $cgi,
37
        query           => $cgi,
38
        type            => "intranet",
38
        type            => "intranet",
39
        flagsrequired   => { catalogue => 1 },
39
        flagsrequired   => { catalogue => 1 },
40
        debug           => 1,
41
    }
40
    }
42
);
41
);
43
42
(-)a/labels/label-edit-layout.pl (-1 lines)
Lines 35-41 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
35
        query           => $cgi,
35
        query           => $cgi,
36
        type            => "intranet",
36
        type            => "intranet",
37
        flagsrequired   => { catalogue => 1 },
37
        flagsrequired   => { catalogue => 1 },
38
        debug           => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/labels/label-edit-profile.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
34
        query           => $cgi,
34
        query           => $cgi,
35
        type            => "intranet",
35
        type            => "intranet",
36
        flagsrequired   => { catalogue => 1 },
36
        flagsrequired   => { catalogue => 1 },
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/labels/label-edit-range.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $cgi,
31
        query           => $cgi,
32
        type            => "intranet",
32
        type            => "intranet",
33
        flagsrequired   => { catalogue => 1 },
33
        flagsrequired   => { catalogue => 1 },
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
36
(-)a/labels/label-edit-template.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
34
        query           => $cgi,
34
        query           => $cgi,
35
        type            => "intranet",
35
        type            => "intranet",
36
        flagsrequired   => { catalogue => 1 },
36
        flagsrequired   => { catalogue => 1 },
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/labels/label-home.pl (-1 lines)
Lines 32-38 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
32
        query           => $cgi,
32
        query           => $cgi,
33
        type            => "intranet",
33
        type            => "intranet",
34
        flagsrequired   => { catalogue => 1 },
34
        flagsrequired   => { catalogue => 1 },
35
        debug           => 1,
36
    }
35
    }
37
);
36
);
38
37
(-)a/labels/label-item-search.pl (-2 lines)
Lines 148-154 if ($show_results) { Link Here
148
            type            => "intranet",
148
            type            => "intranet",
149
            flagsrequired   => { borrowers => 'edit_borrowers' },
149
            flagsrequired   => { borrowers => 'edit_borrowers' },
150
            flagsrequired   => { catalogue => 1 },
150
            flagsrequired   => { catalogue => 1 },
151
            debug           => 1,
152
        }
151
        }
153
    );
152
    );
154
153
Lines 226-232 else { Link Here
226
            query           => $query,
225
            query           => $query,
227
            type            => "intranet",
226
            type            => "intranet",
228
            flagsrequired   => { catalogue => 1 },
227
            flagsrequired   => { catalogue => 1 },
229
            debug           => 1,
230
        }
228
        }
231
    );
229
    );
232
    my $itemtypes = Koha::ItemTypes->search;
230
    my $itemtypes = Koha::ItemTypes->search;
(-)a/labels/label-manage.pl (-1 lines)
Lines 37-43 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
37
        query           => $cgi,
37
        query           => $cgi,
38
        type            => "intranet",
38
        type            => "intranet",
39
        flagsrequired   => { catalogue => 1 },
39
        flagsrequired   => { catalogue => 1 },
40
        debug           => 1,
41
    }
40
    }
42
);
41
);
43
42
(-)a/labels/label-print.pl (-1 lines)
Lines 35-41 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
35
        query           => $cgi,
35
        query           => $cgi,
36
        type            => "intranet",
36
        type            => "intranet",
37
        flagsrequired   => { catalogue => 1 },
37
        flagsrequired   => { catalogue => 1 },
38
        debug           => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/labels/spinelabel-home.pl (-1 lines)
Lines 29-35 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
29
        query           => $query,
29
        query           => $query,
30
        type            => "intranet",
30
        type            => "intranet",
31
        flagsrequired   => { catalogue => 1 },
31
        flagsrequired   => { catalogue => 1 },
32
        debug           => 1,
33
    }
32
    }
34
);
33
);
35
34
(-)a/labels/spinelabel-print.pl (-1 lines)
Lines 27-33 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
27
        query           => $query,
27
        query           => $query,
28
        type            => "intranet",
28
        type            => "intranet",
29
        flagsrequired   => { catalogue => 1 },
29
        flagsrequired   => { catalogue => 1 },
30
        debug           => 1,
31
    }
30
    }
32
);
31
);
33
32
(-)a/members/boraccount.pl (-1 lines)
Lines 46-52 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
46
        type            => "intranet",
46
        type            => "intranet",
47
        flagsrequired   => { borrowers     => 'edit_borrowers',
47
        flagsrequired   => { borrowers     => 'edit_borrowers',
48
                             updatecharges => 'remaining_permissions'},
48
                             updatecharges => 'remaining_permissions'},
49
        debug           => 1,
50
    }
49
    }
51
);
50
);
52
51
(-)a/members/deletemem.pl (-1 lines)
Lines 43-49 my ($template, $loggedinuser, $cookie) Link Here
43
                                        query => $input,
43
                                        query => $input,
44
                                        type => "intranet",
44
                                        type => "intranet",
45
                                        flagsrequired => {borrowers => 'edit_borrowers'},
45
                                        flagsrequired => {borrowers => 'edit_borrowers'},
46
                                        debug => 1,
47
                                        });
46
                                        });
48
47
49
#print $input->header;
48
#print $input->header;
(-)a/members/files.pl (-1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
39
        query           => $cgi,
39
        query           => $cgi,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => { borrowers => 'edit_borrowers' },
41
        flagsrequired   => { borrowers => 'edit_borrowers' },
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
$template->param( 'borrower_files' => 1 );
44
$template->param( 'borrower_files' => 1 );
(-)a/members/holdshistory.pl (-1 lines)
Lines 34-40 my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => Link Here
34
                query => $input,
34
                query => $input,
35
                type => "intranet",
35
                type => "intranet",
36
                flagsrequired => {borrowers => 'edit_borrowers'},
36
                flagsrequired => {borrowers => 'edit_borrowers'},
37
                debug => 1,
38
                });
37
                });
39
38
40
my $patron;
39
my $patron;
(-)a/members/ill-requests.pl (-1 lines)
Lines 32-38 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
32
        query           => $input,
32
        query           => $input,
33
        type            => "intranet",
33
        type            => "intranet",
34
        flagsrequired   => { borrowers => 'edit_borrowers' },
34
        flagsrequired   => { borrowers => 'edit_borrowers' },
35
        debug           => 1,
36
    }
35
    }
37
);
36
);
38
37
(-)a/members/member-flags.pl (-1 lines)
Lines 39-45 my ($template, $loggedinuser, $cookie) = get_template_and_user({ Link Here
39
        query           => $input,
39
        query           => $input,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => $flagsrequired,
41
        flagsrequired   => $flagsrequired,
42
        debug           => 1,
43
});
42
});
44
43
45
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
44
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
(-)a/members/member-password.pl (-1 lines)
Lines 33-39 my ( $template, $loggedinuser, $cookie, $staffflags ) = get_template_and_user( Link Here
33
        query           => $input,
33
        query           => $input,
34
        type            => "intranet",
34
        type            => "intranet",
35
        flagsrequired   => { borrowers => 'edit_borrowers' },
35
        flagsrequired   => { borrowers => 'edit_borrowers' },
36
        debug           => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/members/members-home.pl (-1 lines)
Lines 35-41 my ($template, $loggedinuser, $cookie, $flags) Link Here
35
                 query => $query,
35
                 query => $query,
36
                 type => "intranet",
36
                 type => "intranet",
37
                 flagsrequired => {borrowers => 'edit_borrowers'},
37
                 flagsrequired => {borrowers => 'edit_borrowers'},
38
                 debug => 1,
39
                 });
38
                 });
40
39
41
my $no_add = 0;
40
my $no_add = 0;
(-)a/members/members-update-do.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
34
        query           => $query,
34
        query           => $query,
35
        type            => "intranet",
35
        type            => "intranet",
36
        flagsrequired   => { borrowers => 'edit_borrowers' },
36
        flagsrequired   => { borrowers => 'edit_borrowers' },
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/members/members-update.pl (-1 lines)
Lines 38-44 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
38
        query           => $query,
38
        query           => $query,
39
        type            => "intranet",
39
        type            => "intranet",
40
        flagsrequired   => { borrowers => 'edit_borrowers' },
40
        flagsrequired   => { borrowers => 'edit_borrowers' },
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/members/moremember.pl (-1 lines)
Lines 70-76 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
70
        query           => $input,
70
        query           => $input,
71
        type            => "intranet",
71
        type            => "intranet",
72
        flagsrequired   => { borrowers => 'edit_borrowers' },
72
        flagsrequired   => { borrowers => 'edit_borrowers' },
73
        debug           => 1,
74
    }
73
    }
75
);
74
);
76
my $borrowernumber = $input->param('borrowernumber');
75
my $borrowernumber = $input->param('borrowernumber');
(-)a/members/notices.pl (-1 lines)
Lines 43-49 my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => Link Here
43
				query => $input,
43
				query => $input,
44
				type => "intranet",
44
				type => "intranet",
45
                flagsrequired => {borrowers => 'edit_borrowers'},
45
                flagsrequired => {borrowers => 'edit_borrowers'},
46
				debug => 1,
47
				});
46
				});
48
47
49
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
48
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
(-)a/members/pay.pl (-1 lines)
Lines 52-58 our ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
52
        query           => $input,
52
        query           => $input,
53
        type            => 'intranet',
53
        type            => 'intranet',
54
        flagsrequired   => { borrowers => 'edit_borrowers', updatecharges => $updatecharges_permissions },
54
        flagsrequired   => { borrowers => 'edit_borrowers', updatecharges => $updatecharges_permissions },
55
        debug           => 1,
56
    }
55
    }
57
);
56
);
58
57
(-)a/members/paycollect.pl (-1 lines)
Lines 49-55 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
49
        query           => $input,
49
        query           => $input,
50
        type            => 'intranet',
50
        type            => 'intranet',
51
        flagsrequired   => { borrowers => 'edit_borrowers', updatecharges => $updatecharges_permissions },
51
        flagsrequired   => { borrowers => 'edit_borrowers', updatecharges => $updatecharges_permissions },
52
        debug           => 1,
53
    }
52
    }
54
);
53
);
55
54
(-)a/members/print_overdues.pl (-1 lines)
Lines 38-44 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
38
        query           => $input,
38
        query           => $input,
39
        type            => "intranet",
39
        type            => "intranet",
40
        flagsrequired   => $flagsrequired,
40
        flagsrequired   => $flagsrequired,
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/members/printslip.pl (-1 lines)
Lines 68-74 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
68
        query           => $input,
68
        query           => $input,
69
        type            => "intranet",
69
        type            => "intranet",
70
        flagsrequired   => $flagsrequired,
70
        flagsrequired   => $flagsrequired,
71
        debug           => 1,
72
    }
71
    }
73
);
72
);
74
73
(-)a/members/purchase-suggestions.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
34
        query           => $input,
34
        query           => $input,
35
        type            => "intranet",
35
        type            => "intranet",
36
        flagsrequired   => { suggestions => 'suggestions_manage' },
36
        flagsrequired   => { suggestions => 'suggestions_manage' },
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/members/readingrec.pl (-1 lines)
Lines 39-45 my ($template, $loggedinuser, $cookie)= get_template_and_user({template_name => Link Here
39
				query => $input,
39
				query => $input,
40
				type => "intranet",
40
				type => "intranet",
41
                flagsrequired => {borrowers => 'edit_borrowers'},
41
                flagsrequired => {borrowers => 'edit_borrowers'},
42
				debug => 1,
43
				});
42
				});
44
43
45
my $op = $input->param('op') || '';
44
my $op = $input->param('op') || '';
(-)a/members/statistics.pl (-1 lines)
Lines 40-46 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
40
        query           => $input,
40
        query           => $input,
41
        type            => "intranet",
41
        type            => "intranet",
42
        flagsrequired   => { borrowers => 'edit_borrowers' },
42
        flagsrequired   => { borrowers => 'edit_borrowers' },
43
        debug           => 1,
44
    }
43
    }
45
);
44
);
46
45
(-)a/members/summary-print.pl (-1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
39
        query           => $input,
39
        query           => $input,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
41
        flagsrequired   => { circulate => "circulate_remaining_permissions" },
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
44
(-)a/members/update-child.pl (-1 lines)
Lines 46-52 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
46
        query           => $input,
46
        query           => $input,
47
        type            => "intranet",
47
        type            => "intranet",
48
        flagsrequired   => { borrowers => 'edit_borrowers' },
48
        flagsrequired   => { borrowers => 'edit_borrowers' },
49
        debug           => 1,
50
    }
49
    }
51
);
50
);
52
51
(-)a/misc/migration_tools/koha-svc.pl (-1 lines)
Lines 85-91 at beginning of script. Rest of API is described below. Example of its usage is Link Here
85
    url      => 'http://koha-dev:8080/cgi-bin/koha/svc',
85
    url      => 'http://koha-dev:8080/cgi-bin/koha/svc',
86
    user     => 'svc-user',
86
    user     => 'svc-user',
87
    password => 'svc-password',
87
    password => 'svc-password',
88
    debug    => 0,
89
  );
88
  );
90
89
91
URL must point to Koha's B<intranet> address and port.
90
URL must point to Koha's B<intranet> address and port.
(-)a/opac/errors/400.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => "opac",
32
        type            => "opac",
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/opac/errors/401.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => "opac",
32
        type            => "opac",
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/opac/errors/402.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => "opac",
32
        type            => "opac",
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/opac/errors/403.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => "opac",
32
        type            => "opac",
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/opac/errors/404.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => "opac",
32
        type            => "opac",
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/opac/errors/500.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => "opac",
32
        type            => "opac",
33
        authnotrequired => 1,
33
        authnotrequired => 1,
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
$template->param (
36
$template->param (
(-)a/opac/ilsdi.pl (-2 lines)
Lines 121-127 unless ( $cgi->param('service') ) { Link Here
121
            query           => $cgi,
121
            query           => $cgi,
122
            type            => "opac",
122
            type            => "opac",
123
            authnotrequired => 1,
123
            authnotrequired => 1,
124
            debug           => 1,
125
        }
124
        }
126
    );
125
    );
127
    output_html_with_http_headers $cgi, $cookie, $template->output;
126
    output_html_with_http_headers $cgi, $cookie, $template->output;
Lines 143-149 if ( scalar $cgi->param('service') eq "Describe" and any { scalar $cgi->param('v Link Here
143
            query           => $cgi,
142
            query           => $cgi,
144
            type            => "opac",
143
            type            => "opac",
145
            authnotrequired => 1,
144
            authnotrequired => 1,
146
            debug           => 1,
147
        }
145
        }
148
    );
146
    );
149
    $template->param( scalar $cgi->param('verb') => 1 );
147
    $template->param( scalar $cgi->param('verb') => 1 );
(-)a/opac/opac-ISBDdetail.pl (-1 lines)
Lines 73-79 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
73
        query           => $query,
73
        query           => $query,
74
        type            => "opac",
74
        type            => "opac",
75
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
75
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
76
        debug           => 1,
77
    }
76
    }
78
);
77
);
79
78
(-)a/opac/opac-MARCdetail.pl (-1 lines)
Lines 81-87 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
81
        query           => $query,
81
        query           => $query,
82
        type            => "opac",
82
        type            => "opac",
83
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
83
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
84
        debug           => 1,
85
    }
84
    }
86
);
85
);
87
86
(-)a/opac/opac-account-pay.pl (-1 lines)
Lines 54-60 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
54
        template_name   => "opac-account-pay-error.tt",
54
        template_name   => "opac-account-pay-error.tt",
55
        query           => $cgi,
55
        query           => $cgi,
56
        type            => "opac",
56
        type            => "opac",
57
        debug           => 1,
58
    }
57
    }
59
);
58
);
60
59
(-)a/opac/opac-account.pl (-1 lines)
Lines 34-40 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
34
        template_name   => "opac-account.tt",
34
        template_name   => "opac-account.tt",
35
        query           => $query,
35
        query           => $query,
36
        type            => "opac",
36
        type            => "opac",
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/opac/opac-alert-subscribe.pl (-1 lines)
Lines 44-50 my $biblionumber = $query->param('biblionumber'); Link Here
44
        type            => "opac",
44
        type            => "opac",
45
        authnotrequired => 0, # user must logged in to request
45
        authnotrequired => 0, # user must logged in to request
46
                              # subscription notifications
46
                              # subscription notifications
47
        debug           => 1,
48
    }
47
    }
49
);
48
);
50
49
(-)a/opac/opac-article-request-cancel.pl (-1 lines)
Lines 32-38 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
32
        template_name   => "opac-account.tt",
32
        template_name   => "opac-account.tt",
33
        query           => $query,
33
        query           => $query,
34
        type            => "opac",
34
        type            => "opac",
35
        debug           => 1,
36
    }
35
    }
37
);
36
);
38
37
(-)a/opac/opac-authorities-home.pl (-2 lines)
Lines 71-77 if ( $op eq "do_search" ) { Link Here
71
            query           => $query,
71
            query           => $query,
72
            type            => 'opac',
72
            type            => 'opac',
73
            authnotrequired => 1,
73
            authnotrequired => 1,
74
            debug           => 1,
75
        }
74
        }
76
    );
75
    );
77
    $template->param( search_query => $search_query ) if C4::Context->preference('DumpSearchQueryTemplate');
76
    $template->param( search_query => $search_query ) if C4::Context->preference('DumpSearchQueryTemplate');
Lines 170-176 else { Link Here
170
            query           => $query,
169
            query           => $query,
171
            type            => 'opac',
170
            type            => 'opac',
172
            authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
171
            authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
173
            debug           => 1,
174
        }
172
        }
175
    );
173
    );
176
174
(-)a/opac/opac-authoritiesdetail.pl (-1 lines)
Lines 65-71 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
65
        query           => $query,
65
        query           => $query,
66
        type            => "opac",
66
        type            => "opac",
67
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
67
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
68
        debug           => 1,
69
    }
68
    }
70
);
69
);
71
70
(-)a/opac/opac-browser.pl (-1 lines)
Lines 43-49 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
43
        query           => $query,
43
        query           => $query,
44
        type            => "opac",
44
        type            => "opac",
45
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
45
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
46
        debug           => 1,
47
    }
46
    }
48
);
47
);
49
48
(-)a/opac/opac-course-details.pl (-1 lines)
Lines 35-41 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
35
        query           => $cgi,
35
        query           => $cgi,
36
        type            => "opac",
36
        type            => "opac",
37
        authnotrequired => 1,
37
        authnotrequired => 1,
38
        debug           => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/opac/opac-course-reserves.pl (-1 lines)
Lines 34-40 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
34
        query           => $cgi,
34
        query           => $cgi,
35
        type            => "opac",
35
        type            => "opac",
36
        authnotrequired => 1,
36
        authnotrequired => 1,
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/opac/opac-discharge.pl (-1 lines)
Lines 44-50 my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ Link Here
44
    template_name => "opac-discharge.tt",
44
    template_name => "opac-discharge.tt",
45
    query         => $input,
45
    query         => $input,
46
    type          => "opac",
46
    type          => "opac",
47
    debug         => 1,
48
});
47
});
49
48
50
my $can_be_discharged = Koha::Patron::Discharge::can_be_discharged({ borrowernumber => $loggedinuser });
49
my $can_be_discharged = Koha::Patron::Discharge::can_be_discharged({ borrowernumber => $loggedinuser });
(-)a/opac/opac-ics.pl (-1 lines)
Lines 41-47 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
41
        template_name   => "opac-ics.tt",
41
        template_name   => "opac-ics.tt",
42
        query           => $query,
42
        query           => $query,
43
        type            => "opac",
43
        type            => "opac",
44
        debug           => 1,
45
    }
44
    }
46
);
45
);
47
46
(-)a/opac/opac-issue-note.pl (-1 lines)
Lines 38-44 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
38
        template_name   => "opac-issue-note.tt",
38
        template_name   => "opac-issue-note.tt",
39
        query           => $query,
39
        query           => $query,
40
        type            => "opac",
40
        type            => "opac",
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/opac/opac-messaging.pl (-1 lines)
Lines 46-52 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
46
        template_name   => 'opac-messaging.tt',
46
        template_name   => 'opac-messaging.tt',
47
        query           => $query,
47
        query           => $query,
48
        type            => 'opac',
48
        type            => 'opac',
49
        debug           => 1,
50
    }
49
    }
51
);
50
);
52
51
(-)a/opac/opac-modrequest-suspend.pl (-1 lines)
Lines 27-33 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
27
        template_name   => "opac-account.tt",
27
        template_name   => "opac-account.tt",
28
        query           => $query,
28
        query           => $query,
29
        type            => "opac",
29
        type            => "opac",
30
        debug           => 1,
31
    }
30
    }
32
);
31
);
33
32
(-)a/opac/opac-modrequest.pl (-1 lines)
Lines 36-42 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
36
        template_name   => "opac-account.tt",
36
        template_name   => "opac-account.tt",
37
        query           => $query,
37
        query           => $query,
38
        type            => "opac",
38
        type            => "opac",
39
        debug           => 1,
40
    }
39
    }
41
);
40
);
42
41
(-)a/opac/opac-mymessages.pl (-1 lines)
Lines 34-40 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
34
        template_name   => 'opac-mymessages.tt',
34
        template_name   => 'opac-mymessages.tt',
35
        query           => $query,
35
        query           => $query,
36
        type            => 'opac',
36
        type            => 'opac',
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/opac/opac-overdrive-search.pl (-1 lines)
Lines 33-39 my ($template, $loggedinuser, $cookie) Link Here
33
                                type => "opac",
33
                                type => "opac",
34
                                authnotrequired => 1,
34
                                authnotrequired => 1,
35
                                flagsrequired => {borrowers => 'edit_borrowers'},
35
                                flagsrequired => {borrowers => 'edit_borrowers'},
36
                                debug => 1,
37
                                });
36
                                });
38
37
39
$template->{'VARS'}->{'q'} = $cgi->param('q');
38
$template->{'VARS'}->{'q'} = $cgi->param('q');
(-)a/opac/opac-passwd.pl (-1 lines)
Lines 38-44 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
38
        template_name   => "opac-passwd.tt",
38
        template_name   => "opac-passwd.tt",
39
        query           => $query,
39
        query           => $query,
40
        type            => "opac",
40
        type            => "opac",
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/opac/opac-password-recovery.pl (-1 lines)
Lines 21-27 my ( $template, $dummy, $cookie ) = get_template_and_user( Link Here
21
        query           => $query,
21
        query           => $query,
22
        type            => "opac",
22
        type            => "opac",
23
        authnotrequired => 1,
23
        authnotrequired => 1,
24
        debug           => 1,
25
    }
24
    }
26
);
25
);
27
26
(-)a/opac/opac-privacy.pl (-1 lines)
Lines 39-45 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
39
        template_name   => "opac-privacy.tt",
39
        template_name   => "opac-privacy.tt",
40
        query           => $query,
40
        query           => $query,
41
        type            => "opac",
41
        type            => "opac",
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
44
(-)a/opac/opac-ratings-ajax.pl (-1 lines)
Lines 62-68 else { Link Here
62
            query           => $query,
62
            query           => $query,
63
            type            => "opac",
63
            type            => "opac",
64
            authnotrequired => 0,                    # auth required to add tags
64
            authnotrequired => 0,                    # auth required to add tags
65
            debug           => 1,
66
        }
65
        }
67
    );
66
    );
68
}
67
}
(-)a/opac/opac-readingrecord.pl (-1 lines)
Lines 49-55 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
49
        template_name   => "opac-readingrecord.tt",
49
        template_name   => "opac-readingrecord.tt",
50
        query           => $query,
50
        query           => $query,
51
        type            => "opac",
51
        type            => "opac",
52
        debug           => 1,
53
    }
52
    }
54
);
53
);
55
54
(-)a/opac/opac-recordedbooks-search.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        template_name   => "opac-recordedbooks-search.tt",
31
        template_name   => "opac-recordedbooks-search.tt",
32
        query           => $cgi,
32
        query           => $cgi,
33
        type            => "opac",
33
        type            => "opac",
34
        debug           => 1,
35
        authnotrequired => 1,
34
        authnotrequired => 1,
36
    }
35
    }
37
);
36
);
(-)a/opac/opac-renew.pl (-1 lines)
Lines 39-45 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
39
        template_name   => "opac-user.tt",
39
        template_name   => "opac-user.tt",
40
        query           => $query,
40
        query           => $query,
41
        type            => "opac",
41
        type            => "opac",
42
        debug           => 1,
43
	}
42
	}
44
); 
43
); 
45
my @items = $query->multi_param('item');
44
my @items = $query->multi_param('item');
(-)a/opac/opac-request-article.pl (-1 lines)
Lines 34-40 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
34
        template_name   => "opac-request-article.tt",
34
        template_name   => "opac-request-article.tt",
35
        query           => $cgi,
35
        query           => $cgi,
36
        type            => "opac",
36
        type            => "opac",
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/opac/opac-reserve.pl (-1 lines)
Lines 60-66 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
60
        template_name   => "opac-reserve.tt",
60
        template_name   => "opac-reserve.tt",
61
        query           => $query,
61
        query           => $query,
62
        type            => "opac",
62
        type            => "opac",
63
        debug           => 1,
64
    }
63
    }
65
);
64
);
66
65
(-)a/opac/opac-restrictedpage.pl (-1 lines)
Lines 40-46 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
40
        query           => $query,
40
        query           => $query,
41
        type            => "opac",
41
        type            => "opac",
42
        authnotrequired => $withinNetwork,
42
        authnotrequired => $withinNetwork,
43
        debug           => 1,
44
    }
43
    }
45
);
44
);
46
45
(-)a/opac/opac-routing-lists.pl (-1 lines)
Lines 36-42 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
36
        template_name   => "opac-routing-lists.tt",
36
        template_name   => "opac-routing-lists.tt",
37
        query           => $query,
37
        query           => $query,
38
        type            => "opac",
38
        type            => "opac",
39
        debug           => 1,
40
    }
39
    }
41
);
40
);
42
41
(-)a/opac/opac-search-history.pl (-1 lines)
Lines 41-47 my ($template, $loggedinuser, $cookie) = get_template_and_user( Link Here
41
        query => $cgi,
41
        query => $cgi,
42
        type => "opac",
42
        type => "opac",
43
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
43
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
44
        debug => 1,
45
    }
44
    }
46
);
45
);
47
46
(-)a/opac/opac-serial-issues.pl (-2 lines)
Lines 44-50 if ( $selectview eq "full" ) { Link Here
44
            query           => $query,
44
            query           => $query,
45
            type            => "opac",
45
            type            => "opac",
46
            authnotrequired => 1,
46
            authnotrequired => 1,
47
            debug           => 1,
48
        }
47
        }
49
    );
48
    );
50
    my $subscriptions = GetFullSubscriptionsFromBiblionumber($biblionumber);
49
    my $subscriptions = GetFullSubscriptionsFromBiblionumber($biblionumber);
Lines 87-93 else { Link Here
87
            query           => $query,
86
            query           => $query,
88
            type            => "opac",
87
            type            => "opac",
89
            authnotrequired => 1,
88
            authnotrequired => 1,
90
            debug           => 1,
91
        }
89
        }
92
    );
90
    );
93
91
(-)a/opac/opac-showmarc.pl (-1 lines)
Lines 39-45 my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ Link Here
39
    query           => $input,
39
    query           => $input,
40
    type            => "opac",
40
    type            => "opac",
41
    authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
41
    authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
42
    debug           => 1,
43
});
42
});
44
43
45
my $biblionumber = $input->param('id');
44
my $biblionumber = $input->param('id');
(-)a/opac/opac-tags.pl (-1 lines)
Lines 113-119 if ($is_ajax) { Link Here
113
        query           => $query,
113
        query           => $query,
114
        type            => "opac",
114
        type            => "opac",
115
        authnotrequired => ($add_op ? 0 : 1), # auth required to add tags
115
        authnotrequired => ($add_op ? 0 : 1), # auth required to add tags
116
        debug           => 1,
117
	});
116
	});
118
}
117
}
119
118
(-)a/opac/opac-tags_subject.pl (-1 lines)
Lines 43-49 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
43
        query           => $query,
43
        query           => $query,
44
        type            => "opac",
44
        type            => "opac",
45
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
45
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
46
        debug           => 1,
47
    }
46
    }
48
);
47
);
49
48
(-)a/opac/opac-topissues.pl (-1 lines)
Lines 53-59 my ($template, $borrowernumber, $cookie) = get_template_and_user( Link Here
53
        query           => $input,
53
        query           => $input,
54
        type            => "opac",
54
        type            => "opac",
55
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
55
        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
56
        debug           => 1,
57
    }
56
    }
58
);
57
);
59
my $dbh = C4::Context->dbh;
58
my $dbh = C4::Context->dbh;
(-)a/opac/opac-user.pl (-1 lines)
Lines 66-72 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
66
        template_name   => "opac-user.tt",
66
        template_name   => "opac-user.tt",
67
        query           => $query,
67
        query           => $query,
68
        type            => "opac",
68
        type            => "opac",
69
        debug           => 1,
70
    }
69
    }
71
);
70
);
72
71
(-)a/opac/sco/help.pl (-1 lines)
Lines 38-44 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
38
        template_name   => "sco/help.tt",
38
        template_name   => "sco/help.tt",
39
        query           => $query,
39
        query           => $query,
40
        type            => "opac",
40
        type            => "opac",
41
        debug           => 1,
42
        authnotrequired => 1,
41
        authnotrequired => 1,
43
        flagsrequired   => { self_check => "self_checkout_module" },
42
        flagsrequired   => { self_check => "self_checkout_module" },
44
    }
43
    }
(-)a/opac/sco/sco-main.pl (-1 lines)
Lines 81-87 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
81
        flagsrequired   => { self_check => "self_checkout_module" },
81
        flagsrequired   => { self_check => "self_checkout_module" },
82
        query           => $query,
82
        query           => $query,
83
        type            => "opac",
83
        type            => "opac",
84
        debug           => 1,
85
    }
84
    }
86
);
85
);
87
86
(-)a/patroncards/create-pdf.pl (-1 lines)
Lines 41-47 my ( $template, $loggedinuser, $cookie ) = get_template_and_user({ Link Here
41
                                                                     query           => $cgi,
41
                                                                     query           => $cgi,
42
                                                                     type            => "intranet",
42
                                                                     type            => "intranet",
43
                                                                     flagsrequired   => { tools => 'label_creator' },
43
                                                                     flagsrequired   => { tools => 'label_creator' },
44
                                                                     debug           => 1,
45
                                                                     });
44
                                                                     });
46
my $batch_id    = $cgi->param('batch_id') || undef;
45
my $batch_id    = $cgi->param('batch_id') || undef;
47
my $template_id = $cgi->param('template_id') || undef;
46
my $template_id = $cgi->param('template_id') || undef;
(-)a/patroncards/edit-batch.pl (-1 lines)
Lines 38-44 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
38
        query           => $cgi,
38
        query           => $cgi,
39
        type            => "intranet",
39
        type            => "intranet",
40
        flagsrequired   => { tools => 'label_creator' },
40
        flagsrequired   => { tools => 'label_creator' },
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/patroncards/edit-layout.pl (-1 lines)
Lines 37-43 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
37
        query           => $cgi,
37
        query           => $cgi,
38
        type            => "intranet",
38
        type            => "intranet",
39
        flagsrequired   => { tools => 'label_creator' },
39
        flagsrequired   => { tools => 'label_creator' },
40
        debug           => 1,
41
    }
40
    }
42
);
41
);
43
42
(-)a/patroncards/edit-profile.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
34
        query           => $cgi,
34
        query           => $cgi,
35
        type            => "intranet",
35
        type            => "intranet",
36
        flagsrequired   => { tools => 'label_creator' },
36
        flagsrequired   => { tools => 'label_creator' },
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/patroncards/edit-template.pl (-1 lines)
Lines 35-41 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
35
        query           => $cgi,
35
        query           => $cgi,
36
        type            => "intranet",
36
        type            => "intranet",
37
        flagsrequired   => { tools => 'label_creator' },
37
        flagsrequired   => { tools => 'label_creator' },
38
        debug           => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/patroncards/home.pl (-1 lines)
Lines 32-38 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
32
        query           => $cgi,
32
        query           => $cgi,
33
        type            => "intranet",
33
        type            => "intranet",
34
        flagsrequired   => { tools => 'label_creator' },
34
        flagsrequired   => { tools => 'label_creator' },
35
        debug           => 1,
36
    }
35
    }
37
);
36
);
38
37
(-)a/patroncards/image-manage.pl (-1 lines)
Lines 20-26 my ($template, $loggedinuser, $cookie) = get_template_and_user({ Link Here
20
                    query               => $cgi,
20
                    query               => $cgi,
21
                    type                => "intranet",
21
                    type                => "intranet",
22
                    flagsrequired       => {tools => 'label_creator'},
22
                    flagsrequired       => {tools => 'label_creator'},
23
                    debug               => 0,
24
                    });
23
                    });
25
24
26
my $file_name = $cgi->param('uploadfile') || '';
25
my $file_name = $cgi->param('uploadfile') || '';
(-)a/patroncards/manage.pl (-1 lines)
Lines 38-44 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
38
        query           => $cgi,
38
        query           => $cgi,
39
        type            => "intranet",
39
        type            => "intranet",
40
        flagsrequired   => { tools => 'label_creator' },
40
        flagsrequired   => { tools => 'label_creator' },
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/patroncards/print.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
34
        query           => $cgi,
34
        query           => $cgi,
35
        type            => "intranet",
35
        type            => "intranet",
36
        flagsrequired   => { tools => 'label_creator' },
36
        flagsrequired   => { tools => 'label_creator' },
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/plugins/plugins-home.pl (-1 lines)
Lines 41-47 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
41
        query         => $input,
41
        query         => $input,
42
        type          => "intranet",
42
        type          => "intranet",
43
        flagsrequired   => { plugins => '*' },
43
        flagsrequired   => { plugins => '*' },
44
        debug           => 1,
45
    }
44
    }
46
);
45
);
47
46
(-)a/plugins/plugins-uninstall.pl (-1 lines)
Lines 38-44 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
38
        query           => $input,
38
        query           => $input,
39
        type            => "intranet",
39
        type            => "intranet",
40
        flagsrequired   => { plugins => 'manage' },
40
        flagsrequired   => { plugins => 'manage' },
41
        debug           => 1,
42
    }
41
    }
43
);
42
);
44
43
(-)a/plugins/plugins-upload.pl (-1 lines)
Lines 40-46 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
40
        query         => $input,
40
        query         => $input,
41
        type          => "intranet",
41
        type          => "intranet",
42
        flagsrequired   => { plugins => 'manage' },
42
        flagsrequired   => { plugins => 'manage' },
43
        debug           => 1,
44
    }
43
    }
45
);
44
);
46
45
(-)a/plugins/run.pl (-1 lines)
Lines 39-45 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
39
        query           => $cgi,
39
        query           => $cgi,
40
        type            => "intranet",
40
        type            => "intranet",
41
        flagsrequired   => { plugins => $method },
41
        flagsrequired   => { plugins => $method },
42
        debug           => 1,
43
    }
42
    }
44
);
43
);
45
44
(-)a/reports/acquisitions_stats.pl (-1 lines)
Lines 67-73 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
67
        query           => $input,
67
        query           => $input,
68
        type            => "intranet",
68
        type            => "intranet",
69
        flagsrequired   => { reports => '*' },
69
        flagsrequired   => { reports => '*' },
70
        debug           => 1,
71
    }
70
    }
72
);
71
);
73
72
(-)a/reports/bor_issues_top.pl (-1 lines)
Lines 56-62 my ($template, $borrowernumber, $cookie) Link Here
56
                query => $input,
56
                query => $input,
57
                type => "intranet",
57
                type => "intranet",
58
                flagsrequired => {reports => '*'},
58
                flagsrequired => {reports => '*'},
59
                debug => 1,
60
                });
59
                });
61
our $sep     = $input->param("sep") || C4::Context->preference('CSVDelimiter') || ',';
60
our $sep     = $input->param("sep") || C4::Context->preference('CSVDelimiter') || ',';
62
$sep = "\t" if ($sep eq 'tabulation');
61
$sep = "\t" if ($sep eq 'tabulation');
(-)a/reports/borrowers_out.pl (-1 lines)
Lines 59-65 my ($template, $borrowernumber, $cookie) Link Here
59
                query => $input,
59
                query => $input,
60
                type => "intranet",
60
                type => "intranet",
61
                flagsrequired => {reports => '*'},
61
                flagsrequired => {reports => '*'},
62
                debug => 1,
63
                });
62
                });
64
$template->param(do_it => $do_it,
63
$template->param(do_it => $do_it,
65
        );
64
        );
(-)a/reports/borrowers_stats.pl (-1 lines)
Lines 72-78 my ($template, $borrowernumber, $cookie) Link Here
72
				query => $input,
72
				query => $input,
73
				type => "intranet",
73
				type => "intranet",
74
				flagsrequired => {reports => '*'},
74
				flagsrequired => {reports => '*'},
75
				debug => 1,
76
				});
75
				});
77
$template->param(do_it => $do_it);
76
$template->param(do_it => $do_it);
78
if ($do_it) {
77
if ($do_it) {
(-)a/reports/cash_register_stats.pl (-1 lines)
Lines 39-45 my ($template, $borrowernumber, $cookie) = get_template_and_user({ Link Here
39
    query => $input,
39
    query => $input,
40
    type => "intranet",
40
    type => "intranet",
41
    flagsrequired => {reports => '*'},
41
    flagsrequired => {reports => '*'},
42
    debug => 1,
43
});
42
});
44
43
45
my $do_it            = $input->param('do_it');
44
my $do_it            = $input->param('do_it');
(-)a/reports/cat_issues_top.pl (-1 lines)
Lines 56-62 my ($template, $borrowernumber, $cookie) Link Here
56
                query => $input,
56
                query => $input,
57
                type => "intranet",
57
                type => "intranet",
58
                flagsrequired => { reports => '*'},
58
                flagsrequired => { reports => '*'},
59
                debug => 1,
60
                });
59
                });
61
our $sep     = $input->param("sep");
60
our $sep     = $input->param("sep");
62
$sep = "\t" if ($sep eq 'tabulation');
61
$sep = "\t" if ($sep eq 'tabulation');
(-)a/reports/catalogue_out.pl (-1 lines)
Lines 45-51 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
45
        query           => $input,
45
        query           => $input,
46
        type            => "intranet",
46
        type            => "intranet",
47
        flagsrequired   => { reports => 'execute_reports' },
47
        flagsrequired   => { reports => 'execute_reports' },
48
        debug           => 1,
49
    }
48
    }
50
);
49
);
51
50
(-)a/reports/catalogue_stats.pl (-1 lines)
Lines 71-77 my ($template, $borrowernumber, $cookie) Link Here
71
				query => $input,
71
				query => $input,
72
				type => "intranet",
72
				type => "intranet",
73
				flagsrequired => {reports => '*'},
73
				flagsrequired => {reports => '*'},
74
				debug => 1,
75
				});
74
				});
76
$template->param(do_it => $do_it);
75
$template->param(do_it => $do_it);
77
if ($do_it) {
76
if ($do_it) {
(-)a/reports/dictionary.pl (-1 lines)
Lines 45-51 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
45
        query           => $input,
45
        query           => $input,
46
        type            => "intranet",
46
        type            => "intranet",
47
        flagsrequired   => { reports => '*' },
47
        flagsrequired   => { reports => '*' },
48
        debug           => 1,
49
    }
48
    }
50
	);
49
	);
51
50
(-)a/reports/guided_reports.pl (-1 lines)
Lines 75-81 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
75
        query           => $input,
75
        query           => $input,
76
        type            => "intranet",
76
        type            => "intranet",
77
        flagsrequired   => { reports => $flagsrequired },
77
        flagsrequired   => { reports => $flagsrequired },
78
        debug           => 1,
79
    }
78
    }
80
);
79
);
81
my $session = $cookie ? get_session($cookie->value) : undef;
80
my $session = $cookie ? get_session($cookie->value) : undef;
(-)a/reports/issues_avg_stats.pl (-1 lines)
Lines 67-73 my ($template, $borrowernumber, $cookie) Link Here
67
                query => $input,
67
                query => $input,
68
                type => "intranet",
68
                type => "intranet",
69
                flagsrequired => {reports => '*'},
69
                flagsrequired => {reports => '*'},
70
                debug => 1,
71
                    });
70
                    });
72
our $sep     = $input->param("sep");
71
our $sep     = $input->param("sep");
73
$sep = "\t" if ($sep eq 'tabulation');
72
$sep = "\t" if ($sep eq 'tabulation');
(-)a/reports/issues_stats.pl (-1 lines)
Lines 79-85 my ($template, $borrowernumber, $cookie) = get_template_and_user({ Link Here
79
	query => $input,
79
	query => $input,
80
	type => "intranet",
80
	type => "intranet",
81
	flagsrequired => {reports => '*'},
81
	flagsrequired => {reports => '*'},
82
	debug => 0,
83
});
82
});
84
our $sep     = $input->param("sep") // ';';
83
our $sep     = $input->param("sep") // ';';
85
$sep = "\t" if ($sep eq 'tabulation');
84
$sep = "\t" if ($sep eq 'tabulation');
(-)a/reports/itemslost.pl (-1 lines)
Lines 45-51 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
45
        query           => $query,
45
        query           => $query,
46
        type            => "intranet",
46
        type            => "intranet",
47
        flagsrequired   => { reports => '*' },
47
        flagsrequired   => { reports => '*' },
48
        debug           => 1,
49
    }
48
    }
50
);
49
);
51
50
(-)a/reports/manager.pl (-1 lines)
Lines 35-41 my ($template, $borrowernumber, $cookie) Link Here
35
				query => $input,
35
				query => $input,
36
				type => "intranet",
36
				type => "intranet",
37
				flagsrequired => {reports => '*'},
37
				flagsrequired => {reports => '*'},
38
				debug => 1,
39
				});
38
				});
40
$template->param(do_it => $do_it,
39
$template->param(do_it => $do_it,
41
		report_name => $report_name,
40
		report_name => $report_name,
(-)a/reports/orders_by_fund.pl (-1 lines)
Lines 44-50 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
44
        query           => $query,
44
        query           => $query,
45
        type            => "intranet",
45
        type            => "intranet",
46
        flagsrequired   => { reports => '*' },
46
        flagsrequired   => { reports => '*' },
47
        debug           => 1,
48
    }
47
    }
49
);
48
);
50
49
(-)a/reports/reports-home.pl (-1 lines)
Lines 31-37 my ($template, $loggedinuser, $cookie) Link Here
31
				query => $query,
31
				query => $query,
32
				type => "intranet",
32
				type => "intranet",
33
				flagsrequired => {reports => '*'},
33
				flagsrequired => {reports => '*'},
34
				debug => 1,
35
				});
34
				});
36
$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
35
$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
37
		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
36
		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
(-)a/reports/reserves_stats.pl (-1 lines)
Lines 66-72 my ($template, $borrowernumber, $cookie) = get_template_and_user({ Link Here
66
	query => $input,
66
	query => $input,
67
	type => "intranet",
67
	type => "intranet",
68
	flagsrequired => {reports => '*'},
68
	flagsrequired => {reports => '*'},
69
	debug => 0,
70
});
69
});
71
our $sep     = $input->param("sep") || '';
70
our $sep     = $input->param("sep") || '';
72
$sep = "\t" if ($sep eq 'tabulation');
71
$sep = "\t" if ($sep eq 'tabulation');
(-)a/reports/serials_stats.pl (-1 lines)
Lines 51-57 my ($template, $borrowernumber, $cookie) Link Here
51
				query => $input,
51
				query => $input,
52
				type => "intranet",
52
				type => "intranet",
53
				flagsrequired => {reports => '*'},
53
				flagsrequired => {reports => '*'},
54
				debug => 1,
55
				});
54
				});
56
				
55
				
57
				
56
				
(-)a/reserve/modrequest.pl (-1 lines)
Lines 37-43 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
37
        query           => $query,
37
        query           => $query,
38
        type            => "intranet",
38
        type            => "intranet",
39
        flagsrequired   => { catalogue => 1 },
39
        flagsrequired   => { catalogue => 1 },
40
        debug           => 1,
41
    }
40
    }
42
);
41
);
43
42
(-)a/reserve/modrequest_suspendall.pl (-1 lines)
Lines 35-41 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
35
        query           => $query,
35
        query           => $query,
36
        type            => "intranet",
36
        type            => "intranet",
37
        flagsrequired   => { catalogue => 1 },
37
        flagsrequired   => { catalogue => 1 },
38
        debug           => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/reviews/reviewswaiting.pl (-1 lines)
Lines 33-39 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
33
        query           => $query,
33
        query           => $query,
34
        type            => "intranet",
34
        type            => "intranet",
35
        flagsrequired   => { tools => 'moderate_comments' },
35
        flagsrequired   => { tools => 'moderate_comments' },
36
        debug           => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/rotating_collections/addItems.pl (-1 lines)
Lines 36-42 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
36
        query           => $query,
36
        query           => $query,
37
        type            => "intranet",
37
        type            => "intranet",
38
        flagsrequired   => { tools => 'rotating_collections' },
38
        flagsrequired   => { tools => 'rotating_collections' },
39
        debug           => 1,
40
    }
39
    }
41
);
40
);
42
41
(-)a/rotating_collections/editCollections.pl (-1 lines)
Lines 34-40 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
34
        query           => $query,
34
        query           => $query,
35
        type            => "intranet",
35
        type            => "intranet",
36
        flagsrequired   => { tools => 'rotating_collections' },
36
        flagsrequired   => { tools => 'rotating_collections' },
37
        debug           => 1,
38
    }
37
    }
39
);
38
);
40
39
(-)a/rotating_collections/rotatingCollections.pl (-1 lines)
Lines 33-39 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
33
        query           => $query,
33
        query           => $query,
34
        type            => "intranet",
34
        type            => "intranet",
35
        flagsrequired   => { tools => 'rotating_collections' },
35
        flagsrequired   => { tools => 'rotating_collections' },
36
        debug           => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/rotating_collections/transferCollection.pl (-1 lines)
Lines 36-42 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
36
        query           => $query,
36
        query           => $query,
37
        type            => "intranet",
37
        type            => "intranet",
38
        flagsrequired   => { tools => 'rotating_collections' },
38
        flagsrequired   => { tools => 'rotating_collections' },
39
        debug           => 1,
40
    }
39
    }
41
);
40
);
42
41
(-)a/serials/acqui-search-result.pl (-1 lines)
Lines 56-62 my ($template, $loggedinuser, $cookie) Link Here
56
                 query => $query,
56
                 query => $query,
57
                 type => "intranet",
57
                 type => "intranet",
58
                 flagsrequired => {serials => '*'},
58
                 flagsrequired => {serials => '*'},
59
                 debug => 1,
60
                 });
59
                 });
61
60
62
my $supplier=$query->param('supplier');
61
my $supplier=$query->param('supplier');
(-)a/serials/acqui-search.pl (-1 lines)
Lines 31-37 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
31
        query           => $query,
31
        query           => $query,
32
        type            => "intranet",
32
        type            => "intranet",
33
        flagsrequired   => { serials => '*' },
33
        flagsrequired   => { serials => '*' },
34
        debug           => 1,
35
    }
34
    }
36
);
35
);
37
36
(-)a/serials/checkexpiration.pl (-1 lines)
Lines 60-66 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user ( Link Here
60
        query           => $query,
60
        query           => $query,
61
        type            => "intranet",
61
        type            => "intranet",
62
        flagsrequired   => { serials => 'check_expiration' },
62
        flagsrequired   => { serials => 'check_expiration' },
63
        debug           => 1,
64
    }
63
    }
65
);
64
);
66
65
(-)a/serials/claims.pl (-1 lines)
Lines 44-50 my ($template, $loggedinuser, $cookie) Link Here
44
            query => $input,
44
            query => $input,
45
            type => 'intranet',
45
            type => 'intranet',
46
            flagsrequired => {serials => 'claim_serials'},
46
            flagsrequired => {serials => 'claim_serials'},
47
            debug => 1,
48
            });
47
            });
49
48
50
# supplierlist is returned in name order
49
# supplierlist is returned in name order
(-)a/serials/routing-preview.pl (-2 lines)
Lines 113-119 if($ok){ Link Here
113
				query => $query,
113
				query => $query,
114
				type => "intranet",
114
				type => "intranet",
115
				flagsrequired => {serials => '*'},
115
				flagsrequired => {serials => '*'},
116
				debug => 1,
117
				});
116
				});
118
} else {
117
} else {
119
    ($template, $loggedinuser, $cookie)
118
    ($template, $loggedinuser, $cookie)
Lines 121-127 if($ok){ Link Here
121
				query => $query,
120
				query => $query,
122
				type => "intranet",
121
				type => "intranet",
123
				flagsrequired => {serials => '*'},
122
				flagsrequired => {serials => '*'},
124
				debug => 1,
125
				});
123
				});
126
}
124
}
127
125
(-)a/serials/serials-collection.pl (-1 lines)
Lines 45-51 my ($template, $loggedinuser, $cookie) Link Here
45
                            query => $query,
45
                            query => $query,
46
                            type => "intranet",
46
                            type => "intranet",
47
                            flagsrequired => {serials => '*'},
47
                            flagsrequired => {serials => '*'},
48
                            debug => 1,
49
                            });
48
                            });
50
my $biblionumber = $query->param('biblionumber');
49
my $biblionumber = $query->param('biblionumber');
51
my @subscriptionid = $query->multi_param('subscriptionid');
50
my @subscriptionid = $query->multi_param('subscriptionid');
(-)a/serials/serials-edit.pl (-1 lines)
Lines 123-129 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
123
        query           => $query,
123
        query           => $query,
124
        type            => 'intranet',
124
        type            => 'intranet',
125
        flagsrequired   => { serials => 'receive_serials' },
125
        flagsrequired   => { serials => 'receive_serials' },
126
        debug           => 1,
127
    }
126
    }
128
);
127
);
129
128
(-)a/serials/serials-home.pl (-1 lines)
Lines 44-50 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
44
        query           => $query,
44
        query           => $query,
45
        type            => "intranet",
45
        type            => "intranet",
46
        flagsrequired   => { serials => '*' },
46
        flagsrequired   => { serials => '*' },
47
        debug           => 1,
48
    }
47
    }
49
);
48
);
50
49
(-)a/serials/serials-search.pl (-1 lines)
Lines 63-69 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
63
        query           => $query,
63
        query           => $query,
64
        type            => "intranet",
64
        type            => "intranet",
65
        flagsrequired   => { serials => '*' },
65
        flagsrequired   => { serials => '*' },
66
        debug           => 1,
67
    }
66
    }
68
);
67
);
69
68
(-)a/serials/subscription-add.pl (-1 lines)
Lines 57-63 our ($template, $loggedinuser, $cookie) Link Here
57
				query => $query,
57
				query => $query,
58
				type => "intranet",
58
				type => "intranet",
59
				flagsrequired => {serials => $permission},
59
				flagsrequired => {serials => $permission},
60
				debug => 1,
61
				});
60
				});
62
61
63
62
(-)a/serials/subscription-bib-search.pl (-2 lines)
Lines 84-90 if ( $op eq "do_search" && $query ) { Link Here
84
            query           => $input,
84
            query           => $input,
85
            type            => "intranet",
85
            type            => "intranet",
86
            flagsrequired   => { catalogue => 1, serials => '*' },
86
            flagsrequired   => { catalogue => 1, serials => '*' },
87
            debug           => 1,
88
        }
87
        }
89
    );
88
    );
90
89
Lines 192-198 else { Link Here
192
            query           => $input,
191
            query           => $input,
193
            type            => "intranet",
192
            type            => "intranet",
194
            flagsrequired   => { catalogue => 1, serials => '*' },
193
            flagsrequired   => { catalogue => 1, serials => '*' },
195
            debug           => 1,
196
        }
194
        }
197
    );
195
    );
198
196
(-)a/serials/subscription-detail.pl (-1 lines)
Lines 60-66 my ($template, $loggedinuser, $cookie) Link Here
60
                query => $query,
60
                query => $query,
61
                type => "intranet",
61
                type => "intranet",
62
                flagsrequired => {serials => $permission},
62
                flagsrequired => {serials => $permission},
63
                debug => 1,
64
                });
63
                });
65
64
66
my $subs = GetSubscription($subscriptionid);
65
my $subs = GetSubscription($subscriptionid);
(-)a/serials/subscription-frequencies.pl (-1 lines)
Lines 42-48 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { Link Here
42
    query           => $input,
42
    query           => $input,
43
    type            => 'intranet',
43
    type            => 'intranet',
44
    flagsrequired   => { 'serials' => 1 },
44
    flagsrequired   => { 'serials' => 1 },
45
    debug           => 1,
46
} );
45
} );
47
46
48
my $op = $input->param('op');
47
my $op = $input->param('op');
(-)a/serials/subscription-history.pl (-1 lines)
Lines 44-50 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { Link Here
44
    query           => $input,
44
    query           => $input,
45
    type            => 'intranet',
45
    type            => 'intranet',
46
    flagsrequired   => { 'serials' => 'edit_subscription' },
46
    flagsrequired   => { 'serials' => 'edit_subscription' },
47
    debug           => 1,
48
} );
47
} );
49
48
50
my $subscriptionid  = $input->param('subscriptionid');
49
my $subscriptionid  = $input->param('subscriptionid');
(-)a/serials/subscription-renew.pl (-1 lines)
Lines 73-79 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
73
        query           => $query,
73
        query           => $query,
74
        type            => "intranet",
74
        type            => "intranet",
75
        flagsrequired   => { serials => 'renew_subscription' },
75
        flagsrequired   => { serials => 'renew_subscription' },
76
        debug           => 1,
77
    }
76
    }
78
);
77
);
79
if ( $op eq "renew" ) {
78
if ( $op eq "renew" ) {
(-)a/serials/viewalerts.pl (-1 lines)
Lines 33-39 my ($template, $loggedinuser, $cookie) Link Here
33
                 query => $input,
33
                 query => $input,
34
                 type => "intranet",
34
                 type => "intranet",
35
                 flagsrequired => {serials => '*'},
35
                 flagsrequired => {serials => '*'},
36
                 debug => 1,
37
                 });
36
                 });
38
37
39
my $subscriptionid = $input->param('subscriptionid');
38
my $subscriptionid = $input->param('subscriptionid');
(-)a/tags/list.pl (-1 lines)
Lines 42-48 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
42
        template_name   => "tags/list.tt",
42
        template_name   => "tags/list.tt",
43
        query           => $query,
43
        query           => $query,
44
        type            => "intranet",
44
        type            => "intranet",
45
        debug           => 1,
46
        flagsrequired   => $needed_flags,
45
        flagsrequired   => $needed_flags,
47
    }
46
    }
48
);
47
);
(-)a/tags/review.pl (-1 lines)
Lines 82-88 my ($template, $borrowernumber, $cookie) = get_template_and_user( Link Here
82
        template_name   => "tags/review.tt",
82
        template_name   => "tags/review.tt",
83
        query           => $input,
83
        query           => $input,
84
        type            => "intranet",
84
        type            => "intranet",
85
        debug           => 1,
86
        flagsrequired   => $needed_flags,
85
        flagsrequired   => $needed_flags,
87
    }
86
    }
88
);
87
);
(-)a/tools/csv-profiles.pl (-1 lines)
Lines 54-60 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
54
        query           => $input,
54
        query           => $input,
55
        type            => "intranet",
55
        type            => "intranet",
56
        flagsrequired   => { tools => 'manage_csv_profiles' },
56
        flagsrequired   => { tools => 'manage_csv_profiles' },
57
        debug           => 1,
58
    }
57
    }
59
);
58
);
60
59
(-)a/tools/export.pl (-1 lines)
Lines 67-73 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( Link Here
67
        query           => $query,
67
        query           => $query,
68
        type            => "intranet",
68
        type            => "intranet",
69
        flagsrequired   => { tools => 'export_catalog' },
69
        flagsrequired   => { tools => 'export_catalog' },
70
        debug           => 1,
71
    }
70
    }
72
);
71
);
73
72
(-)a/tools/holidays.pl (-1 lines)
Lines 35-41 my ($template, $loggedinuser, $cookie) Link Here
35
                             type => "intranet",
35
                             type => "intranet",
36
                             query => $input,
36
                             query => $input,
37
                             flagsrequired => {tools => 'edit_calendar'},
37
                             flagsrequired => {tools => 'edit_calendar'},
38
                             debug => 1,
39
                           });
38
                           });
40
39
41
# calendardate - date passed in url for human readability (syspref)
40
# calendardate - date passed in url for human readability (syspref)
(-)a/tools/import_borrowers.pl (-1 lines)
Lines 72-78 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
72
        query           => $input,
72
        query           => $input,
73
        type            => "intranet",
73
        type            => "intranet",
74
        flagsrequired   => { tools => 'import_patrons' },
74
        flagsrequired   => { tools => 'import_patrons' },
75
        debug           => 1,
76
    }
75
    }
77
);
76
);
78
77
(-)a/tools/inventory.pl (-1 lines)
Lines 64-70 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
64
        query           => $input,
64
        query           => $input,
65
        type            => "intranet",
65
        type            => "intranet",
66
        flagsrequired   => { tools => 'inventory' },
66
        flagsrequired   => { tools => 'inventory' },
67
        debug           => 1,
68
    }
67
    }
69
);
68
);
70
69
(-)a/tools/koha-news.pl (-1 lines)
Lines 66-72 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
66
        query           => $cgi,
66
        query           => $cgi,
67
        type            => "intranet",
67
        type            => "intranet",
68
        flagsrequired   => { tools => 'edit_news' },
68
        flagsrequired   => { tools => 'edit_news' },
69
        debug           => 1,
70
    }
69
    }
71
);
70
);
72
71
(-)a/tools/letter.pl (-1 lines)
Lines 78-84 our ( $template, $borrowernumber, $cookie, $staffflags ) = get_template_and_user Link Here
78
        query           => $input,
78
        query           => $input,
79
        type            => 'intranet',
79
        type            => 'intranet',
80
        flagsrequired   => { tools => 'edit_notices' },
80
        flagsrequired   => { tools => 'edit_notices' },
81
        debug           => 1,
82
    }
81
    }
83
);
82
);
84
83
(-)a/tools/manage-marc-import.pl (-1 lines)
Lines 54-60 my ($template, $loggedinuser, $cookie) Link Here
54
                 query => $input,
54
                 query => $input,
55
                 type => "intranet",
55
                 type => "intranet",
56
                 flagsrequired => {tools => 'manage_staged_marc'},
56
                 flagsrequired => {tools => 'manage_staged_marc'},
57
                 debug => 1,
58
                 });
57
                 });
59
58
60
my %cookies = parse CGI::Cookie($cookie);
59
my %cookies = parse CGI::Cookie($cookie);
(-)a/tools/marc_modification_templates.pl (-1 lines)
Lines 36-42 my ($template, $loggedinuser, $cookie) Link Here
36
            query => $cgi,
36
            query => $cgi,
37
            type => "intranet",
37
            type => "intranet",
38
            flagsrequired => { tools => 'marc_modification_templates' },
38
            flagsrequired => { tools => 'marc_modification_templates' },
39
            debug => 1,
40
    });
39
    });
41
40
42
if ( $op eq "create_template" ) {
41
if ( $op eq "create_template" ) {
(-)a/tools/overduerules.pl (-1 lines)
Lines 63-69 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
63
        query           => $input,
63
        query           => $input,
64
        type            => "intranet",
64
        type            => "intranet",
65
        flagsrequired   => { tools => 'edit_notice_status_triggers' },
65
        flagsrequired   => { tools => 'edit_notice_status_triggers' },
66
        debug           => 1,
67
    }
66
    }
68
);
67
);
69
68
(-)a/tools/picture-upload.pl (-1 lines)
Lines 48-54 my ($template, $loggedinuser, $cookie) Link Here
48
					query => $input,
48
					query => $input,
49
					type => "intranet",
49
					type => "intranet",
50
					flagsrequired => { tools => 'batch_upload_patron_images'},
50
					flagsrequired => { tools => 'batch_upload_patron_images'},
51
					debug => 0,
52
					});
51
					});
53
52
54
our $filetype      = $input->param('filetype') || '';
53
our $filetype      = $input->param('filetype') || '';
(-)a/tools/quotes-upload.pl (-1 lines)
Lines 35-41 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
35
        query           => $cgi,
35
        query           => $cgi,
36
        type            => "intranet",
36
        type            => "intranet",
37
        flagsrequired   => { tools => 'edit_quotes' },
37
        flagsrequired   => { tools => 'edit_quotes' },
38
        debug           => 1,
39
    }
38
    }
40
);
39
);
41
40
(-)a/tools/quotes.pl (-1 lines)
Lines 33-39 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
33
        query         => $input,
33
        query         => $input,
34
        type          => "intranet",
34
        type          => "intranet",
35
        flagsrequired => { tools => 'edit_quotes' },
35
        flagsrequired => { tools => 'edit_quotes' },
36
        debug         => 1,
37
    }
36
    }
38
);
37
);
39
38
(-)a/tools/scheduler.pl (-1 lines)
Lines 50-56 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
50
        query           => $input,
50
        query           => $input,
51
        type            => "intranet",
51
        type            => "intranet",
52
        flagsrequired   => { tools => 'schedule_tasks' },
52
        flagsrequired   => { tools => 'schedule_tasks' },
53
        debug           => 1,
54
    }
53
    }
55
);
54
);
56
55
(-)a/tools/showdiffmarc.pl (-1 lines)
Lines 56-62 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
56
        query           => $input,
56
        query           => $input,
57
        type            => "intranet",
57
        type            => "intranet",
58
        flagsrequired   => { tools => 'manage_staged_marc' },
58
        flagsrequired   => { tools => 'manage_staged_marc' },
59
        debug           => 1,
60
    }
59
    }
61
);
60
);
62
61
(-)a/tools/stage-marc-import.pl (-1 lines)
Lines 69-75 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
69
        query           => $input,
69
        query           => $input,
70
        type            => "intranet",
70
        type            => "intranet",
71
        flagsrequired   => { tools => 'stage_marc_import' },
71
        flagsrequired   => { tools => 'stage_marc_import' },
72
        debug           => 1,
73
    }
72
    }
74
);
73
);
75
74
(-)a/tools/tools-home.pl (-1 lines)
Lines 30-36 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
30
        query           => $query,
30
        query           => $query,
31
        type            => "intranet",
31
        type            => "intranet",
32
        flagsrequired   => { tools => '*' },
32
        flagsrequired   => { tools => '*' },
33
        debug           => 1,
34
    }
33
    }
35
);
34
);
36
35
(-)a/tools/upload-cover-image.pl (-1 lines)
Lines 62-68 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
62
        query           => $input,
62
        query           => $input,
63
        type            => "intranet",
63
        type            => "intranet",
64
        flagsrequired   => { tools => 'upload_local_cover_images' },
64
        flagsrequired   => { tools => 'upload_local_cover_images' },
65
        debug           => 0,
66
    }
65
    }
67
);
66
);
68
67
(-)a/tools/viewlog.pl (-2 lines)
Lines 68-74 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
68
        query           => $input,
68
        query           => $input,
69
        type            => "intranet",
69
        type            => "intranet",
70
        flagsrequired   => { tools => 'view_system_logs' },
70
        flagsrequired   => { tools => 'view_system_logs' },
71
        debug           => 1,
72
    }
71
    }
73
);
72
);
74
73
75
- 

Return to bug 28591