Lines 19-25
Link Here
|
19 |
|
19 |
|
20 |
#Recommended pragmas |
20 |
#Recommended pragmas |
21 |
use Modern::Perl; |
21 |
use Modern::Perl; |
22 |
use diagnostics; |
22 |
use C4::Context; |
23 |
use C4::InstallAuth; |
23 |
use C4::InstallAuth; |
24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
25 |
use C4::Output; |
25 |
use C4::Output; |
Lines 38-43
use Koha::IssuingRules;
Link Here
|
38 |
my $input = new CGI; |
38 |
my $input = new CGI; |
39 |
my $step = $input->param('step'); |
39 |
my $step = $input->param('step'); |
40 |
|
40 |
|
|
|
41 |
unless ( C4::Context->preference('Version') ) { |
42 |
print $input->redirect("/cgi-bin/koha/installer/install.pl"); |
43 |
exit; |
44 |
} |
45 |
|
41 |
#Getting the appropriate template to display to the user |
46 |
#Getting the appropriate template to display to the user |
42 |
my ( $template, $loggedinuser, $cookie ) = |
47 |
my ( $template, $loggedinuser, $cookie ) = |
43 |
C4::InstallAuth::get_template_and_user( |
48 |
C4::InstallAuth::get_template_and_user( |
44 |
- |
|
|