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 my $curr_ver = Install::getkohaversion();
18 $::newversion=`cat koha.version`;
20 Install::setkohaversion $::newversion;
23 if ($::newversion =~ /RC/) {
24 releasecandidatewarning();
27 my $answer = showmessage(getmessage('WelcomeToUpgrader',[$curr_ver,$::newversion]),'yn','n');
28 if ($answer eq "Y" || $answer eq "y") {
29 print "Great! continuing upgrade... \n";
31 showmessage(getmessage('AbortingInstall'),'none');
35 Install::setkohaversion($::newversion);
41 # custom templates warning added to installfiles();
46 showmessage(getmessage('UpgradeCompleted',['FIXME','FIXME','FIXME','FIXME','FIXME','FIXME']),'PressEnter');
48 # my $reply=showmessage('Would you like to complete a survey about your library? [Y]/N: ', 'yn', 'y');
50 # system("perl kohareporter");