my $input;
loadconfigfile();
+my $curr_ver = Install::getkohaversion();
$::newversion=`cat koha.version`;
chomp $::newversion;
Install::setkohaversion $::newversion;
releasecandidatewarning();
}
-my $answer = showmessage(getmessage('WelcomeToUpgrader',[$::newversion]),'yn','n');
+my $answer = showmessage(getmessage('WelcomeToUpgrader',[$curr_ver,$::newversion]),'yn','n');
if ($answer eq "Y" || $answer eq "y") {
print "Great! continuing upgrade... \n";
} else {
Install::setkohaversion($::newversion);
checkperlmodules();
+backupmycnf();
backupkoha();
getapacheinfo();
installfiles();
# custom templates warning added to installfiles();
updatedatabase();
+restoremycnf();
finalizeconfigfile();
showmessage(getmessage('UpgradeCompleted',['FIXME','FIXME','FIXME','FIXME','FIXME','FIXME']),'PressEnter');