if ($action eq "updatetable_3")
{
#   warn("Entered update_tables.cgi with action = UpdateTable_3");
#	UpdateUserTable($dbh);
#	$message =  "Update User Data Table";
#	$filemessage = "User Data Table Update Complete";
}
elsif ($action eq "updatetable_4")
{
# warn("Entered update_tables.cgi with action = UpdateTable_4");
#	UpdateTenantTable($dbh);
#	$message =  "Update Tenant Data Table";
# 	$filemessage = "Tenant Data Table Update Complete";
}
elsif ($action eq "updatetable_5")
{
#  warn("Entered update_tables.cgi with action = UpdateTable_5");
#	UpdatePropertyTable($dbh);
#	$message =  "Update Property Data Table";
#	$filemessage = "Property Data Table Update Complete";  
}
elsif ($action eq "updatetable_6")
{
#  warn("Entered update_tables.cgi with action = UpdateTable_6");
#	DownloadUserTable($dbh);
#	$message =  "Download User Data Table";
# 	$filemessage = "Download of File Completed: '$count'";
}

else
{
#	print p (escapeHTML ("Impossible Error: selected action is unknown: $action"));
  $message =  "Database Failure";
  $filemessage = "File Load Falure. Impossible Error: selected action is unknown: $action";
}
warn("Just before close connection");
manageusers::CloseConnection();

#window.parent.postMessage({
#    'func': 'GetFileLoadStatus',
#    'message': 'Message text from iframe.'
#}, "*");



if ($action eq "updatereport"){
warn("In updatereport before CreateFataFeedbackForm");
CreateDataFeedbackForm($message, $filemessage);
}