use Modern::Perl;
-require Exporter;
-
use C4::Context;
use C4::Items qw(GetItem ModItem);
use C4::Biblio qw(GetBiblioFromItemNumber);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
BEGIN {
- @ISA = qw(Exporter);
- @EXPORT = qw(
+ require Exporter;
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
&GetCourse
&ModCourse
&GetCourses
&GetItemReservesInfo
);
+ %EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
$DEBUG = 0;
@FIELDS = ( 'itype', 'ccode', 'holdingbranch', 'location' );
use C4::Images;
use Koha::DateUtils;
use C4::HTML5Media;
-use C4::CourseReserves;
+use C4::CourseReserves qw(GetItemReservesInfo);
# use Smart::Comments;
use C4::Biblio;
use C4::Branch;
-use C4::CourseReserves;
+use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve);
my $cgi = new CGI;
use C4::Output;
use C4::Koha;
-use C4::CourseReserves;
+use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves);
my $cgi = new CGI;
use C4::Auth;
use C4::Output;
-use C4::CourseReserves;
+use C4::CourseReserves qw(GetCourses);
my $cgi = new CGI;
use C4::Output;
use C4::Koha;
-use C4::CourseReserves;
+use C4::CourseReserves qw(GetCourse);
my $cgi = new CGI;
use C4::Reserves;
use C4::Auth;
-use C4::CourseReserves;
+use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors);
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
use C4::Output;
use C4::Koha;
-use C4::CourseReserves;
+use C4::CourseReserves qw(GetCourse GetCourseReserves);
my $cgi = new CGI;
use C4::Auth;
use C4::Output;
-use C4::CourseReserves;
+use C4::CourseReserves qw(SearchCourses);
my $cgi = new CGI;
use C4::Images;
use Koha::DateUtils;
use C4::HTML5Media;
-use C4::CourseReserves;
+use C4::CourseReserves qw(GetItemReservesInfo);
BEGIN {
if (C4::Context->preference('BakerTaylorEnabled')) {
BEGIN {
use_ok('C4::Context');
- use_ok('C4::CourseReserves');
+ use_ok('C4::CourseReserves', qw/:all/);
}
my $dbh = C4::Context->dbh;