\n"; $deletesurveyoutput .= "\n"; $deletesurveyoutput .= "\t\n"; if (!isset($surveyid) || !$surveyid) { $deletesurveyoutput .= "\t

".$clang->gT("Delete Survey")."

\n"; $deletesurveyoutput .= " ".$clang->gT("Error")." \n"; $deletesurveyoutput .= $clang->gT("You have not selected a survey to delete")." \n"; $deletesurveyoutput .= "\n"; $deletesurveyoutput .= "

\n"; $deletesurveyoutput .= "\n"; return; } if (!isset($deleteok) || !$deleteok) { $tablelist = $connect->MetaTables(); $deletesurveyoutput .= "\t\n"; $deletesurveyoutput .= "\t\t
\n"; $deletesurveyoutput .= "\t\t\t".$clang->gT("Warning")."
\n"; $deletesurveyoutput .= "\t\t\t".$clang->gT("You are about to delete this survey")." ($surveyid)

\n"; $deletesurveyoutput .= "\t\t\t".$clang->gT("This process will delete this survey, and all related groups, questions answers and conditions.")."

\n"; $deletesurveyoutput .= "\t\t\t".$clang->gT("We recommend that before you delete this survey you export the entire survey from the main administration screen.")."\n"; if (in_array("{$dbprefix}survey_$surveyid", $tablelist)) { $deletesurveyoutput .= "\t\t\t

\n".$clang->gT("This survey is active and a responses table exists. If you delete this survey, these responses will be deleted. We recommend that you export the responses before deleting this survey.")."

\n"; } if (in_array("{$dbprefix}tokens_$surveyid", $tablelist)) { $deletesurveyoutput .= "\t\t\t".$clang->gT("This survey has an associated tokens table. If you delete this survey this tokens table will be deleted. We recommend that you export or backup these tokens before deleting this survey.")."

\n"; } $deletesurveyoutput .= "\t\t\n"; $deletesurveyoutput .= "\t\n"; $deletesurveyoutput .= "\t\n"; $deletesurveyoutput .= "\t\t
\n"; $deletesurveyoutput .= "\t\t\t
\n"; // $deletesurveyoutput .= "\t\t\t\n"; $deletesurveyoutput .= "\t\t\t\n"; $deletesurveyoutput .= "\t\t\n"; $deletesurveyoutput .= "\t\n"; $deletesurveyoutput .= "\n"; } else //delete the survey { $tablelist = $connect->MetaTables(); $dict = NewDataDictionary($connect); if (in_array("{$dbprefix}survey_$surveyid", $tablelist)) //delete the survey_$surveyid table { $dsquery = $dict->DropTableSQL("{$dbprefix}survey_$surveyid"); //$dict->ExecuteSQLArray($sqlarray); $dsresult = $dict->ExecuteSQLArray($dsquery) or safe_die ("Couldn't \"$dsquery\" because
".$connect->ErrorMsg()); } if (in_array("{$dbprefix}tokens_$surveyid", $tablelist)) //delete the tokens_$surveyid table { $dsquery = $dict->DropTableSQL("{$dbprefix}tokens_$surveyid"); $dsresult = $dict->ExecuteSQLArray($dsquery) or safe_die ("Couldn't \"$dsquery\" because
".$connect->ErrorMsg()); } $dsquery = "SELECT qid FROM {$dbprefix}questions WHERE sid=$surveyid"; $dsresult = db_execute_assoc($dsquery) or safe_die ("Couldn't find matching survey to delete
$dsquery
".$connect->ErrorMsg()); while ($dsrow = $dsresult->FetchRow()) { $asdel = "DELETE FROM {$dbprefix}answers WHERE qid={$dsrow['qid']}"; $asres = $connect->Execute($asdel); $cddel = "DELETE FROM {$dbprefix}conditions WHERE qid={$dsrow['qid']}"; $cdres = $connect->Execute($cddel) or safe_die ("Delete conditions failed
$cddel
".$connect->ErrorMsg()); $qadel = "DELETE FROM {$dbprefix}question_attributes WHERE qid={$dsrow['qid']}"; $qares = $connect->Execute($qadel); } $qdel = "DELETE FROM {$dbprefix}questions WHERE sid=$surveyid"; $qres = $connect->Execute($qdel); $scdel = "DELETE FROM {$dbprefix}assessments WHERE sid=$surveyid"; $scres = $connect->Execute($scdel); $gdel = "DELETE FROM {$dbprefix}groups WHERE sid=$surveyid"; $gres = $connect->Execute($gdel); $slsdel = "DELETE FROM {$dbprefix}surveys_languagesettings WHERE surveyls_survey_id=$surveyid"; $slsres = $connect->Execute($slsdel); $srdel = "DELETE FROM {$dbprefix}surveys_rights WHERE sid=$surveyid"; $srres = $connect->Execute($srdel); $srdel = "DELETE FROM {$dbprefix}saved_control WHERE sid=$surveyid"; $srres = $connect->Execute($srdel); $sdel = "DELETE FROM {$dbprefix}surveys WHERE sid=$surveyid"; $sres = $connect->Execute($sdel); $deletesurveyoutput .= "\t\n"; $deletesurveyoutput .= "\t\t
\n"; $deletesurveyoutput .= "\t\t\t".$clang->gT("This survey has been deleted.")."

\n"; $deletesurveyoutput .= "\t\t\t\n"; $deletesurveyoutput .= "\t\t\n"; $deletesurveyoutput .= "\t\n"; $surveyid=false; } $deletesurveyoutput .= "
 \n"; ?>