projects
/
srvgit
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 17600: Standardize our EXPORT_OK
[srvgit]
/
C4
/
InstallAuth.pm
diff --git
a/C4/InstallAuth.pm
b/C4/InstallAuth.pm
index
7ed980b
..
bb868aa
100644
(file)
--- a/
C4/InstallAuth.pm
+++ b/
C4/InstallAuth.pm
@@
-18,24
+18,23
@@
package C4::InstallAuth;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Digest::MD5 qw(md5_base64);
use CGI::Session;
use File::Spec;
require Exporter;
use C4::Context;
use CGI::Session;
use File::Spec;
require Exporter;
use C4::Context;
-use C4::Output;
+use C4::Output
qw( output_html_with_http_headers )
;
use C4::Templates;
use C4::Templates;
-use C4::Koha;
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-
-@ISA = qw(Exporter);
-@EXPORT = qw(
- &checkauth
- &get_template_and_user
-);
+our (@ISA, @EXPORT_OK);
+BEGIN {
+ @ISA = qw(Exporter);
+ @EXPORT_OK = qw(
+ checkauth
+ get_template_and_user
+ );
+}
=head1 NAME
=head1 NAME
@@
-243,7
+242,7
@@
sub checkauth {
if ( $sessionID = $query->cookie("CGISESSID") ) {
C4::Context->_new_userenv($sessionID);
my $session =
if ( $sessionID = $query->cookie("CGISESSID") ) {
C4::Context->_new_userenv($sessionID);
my $session =
- CGI::Session->new( "driver:File
;serializer:yaml
", $sessionID,
+ CGI::Session->new( "driver:File", $sessionID,
{ Directory => $sessdir } );
if ( $session->param('cardnumber') ) {
C4::Context->set_userenv(
{ Directory => $sessdir } );
if ( $session->param('cardnumber') ) {
C4::Context->set_userenv(
@@
-283,7
+282,7
@@
sub checkauth {
}
unless ($userid) {
my $session =
}
unless ($userid) {
my $session =
- CGI::Session->new( "driver:File
;serializer:yaml
", undef, { Directory => $sessdir } );
+ CGI::Session->new( "driver:File", undef, { Directory => $sessdir } );
$sessionID = $session->id;
$userid = $query->param('userid');
C4::Context->_new_userenv($sessionID);
$sessionID = $session->id;
$userid = $query->param('userid');
C4::Context->_new_userenv($sessionID);