gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug 8215: (followup) make sure C4::CourseReserves doesn't export anything 

New modules should not export any symbols by default
without a very good reason.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Galen Charlton 2013-05-21 09:53:03 -07:00
parent 4db08281c5
commit 65b874bb47
11 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C4/CourseReserves.pm
View File

@ -17,8 +17,6 @@ package C4::CourseReserves;
use Modern::Perl;
require Exporter;
use C4::Context;
use C4::Items qw(GetItem ModItem);
use C4::Biblio qw(GetBiblioFromItemNumber);
@ -27,8 +25,9 @@ use C4::Circulation qw(GetOpenIssue);
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
@ -49,6 +48,7 @@ BEGIN {
&GetItemReservesInfo
);
%EXPORT_TAGS = ( 'all' => \@EXPORT_OK );
$DEBUG = 0;
@FIELDS = ( 'itype', 'ccode', 'holdingbranch', 'location' );

2
catalogue/detail.pl
View File

@ -41,7 +41,7 @@ use C4::XSLT;
use C4::Images;
use Koha::DateUtils;
use C4::HTML5Media;
use C4::CourseReserves;
use C4::CourseReserves qw(GetItemReservesInfo);
# use Smart::Comments;

2
course_reserves/add_items.pl
View File

@ -28,7 +28,7 @@ use C4::Koha;
use C4::Biblio;
use C4::Branch;
use C4::CourseReserves;
use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve);
my $cgi = new CGI;

2
course_reserves/course-details.pl
View File

@ -26,7 +26,7 @@ use C4::Auth;
use C4::Output;
use C4::Koha;
use C4::CourseReserves;
use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves);
my $cgi = new CGI;

2
course_reserves/course-reserves.pl
View File

@ -25,7 +25,7 @@ use CGI;
use C4::Auth;
use C4::Output;
use C4::CourseReserves;
use C4::CourseReserves qw(GetCourses);
my $cgi = new CGI;

2
course_reserves/course.pl
View File

@ -26,7 +26,7 @@ use C4::Auth;
use C4::Output;
use C4::Koha;
use C4::CourseReserves;
use C4::CourseReserves qw(GetCourse);
my $cgi = new CGI;

2
course_reserves/mod_course.pl
View File

@ -25,7 +25,7 @@ use C4::Output;
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(

2
opac/opac-course-details.pl
View File

@ -26,7 +26,7 @@ use C4::Auth;
use C4::Output;
use C4::Koha;
use C4::CourseReserves;
use C4::CourseReserves qw(GetCourse GetCourseReserves);
my $cgi = new CGI;

2
opac/opac-course-reserves.pl
View File

@ -25,7 +25,7 @@ use CGI;
use C4::Auth;
use C4::Output;
use C4::CourseReserves;
use C4::CourseReserves qw(SearchCourses);
my $cgi = new CGI;

2
opac/opac-detail.pl
View File

@ -50,7 +50,7 @@ use List::MoreUtils qw/any none/;
use C4::Images;
use Koha::DateUtils;
use C4::HTML5Media;
use C4::CourseReserves;
use C4::CourseReserves qw(GetItemReservesInfo);
BEGIN {
if (C4::Context->preference('BakerTaylorEnabled')) {

2
t/db_dependent/CourseReserves.t
View File

@ -11,7 +11,7 @@ use Data::Dumper;
BEGIN {
use_ok('C4::Context');
use_ok('C4::CourseReserves');
use_ok('C4::CourseReserves', qw/:all/);
}
my $dbh = C4::Context->dbh;