kohabug 2078 - removed ersatz ESCAPE="html" added in prior patch

[koha.git] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index bae8dbc..29dc039 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -553,6 +553,7 @@ WriteMakefile(
 'Getopt::Long' => 2.35,
 'Getopt::Std' => 1.05,
 'HTML::Template::Pro' => 0.69,
+'HTML::Scrubber' => 0.08,
 'HTTP::Cookies' => 1.39,
 'HTTP::Request::Common' => 1.26,
 'Image::Magick' => 6.2,
@@ -1094,7 +1095,11 @@ doing it in a database that you don't want to lose.
 Please specify the name of the test database to be
 used by Koha);
       
-    $config{'TEST_DB_NAME'} = _get_value('TEST_DB_NAME', $msg, $defaults->{'TEST_DB_NAME'}, $valid_values, $install_log_values);
+      $config{'TEST_DB_NAME'} = _get_value('TEST_DB_NAME', $msg, $defaults->{'TEST_DB_NAME'}, $valid_values, $install_log_values);
+      while ( $config{'TEST_DB_NAME'} eq $config{'DB_NAME'} ) {
+          $msg = q(Please do not use the same database for testing as you do for production. You run the severe risk of data loss.);
+          $config{'TEST_DB_NAME'} = _get_value('TEST_DB_NAME', $msg, $defaults->{'TEST_DB_NAME'}, $valid_values, $install_log_values);
+      }
 
       $msg = q(
 Please specify the user that owns the database to be