\n"; $deletesurveyoutput .= "\n"; if (!isset($surveyid) || !$surveyid) { $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) { $deletesurveyoutput .= "\t
\n"; $deletesurveyoutput .= "\t".$clang->gT("You are about to delete this survey")." ($surveyid)

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

\n"; $deletesurveyoutput .= "\t".$clang->gT("It will also delete any resources/files that have been uploaded for this survey.")."

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

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

\n"; } if (tableExists("tokens_$surveyid")) { $deletesurveyoutput .= "\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 .= "

\n"; $deletesurveyoutput .= "\t\n"; $deletesurveyoutput .= "\t\n"; } else //delete the survey { $dict = NewDataDictionary($connect); if (tableExists("survey_$surveyid")) //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 (tableExists("survey_{$surveyid}_timings")) //delete the survey_$surveyid_timings table { $dsquery = $dict->DropTableSQL("{$dbprefix}survey_{$surveyid}_timings"); //$dict->ExecuteSQLArray($sqlarraytimings); $dsresult = $dict->ExecuteSQLArray($dsquery) or safe_die ("Couldn't \"$dsquery\" because
".$connect->ErrorMsg()); } if (tableExists("tokens_$surveyid")) //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}survey_permissions 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); $sdel = "DELETE {$dbprefix}quota_languagesettings FROM {$dbprefix}quota_languagesettings, {$dbprefix}quota WHERE {$dbprefix}quota_languagesettings.quotals_quota_id={$dbprefix}quota.id and sid=$surveyid"; $sres = $connect->Execute($sdel); $sdel = "DELETE FROM {$dbprefix}quota WHERE sid=$surveyid"; $sres = $connect->Execute($sdel); $sdel = "DELETE FROM {$dbprefix}quota_members WHERE sid=$surveyid;"; $sres = $connect->Execute($sdel); rmdirr($uploaddir.'/surveys/'.$surveyid); $deletesurveyoutput .= "\t

".$clang->gT("This survey has been deleted.")."

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