use Modern::Perl;
use diagnostics;
-use C4::InstallAuth;
+use C4::InstallAuth qw( get_template_and_user );
use CGI qw ( -utf8 );
-use POSIX qw(strftime);
+use POSIX;
use C4::Context;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
-use C4::Languages qw(getAllLanguages getTranslatedLanguages);
+use C4::Languages qw( getAllLanguages getTranslatedLanguages );
use C4::Installer;
use C4::Installer::PerlModules;
use Koha;
-my $query = new CGI;
+my $query = CGI->new;
my $step = $query->param('step');
my $language = $query->param('language');
template_name => "installer/step" . ( $step ? $step : 1 ) . ".tt",
query => $query,
type => "intranet",
- debug => 1,
}
);
my $op = $query->param('op');
if ( $op && $op eq 'finished' ) {
- #
+ # Remove the HandleError set at the beginning of the installer process
+ C4::Context->dbh->disconnect;
+
# we have finished, just redirect to mainpage.
- #
print $query->redirect("/cgi-bin/koha/mainpage.pl");
exit;
}