FetchRow(); if ($sumrows5['export'] != "1") { return; } if (!$subaction == "export") { if(incompleteAnsFilterstate() == "inc") { $selecthide=""; $selectshow=""; $selectinc="selected='selected'"; } elseif (incompleteAnsFilterstate() == "filter") { $selecthide="selected='selected'"; $selectshow=""; $selectinc=""; } else { $selecthide=""; $selectshow="selected='selected'"; $selectinc=""; } $vvoutput = "

" ."" ."" ." " ."" ."" ." " ." " ."" ."" ." " ." \n" ."" ."" ." \n" ." \n" ."\n" ."" ." " ."" ."\n" ."" ."

".$clang->gT("Export a VV survey file")."
".$clang->gT("Export Survey").":
".$clang->gT("Export").":
".$clang->gT("File Extension").":	*
" ." " ." " ."
* ".$clang->gT("For easy opening in MS Excel, change the extension to 'tab' or 'txt'")."
[".$clang->gT("Return to Survey Administration")."]

"; } elseif (isset($surveyid) && $surveyid) { //Export is happening $extension=sanitize_paranoid_string(returnglobal('extension')); header("Content-Disposition: attachment; filename=vvexport_$surveyid.".$extension); header("Content-type: text/comma-separated-values; charset=UTF-8"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Pragma: cache"); $s="\t"; $fieldmap=createFieldMap($surveyid, "full"); $surveytable = "{$dbprefix}survey_$surveyid"; GetBaseLanguageFromSurveyID($surveyid); $fieldnames = array_values($connect->MetaColumnNames($surveytable, true)); //Create the human friendly first line $firstline=""; $secondline=""; foreach ($fieldnames as $field) { $fielddata=arraySearchByKey($field, $fieldmap, "fieldname", 1); //$vvoutput .= "

";print_r($fielddata);$vvoutput .= "

"; if (count($fielddata) < 1) {$firstline.=$field;} else //{$firstline.=str_replace("\n", " ", str_replace("\t", " ", strip_tags($fielddata['question'])));} {$firstline.=preg_replace('/\s+/',' ',strip_tags($fielddata['question']));} $firstline .= $s; $secondline .= $field.$s; } $vvoutput = $firstline."\n"; $vvoutput .= $secondline."\n"; $query = "SELECT * FROM $surveytable"; if (incompleteAnsFilterstate() == "inc") { $query .= " WHERE submitdate IS NULL "; } elseif (incompleteAnsFilterstate() == "filter") { $query .= " WHERE submitdate >= ".$connect->DBDate('1980-01-01'). " "; } $result = db_execute_assoc($query) or safe_die("Error:
$query
".$connect->ErrorMsg()); //Checked while ($row=$result->FetchRow()) { foreach ($fieldnames as $field) { $value=trim($row[$field]); // sunscreen for the value. necessary for the beach. // careful about the order of these arrays: // lbrace has to be substituted *first* $value=str_replace(array("{", "\n", "\r", "\t"), array("{lbrace}", "{newline}", "{cr}", "{tab}"), $value); // one last tweak: excel likes to quote values when it // exports as tab-delimited (esp if value contains a comma, // oddly enough). So we're going to encode a leading quote, // if it occurs, so that we can tell the difference between // strings that "really are" quoted, and those that excel quotes // for us. $value=preg_replace('/^"/','{quote}',$value); // yay! that nasty soab won't hurt us now! if($field == "submitdate" && !$value) {$value = "NULL";} $sun[]=$value; } $beach=implode($s, $sun); $vvoutput .= $beach; unset($sun); $vvoutput .= "\n"; } echo $vvoutput; exit; //$vvoutput .= "

$firstline

"; //$vvoutput .= "

$secondline

"; //$vvoutput .= "

"; print_r($fieldnames); $vvoutput .= "

"; //$vvoutput .= "

"; print_r($fieldmap); $vvoutput .= "

"; } ?>