--- a/create_spede_mn_tuksu.tcl	Thu Sep 08 22:23:33 2011 +0300
+++ b/create_spede_mn_tuksu.tcl	Thu Sep 08 22:26:52 2011 +0300
@@ -13,40 +13,40 @@
 ### Check commandline arguments
 set db_str [join $db_list ", "]
 if {$argc < 1} {
-	puts "Creates tables for $db_str target SQLite3 file"
-	puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
-	puts ""
-	puts "-drop option will drop any existing tables of same name."
-	exit 0
+  puts "Creates tables for $db_str target SQLite3 file"
+  puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
+  puts ""
+  puts "-drop option will drop any existing tables of same name."
+  exit 0
 }
 
 set db_drop 0
 set db_output [lindex $argv 0]
 if {$argc >= 2 && [lindex $argv 1] == "-drop"} {
-	set db_drop 1
+  set db_drop 1
 }
 
 ### Open database
 open_db $db_output
 
 if {$db_drop} {
-	puts "WARNING! Dropping of old tables $db_str requested!"
-	puts "All data in those tables will be permanently lost!"
+  puts "WARNING! Dropping of old tables $db_str requested!"
+  puts "All data in those tables will be permanently lost!"
 
-	if {![confirm_yesno "Proceed"]} {
-		puts "Aborting procedure."
-		dbh close
-		exit 0
-	}
+  if {![confirm_yesno "Proceed"]} {
+    puts "Aborting procedure."
+    dbh close
+    exit 0
+  }
 
-	foreach i $db_list {
-		drop_table $i
-	}
+  foreach i $db_list {
+    drop_table $i
+  }
 }
 
 puts "Creating tables $db_str ..."
 foreach i $db_list {
-	create_table_quotes_votes $i 0
+  create_table_quotes_votes $i 0
 }
 
 dbh close