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

(-)a/C4/CourseReserves.pm (-4 / +4 lines)
Lines 17-24 package C4::CourseReserves; Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
require Exporter;
21
22
use C4::Context;
20
use C4::Context;
23
use C4::Items qw(GetItem ModItem);
21
use C4::Items qw(GetItem ModItem);
24
use C4::Biblio qw(GetBiblioFromItemNumber);
22
use C4::Biblio qw(GetBiblioFromItemNumber);
Lines 27-34 use C4::Circulation qw(GetOpenIssue); Link Here
27
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
25
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
28
26
29
BEGIN {
27
BEGIN {
30
    @ISA    = qw(Exporter);
28
    require Exporter;
31
    @EXPORT = qw(
29
    @ISA       = qw(Exporter);
30
    @EXPORT_OK = qw(
32
      &GetCourse
31
      &GetCourse
33
      &ModCourse
32
      &ModCourse
34
      &GetCourses
33
      &GetCourses
Lines 49-54 BEGIN { Link Here
49
48
50
      &GetItemReservesInfo
49
      &GetItemReservesInfo
51
    );
50
    );
51
    %EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
52
52
53
    $DEBUG = 0;
53
    $DEBUG = 0;
54
    @FIELDS = ( 'itype', 'ccode', 'holdingbranch', 'location' );
54
    @FIELDS = ( 'itype', 'ccode', 'holdingbranch', 'location' );
(-)a/catalogue/detail.pl (-1 / +1 lines)
Lines 41-47 use C4::XSLT; Link Here
41
use C4::Images;
41
use C4::Images;
42
use Koha::DateUtils;
42
use Koha::DateUtils;
43
use C4::HTML5Media;
43
use C4::HTML5Media;
44
use C4::CourseReserves;
44
use C4::CourseReserves qw(GetItemReservesInfo);
45
45
46
# use Smart::Comments;
46
# use Smart::Comments;
47
47
(-)a/course_reserves/add_items.pl (-1 / +1 lines)
Lines 28-34 use C4::Koha; Link Here
28
use C4::Biblio;
28
use C4::Biblio;
29
use C4::Branch;
29
use C4::Branch;
30
30
31
use C4::CourseReserves;
31
use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve);
32
32
33
my $cgi = new CGI;
33
my $cgi = new CGI;
34
34
(-)a/course_reserves/course-details.pl (-1 / +1 lines)
Lines 26-32 use C4::Auth; Link Here
26
use C4::Output;
26
use C4::Output;
27
use C4::Koha;
27
use C4::Koha;
28
28
29
use C4::CourseReserves;
29
use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves);
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/course_reserves/course-reserves.pl (-1 / +1 lines)
Lines 25-31 use CGI; Link Here
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Output;
26
use C4::Output;
27
27
28
use C4::CourseReserves;
28
use C4::CourseReserves qw(GetCourses);
29
29
30
my $cgi = new CGI;
30
my $cgi = new CGI;
31
31
(-)a/course_reserves/course.pl (-1 / +1 lines)
Lines 26-32 use C4::Auth; Link Here
26
use C4::Output;
26
use C4::Output;
27
use C4::Koha;
27
use C4::Koha;
28
28
29
use C4::CourseReserves;
29
use C4::CourseReserves qw(GetCourse);
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/course_reserves/mod_course.pl (-1 / +1 lines)
Lines 25-31 use C4::Output; Link Here
25
use C4::Reserves;
25
use C4::Reserves;
26
use C4::Auth;
26
use C4::Auth;
27
27
28
use C4::CourseReserves;
28
use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors);
29
29
30
my $cgi = new CGI;
30
my $cgi = new CGI;
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/opac/opac-course-details.pl (-1 / +1 lines)
Lines 26-32 use C4::Auth; Link Here
26
use C4::Output;
26
use C4::Output;
27
use C4::Koha;
27
use C4::Koha;
28
28
29
use C4::CourseReserves;
29
use C4::CourseReserves qw(GetCourse GetCourseReserves);
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
32
(-)a/opac/opac-course-reserves.pl (-1 / +1 lines)
Lines 25-31 use CGI; Link Here
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Output;
26
use C4::Output;
27
27
28
use C4::CourseReserves;
28
use C4::CourseReserves qw(SearchCourses);
29
29
30
my $cgi = new CGI;
30
my $cgi = new CGI;
31
31
(-)a/opac/opac-detail.pl (-1 / +1 lines)
Lines 50-56 use List::MoreUtils qw/any none/; Link Here
50
use C4::Images;
50
use C4::Images;
51
use Koha::DateUtils;
51
use Koha::DateUtils;
52
use C4::HTML5Media;
52
use C4::HTML5Media;
53
use C4::CourseReserves;
53
use C4::CourseReserves qw(GetItemReservesInfo);
54
54
55
BEGIN {
55
BEGIN {
56
	if (C4::Context->preference('BakerTaylorEnabled')) {
56
	if (C4::Context->preference('BakerTaylorEnabled')) {
(-)a/t/db_dependent/CourseReserves.t (-2 / +1 lines)
Lines 11-17 use Data::Dumper; Link Here
11
11
12
BEGIN {
12
BEGIN {
13
    use_ok('C4::Context');
13
    use_ok('C4::Context');
14
    use_ok('C4::CourseReserves');
14
    use_ok('C4::CourseReserves', qw/:all/);
15
}
15
}
16
16
17
my $dbh = C4::Context->dbh;
17
my $dbh = C4::Context->dbh;
18
- 

Return to bug 8215