-#FIXME: need kohaversion number
-my $answer = showmessage(getmessage('WelcomeToUpgrader',[$::kohaversion,$::newversion]),'yn');
-
-unless ($answer =~/y/i) {
+my $answer = showmessage(getmessage('WelcomeToUpgrader',[$curr_ver,$::newversion]),'yn','n');
+if ($answer eq "Y" || $answer eq "y") {
+ print "Great! continuing upgrade... \n";
+} else {