4 use strict; # please develop with the strict pragma
7 Install::setlanguage('en');
9 ###############################################
10 # SET THE etcdir ENVIRONMENT VAR INSTEAD #
11 ###############################################
12 Install::setetcdir($ENV{etcdir}||'/etc');
17 ($::kohaversion = Install::getkohaversion() ) || ($::kohaversion='unknown version');
18 $::newversion=`cat koha.version`;
20 if ($::newversion =~ /RC/) {
21 releasecandidatewarning();
24 #FIXME: need kohaversion number
25 my $answer = showmessage(getmessage('WelcomeToUpgrader',[$::kohaversion,$::newversion]),'yn');
27 unless ($answer =~/y/i) {
28 showmessage(getmessage('AbortingInstall'),'none');
31 print "Great! continuing upgrade... \n";
34 Install::setkohaversion($::newversion);
39 # custom templates warning added to installfiles();
43 showmessage(getmessage('UpgradeCompleted',['FIXME','FIXME','FIXME','FIXME','FIXME','FIXME']),'PressEnter');
45 my $reply=showmessage('Would you like to complete a survey about your library? [Y]/N: ', 'yn', 'y');
47 system("perl kohareporter");