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

(-)a/course_reserves/mod_course.pl (-8 / +3 lines)
Lines 23-40 use CGI qw ( -utf8 ); Link Here
23
23
24
use C4::Output;
24
use C4::Output;
25
use C4::Reserves;
25
use C4::Reserves;
26
use C4::Auth qw( get_template_and_user );
26
use C4::Auth qw( checkauth );
27
27
28
use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors );
28
use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors );
29
29
30
my $cgi = CGI->new;
30
my $cgi = CGI->new;
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
31
32
    {   template_name   => "about.tt",
32
checkauth($cgi, 0, { coursereserves => 'manage_courses' }, 'intranet');
33
        query           => $cgi,
34
        type            => "intranet",
35
        flagsrequired   => { coursereserves => 'manage_courses' },
36
    }
37
);
38
33
39
my $action = $cgi->param('action') || '';
34
my $action = $cgi->param('action') || '';
40
my $course_id = $cgi->param('course_id');
35
my $course_id = $cgi->param('course_id');
(-)a/members/members-update-do.pl (-11 / +3 lines)
Lines 19-25 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( checkauth );
23
use C4::Output;
23
use C4::Output;
24
use C4::Context;
24
use C4::Context;
25
use Koha::Patrons;
25
use Koha::Patrons;
Lines 27-43 use Koha::Patron::Modifications; Link Here
27
27
28
my $query = CGI->new;
28
my $query = CGI->new;
29
29
30
# FIXME Should be a checkauth call
30
my ( $userid, $cookie, $sessionID, $flags ) = checkauth($query, 0, { borrowers => 'edit_borrowers' }, 'intranet');
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
    {
33
        template_name   => "about.tt",
34
        query           => $query,
35
        type            => "intranet",
36
        flagsrequired   => { borrowers => 'edit_borrowers' },
37
    }
38
);
39
31
40
my $logged_in_user = Koha::Patrons->find( $loggedinuser );
32
my $logged_in_user = Koha::Patrons->find({ userid => $userid });
41
33
42
my @params = $query->param;
34
my @params = $query->param;
43
35
(-)a/reserve/modrequest.pl (-9 / +3 lines)
Lines 30-47 use Try::Tiny; Link Here
30
30
31
use C4::Output;
31
use C4::Output;
32
use C4::Reserves qw( ModReserve ModReserveCancelAll );
32
use C4::Reserves qw( ModReserve ModReserveCancelAll );
33
use C4::Auth qw( get_template_and_user );
33
use C4::Auth qw( checkauth );
34
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue;
34
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue;
35
35
36
my $query = CGI->new;
36
my $query = CGI->new;
37
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
37
38
    {   
38
checkauth($query, 0, { reserveforothers => '*' }, 'intranet');
39
        template_name   => "about.tt",
40
        query           => $query,
41
        type            => "intranet",
42
        flagsrequired   => { reserveforothers => '*' },
43
    }
44
);
45
39
46
my @reserve_id = $query->multi_param('reserve_id');
40
my @reserve_id = $query->multi_param('reserve_id');
47
my @rank = $query->multi_param('rank-request');
41
my @rank = $query->multi_param('rank-request');
(-)a/reserve/modrequest_suspendall.pl (-10 / +3 lines)
Lines 26-42 use Modern::Perl; Link Here
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Output;
27
use C4::Output;
28
use C4::Reserves qw( SuspendAll );
28
use C4::Reserves qw( SuspendAll );
29
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( checkauth );
30
30
31
my $query = CGI->new;
31
my $query = CGI->new;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
33
    {
33
checkauth($query, 0, { reserveforothers => '*' }, 'intranet');
34
        template_name   => "about.tt",
35
        query           => $query,
36
        type            => "intranet",
37
        flagsrequired   => { reserveforothers => 1 },
38
    }
39
);
40
34
41
my $borrowernumber = $query->param('borrowernumber');
35
my $borrowernumber = $query->param('borrowernumber');
42
my $suspend        = $query->param('suspend');
36
my $suspend        = $query->param('suspend');
43
- 

Return to bug 31893