Daidze POS Code

##################################################################################################################################
#
# Copyright (C) 2008-2011 Mind System Connection. Lda. Part of Daidze Software, created by Siqsuruq. All other rights reserved.
#
# Mind System Connection Webpage: www.msysc.org
# Daidze Software Page: www.daidze.com www.daidze.org
# E-mail: admin@msysc.org, siqsuruq@gmail.com
#
##################################################################################################################################

proc rescan_modules {} {
	$::db delete_all_reset_id daidze_modules
$::db delete_all_reset_id daidze_access_real
	set files [glob -nocomplain -directory [file join res modul] *]
	foreach f $files {
		set a [file tail $f]
		set query "INSERT INTO daidze_modules(\"name\") VALUES (\'$a\');"
		$::db execute_query $query
		
		set last_modul_id [$::db select_last_inserted daidze_modules id]

set query2 "INSERT INTO daidze_access_real(fk_daidze_modules, \"admin\") VALUES ( \'$last_modul_id\', \'TRUE\');"
$::db execute_query $query2

		set xml_files [glob -nocomplain -directory [file join res modul [file tail $f]] *.xml]
		foreach d $xml_files {
			set query "INSERT INTO daidze_modules_forms(fk_daidze_modules, \"name\") VALUES (\'$last_modul_id\', \'[file tail $d]\');"
			$::db execute_query $query
			set last_form_id [$::db select_last_inserted daidze_modules_forms id]
set query2 "INSERT INTO daidze_access_real(fk_daidze_modules, fk_daidze_modules_forms, \"admin\") VALUES ( \'$last_modul_id\', \'$last_form_id\', \'TRUE\');"
$::db execute_query $query2
			#  Slurp up the data file
			set fp [open "$d" r]
			set file_data [read $fp]
			close $fp
			#  Process data file
			set data [split $file_data "\n"]
			foreach line $data {
				if [regexp -all {(var=")(.*?)(")} $line matchresult] then {
					set tr_var_value [string trimright [string trimleft $matchresult var=\"] \"]
					set query3 "INSERT INTO daidze_forms_widgets(fk_daidze_modules_forms, \"name\") VALUES (\'$last_form_id\', \'$tr_var_value\');"
					$::db execute_query $query3
					set query4 "INSERT INTO daidze_access(fk_daidze_modules, fk_daidze_modules_forms, fk_diadze_forms_widgets) VALUES (\'$last_modul_id\', \'$last_form_id\', \'[$::db select_last_inserted daidze_forms_widgets id]\');"
					$::db execute_query $query4
set query5 "INSERT INTO daidze_access_real(fk_daidze_modules, fk_daidze_modules_forms, fk_daidze_forms_widgets, \"admin\") VALUES ( \'$last_modul_id\', \'$last_form_id\', \'[$::db select_last_inserted daidze_forms_widgets id]\',\'TRUE\');"
$::db execute_query $query5

				} else {}
			}
		}
	}
}