update script to IServ2 complained about rooms that did not exist in the current...

diff --git a/maint/update-iserv1-iserv2.pl b/maint/update-iserv1-iserv2.pl
index aa97f0c..b23e17e 100755 (executable)
--- a/maint/update-iserv1-iserv2.pl
+++ b/maint/update-iserv1-iserv2.pl
@@ -215,6 +215,14 @@ while(<IN>) {
 print "converting the database...\n";
 foreach(IServ::DB::GetArr("SELECT * FROM mod_roomreservation_bookings_old;")) {
   my %row = %{$_};
 print "converting the database...\n";
 foreach(IServ::DB::GetArr("SELECT * FROM mod_roomreservation_bookings_old;")) {
   my %row = %{$_};

+
+  # test if room exists, if not, create it
+  my @room = IServ::DB::GetArr "SELECT * FROM rooms WHERE name='".$row{"room"}."';";
+  if(!@room) {
+    print "NOTICE: room $_ was found in old database but not in current, creating it.\n";
+    IServ::DB::Put "rooms", { "name" => $row{"room"} };
+  }
+

   IServ::DB::Put "mod_roomreservation_bookings", { "rrb_room" => $row{"room"},
     "rrb_date" => $row{"date"}, "rrb_tsfirst" => 
     $tsbeginoldkeys{$row{"timebegin"}}, "rrb_tslast" => 
   IServ::DB::Put "mod_roomreservation_bookings", { "rrb_room" => $row{"room"},
     "rrb_date" => $row{"date"}, "rrb_tsfirst" => 
     $tsbeginoldkeys{$row{"timebegin"}}, "rrb_tslast" =>