\n";
+ $headers .= "X-Mailer: phpESP\n";
+ $headers .= "Return-Path: <". $GLOBALS['HTTP_SERVER_VARS']['SERVER_ADMIN'] ."@".
+ $GLOBALS['HTTP_SERVER_VARS']['SERVER_NAME'] . ">\n";
+
+ reset($answers);
+ while($arr = array_shift($answers)) {
+ unset($x);
+ if (count($arr) > 2)
+ list($k, $v, $x) = $arr;
+ else
+ list($k, $v) = $arr;
+ if (is_array($v))
+ $v = implode($isep, $v);
+ if (isset($x)) {
+ if (is_array($x))
+ $v .= ' (' . implode($isep, $x) . ')';
+ else
+ $v .= ' = ' . $x;
+ }
+ $body .= $k . $qsep . $v . $end;
+ }
+
+ $mail = new PHPMailer();
+
+ $mail->Version = "Moodle $CFG->version"; // mailer version
+ $mail->PluginDir = "$CFG->libdir/phpmailer/"; // plugin directory (eg smtp plugin)
+
+ if (current_language() != "en") {
+ $mail->CharSet = get_string("thischarset");
+ }
+
+ if ($CFG->smtphosts == "qmail") {
+ $mail->IsQmail(); // use Qmail system
+
+ } else if (empty($CFG->smtphosts)) {
+ $mail->IsMail(); // use PHP mail() = sendmail
+
+ } else {
+ $mail->IsSMTP(); // use SMTP directly
+ if ($CFG->debug > 7) {
+ echo "\n";
+ $mail->SMTPDebug = true;
+ }
+ $mail->Host = "$CFG->smtphosts"; // specify main and backup servers
+
+ if ($CFG->smtpuser) { // Use SMTP authentication
+ $mail->SMTPAuth = true;
+ $mail->Username = $CFG->smtpuser;
+ $mail->Password = $CFG->smtppass;
+ }
+ }
+
+ $mail->Sender = $CFG->noreplyaddress;
+ $mail->From = $CFG->noreplyaddress;
+ $mail->FromName = $name;
+ $mail->Subject = $subject;
+ $mail->AddAddress($email);
+ $mail->WordWrap = 79; // set word wrap
+
+ $mail->IsHTML(true);
+ $mail->Encoding = "quoted-printable"; // Encoding to use
+ $mail->Body = $body;
+ $mail->AltBody = "\n$body\n";
+
+ if ($mail->Send()) {
+ return true;
+ } else {
+ return false;
+ }
+ }
+
+ function response_select_compact($rid, $qids = null) {
+ $res = $this->response_select($rid, 'type_id', $qids);
+ $cpq = array();
+ reset($res);
+ while(list($qid, $arr) = each($res)) {
+ if (strstr($qid, '_')) {
+ // rank or other
+ if ($arr[0] == 8) {
+ // rank
+ $cpq[] = array($qid, $arr[2], array($arr[1]));
+ } else {
+ // other
+ $cpq[] = array($qid, $arr[1]);
+ }
+ } elseif (is_array($arr[0])) {
+ // multiple
+ $cpq[] = array($qid,
+ array_map(create_function('$a', 'return $a[2];'), $arr),
+ array_map(create_function('$b', 'return $b[1];'), $arr));
+ } else {
+ if ($arr[0] == 4 || $arr[0] == 6)
+ $cpq[] = array($qid, $arr[2], array($arr[1]));
+ else
+ $cpq[] = array($qid, $arr[2]);
+ }
+ }
+ return $cpq;
+ }
+
+ function response_insert($sid, $section, $rid, $userid, &$formdata) {
+ global $CFG;
+
+ if(empty($rid)) {
+ // create a uniqe id for this response
+ $record = new object;
+ $record->survey_id = $sid;
+ $record->username = $userid;
+ $rid = insert_record('questionnaire_response', $record);
+ }
+
+ if (!empty($this->questionsbysec[$section])) {
+ foreach ($this->questionsbysec[$section] as $question) {
+ $question->insert_response($rid, $formdata);
+ }
+ }
+ return($rid);
+ }
+
+ function response_select($rid, $col = null, $qids = null) {
+ global $CFG;
+
+ $sid = $this->survey->id;
+ $values = array();
+
+ if ($col == null) {
+ $col = '';
+ }
+ if (!is_array($col) && !empty($col)) {
+ $col = explode(',', preg_replace("/\s/",'', $col));
+ }
+ if (is_array($col) && count($col) > 0) {
+ $col = ',' . implode(',', array_map(create_function('$a','return "q.$a";'), $col));
+ }
+
+ if ($qids == null) {
+ $qids = '';
+ } elseif (is_array($qids)) {
+ $qids = 'AND a.question_id ' . $this->array_to_insql($qids);
+ } elseif (intval($qids) > 0) {
+ $qids = 'AND a.question_id = ' . intval($qids);
+ } else {
+ $qids = '';
+ }
+
+ // --------------------- response_bool ---------------------
+ $sql = 'SELECT q.id '.$col.', a.choice_id '.
+ 'FROM '.$CFG->prefix.'questionnaire_response_bool a, '.$CFG->prefix.'questionnaire_question q '.
+ 'WHERE a.response_id=\''.$rid.'\' AND a.question_id=q.id '.$qids;
+ if ($records = get_records_sql($sql)) {
+ foreach ($records as $row) {
+ /// Change the data object into a numerically indexed array.
+ ///*** Because of the way the following code works, we need to remove the non-numeric keys of the array.
+ ///*** The problem is that the Moodle db calls returns hask and numeric keys for each value (2 per).
+ $row = (array)$row;
+ $qid = array_shift($row);
+ foreach ($row as $key => $val) {
+ if (!is_numeric($key)) unset($row[$key]);
+ }
+ $val = array_pop($row);
+ $values[$qid] = $row;
+ array_push($values["$qid"], ($val == 'Y') ? get_string('yes') : get_string('no'), $val);
+ }
+ }
+
+ // --------------------- response_single ---------------------
+ $sql = 'SELECT q.id '.$col.',c.content as ccontent,c.id as cid '.
+ 'FROM '.$CFG->prefix.'questionnaire_response_single a, '.
+ $CFG->prefix.'questionnaire_question q, '.
+ $CFG->prefix.'questionnaire_question_choice c '.
+ 'WHERE a.response_id=\''.$rid.'\' AND a.question_id=q.id AND a.choice_id=c.id '.$qids;
+ if ($records = get_records_sql($sql)) {
+ foreach ($records as $row) {
+ /// Change the data object into a numerically indexed array.
+ ///*** Because of the way the following code works, we need to remove the non-numeric keys of the array.
+ ///*** The problem is that the Moodle db calls returns hask and numeric keys for each value (2 per).
+ $row = (array)$row;
+ $qid = array_shift($row);
+ foreach ($row as $key => $val) {
+ if (!is_numeric($key)) unset($row[$key]);
+ }
+ $c = count($row);
+ $val = $row[$c - 2];
+ if (ereg('^!other', $val))
+ $row[$c - 1] = 'other_' . $row[$c - 1];
+ else
+ settype($row[$c - 1], 'integer');
+ $values[$qid] = $row;
+ }
+ }
+
+ // --------------------- response_multiple ---------------------
+ $sql = 'SELECT a.id as aid, q.id as qid '.$col.',c.content as ccontent,c.id as cid '.
+ 'FROM '.$CFG->prefix.'questionnaire_response_multiple a, '.
+ $CFG->prefix.'questionnaire_question q, '.$CFG->prefix.'questionnaire_question_choice c '.
+ 'WHERE a.response_id=\''.$rid.'\' AND a.question_id=q.id AND a.choice_id=c.id '.$qids.' '.
+ 'ORDER BY a.id,a.question_id,c.id';
+ $arr = array();
+ $tmp = null;
+ if ($records = get_records_sql($sql)) {
+ foreach ($records as $row) {
+ /// Change the data object into a numerically indexed array.
+ ///*** Because of the way the following code works, we need to remove the non-numeric keys of the array.
+ ///*** The problem is that the Moodle db calls returns hask and numeric keys for each value (2 per).
+ $row = (array)$row;
+ array_shift($row); // get rid of the answer id.
+ $qid = array_shift($row);
+ foreach ($row as $key => $val) {
+ if (!is_numeric($key)) unset($row[$key]);
+ }
+ $c = count($row);
+ $val = $row[$c - 2];
+ if (ereg('^!other', $val))
+ $row[$c - 1] = 'other_' . $row[$c - 1];
+ else
+ settype($row[$c - 1], 'integer');
+ if($tmp == $qid) {
+ $arr[] = $row;
+ continue;
+ }
+ if($tmp != null)
+ $values["$tmp"]=$arr;
+ $tmp = $qid;
+ $arr = array($row);
+ }
+ }
+ if($tmp != null)
+ $values["$tmp"]=$arr;
+ unset($arr);
+ unset($tmp);
+ unset($row);
+
+ // --------------------- response_other ---------------------
+ $sql = 'SELECT q.id,c.id as cid '.$col.',a.response as aresponse '.
+ 'FROM '.$CFG->prefix.'questionnaire_response_other a, '.$CFG->prefix.'questionnaire_question q, '.
+ $CFG->prefix.'questionnaire_question_choice c '.
+ 'WHERE a.response_id=\''.$rid.'\' AND a.question_id=q.id AND a.choice_id=c.id '.$qids.' '.
+ 'ORDER BY a.question_id,c.id';
+ if ($records = get_records_sql($sql)) {
+ foreach ($records as $row) {
+ /// Change the data object into a numerically indexed array.
+ ///*** Because of the way the following code works, we need to remove the non-numeric keys of the array.
+ ///*** The problem is that the Moodle db calls returns hask and numeric keys for each value (2 per).
+ $row = (array)$row;
+ $qid = array_shift($row);
+ foreach ($row as $key => $val) {
+ if (!is_numeric($key)) unset($row[$key]);
+ }
+ $cid = array_shift($row);
+ array_push($row, $row[count($row) - 1]);
+ $values["${qid}_${cid}"] = $row;
+ }
+ }
+
+ // --------------------- response_rank ---------------------
+ $sql = 'SELECT a.id as aid, q.id AS qid, c.id AS cid '.$col.',c.content as ccontent,a.rank as arank '.
+ 'FROM '.$CFG->prefix.'questionnaire_response_rank a, '.
+ $CFG->prefix.'questionnaire_question q, '.
+ $CFG->prefix.'questionnaire_question_choice c '.
+ 'WHERE a.response_id=\''.$rid.'\' AND a.question_id=q.id AND a.choice_id=c.id '.$qids.' '.
+ 'ORDER BY aid, a.question_id,c.id';
+ if ($records = get_records_sql($sql)) {
+ foreach ($records as $row) {
+ /// Change the data object into a numerically indexed array.
+ ///*** Because of the way the following code works, we need to remove the non-numeric keys of the array.
+ ///*** The problem is that the Moodle db calls returns hash and numeric keys for each value (2 per).
+ $row = (array)$row;
+ array_shift($row); // get rid of the answer id.
+
+ /// Next two are 'qid' and 'cid', each with numeric and hash keys.
+ $qid = array_shift($row);
+ array_shift($row);
+ $qid .= '_'.array_shift($row);
+ array_shift($row);
+
+ foreach ($row as $key => $val) {
+ if (!is_numeric($key)) unset($row[$key]);
+ }
+ settype($row[count($row) - 1], 'integer');
+ $values[$qid] = $row;
+ }
+ }
+
+ // --------------------- response_text ---------------------
+ $sql = 'SELECT q.id '.$col.',a.response as aresponse '.
+ 'FROM '.$CFG->prefix.'questionnaire_response_text a, '.$CFG->prefix.'questionnaire_question q '.
+ 'WHERE a.response_id=\''.$rid.'\' AND a.question_id=q.id '.$qids;
+ if ($records = get_records_sql($sql)) {
+ foreach ($records as $row) {
+ /// Change the data object into a numerically indexed array.
+ ///*** Because of the way the following code works, we need to remove the non-numeric keys of the array.
+ ///*** The problem is that the Moodle db calls returns hask and numeric keys for each value (2 per).
+ $row = (array)$row;
+ $qid = array_shift($row);
+ foreach ($row as $key => $val) {
+ if (!is_numeric($key)) unset($row[$key]);
+ }
+ $values["$qid"]=$row;
+ $val = array_pop($values["$qid"]);
+ array_push($values["$qid"], $val, $val);
+ }
+ }
+
+ // --------------------- response_date ---------------------
+ $sql = 'SELECT q.id '.$col.',a.response as aresponse '.
+ 'FROM '.$CFG->prefix.'questionnaire_response_date a, '.$CFG->prefix.'questionnaire_question q '.
+ 'WHERE a.response_id=\''.$rid.'\' AND a.question_id=q.id '.$qids;
+ if ($records = get_records_sql($sql)) {
+ foreach ($records as $row) {
+ /// Change the data object into a numerically indexed array.
+ ///*** Because of the way the following code works, we need to remove the non-numeric keys of the array.
+ ///*** The problem is that the Moodle db calls returns hask and numeric keys for each value (2 per).
+ $row = (array)$row;
+ $qid = array_shift($row);
+ foreach ($row as $key => $val) {
+ if (!is_numeric($key)) unset($row[$key]);
+ }
+ $values["$qid"]=$row;
+ $val = array_pop($values["$qid"]);
+ array_push($values["$qid"], $val, $val);
+ }
+ }
+
+ // --------------------- return ---------------------
+ uksort($values, 'questionnaire_response_key_cmp');
+ return($values);
+ }
+
+ function response_goto_thankyou() {
+ global $CFG;
+
+ $select = 'id = '.$this->survey->id;
+ $fields = 'thanks_page,thank_head,thank_body';
+ if ($result = get_record_select('questionnaire_survey', $select, $fields)) {
+ $thank_url = $result->thanks_page;
+ $thank_head = $result->thank_head;
+ $thank_body = $result->thank_body;
+ } else {
+ $thank_url = '';
+ $thank_head = '';
+ $thank_body = '';
+ }
+ if(!empty($thank_url)) {
+ if(!headers_sent()) {
+ header("Location: $thank_url");
+ exit;
+ }
+ ?>
+
+
+
+
+
+ Return
+
+
+
+
+ survey->id.' AND complete = \'Y\'';
+ if ($userid !== false) {
+ $select .= ' AND username = \''.$userid.'\'';
+ }
+ if (!($responses = get_records_select('questionnaire_response', $select, 'id', 'id,survey_id'))) {
+ return;
+ }
+ $total = count($responses);
+
+ $rids = array();
+ $i = 0;
+ $curr_pos = -1;
+ foreach ($responses as $response) {
+ array_push($rids, $response->id);
+ if ($response->id == $curr_rid) {
+ $curr_pos = $i;
+ }
+ $i++;
+ }
+
+ $prev_rid = ($curr_pos > 0) ? $rids[$curr_pos - 1] : null;
+ $next_rid = ($curr_pos < $total - 1) ? $rids[$curr_pos + 1] : null;
+ $rows_per_page = 1;
+ $pages = ceil($total / $rows_per_page);
+
+ $url = $CFG->wwwroot.'/mod/questionnaire/report.php?where=results&sid='.$this->survey->id;
+
+ $mlink = create_function('$i,$r', 'return "$i";');
+
+ $linkarr = array();
+
+ $display_pos = 1;
+ if ($prev_rid != null) {
+ array_push($linkarr, "".get_string('previous', 'questionnaire').'');
+ }
+ for ($i = 0; $i < $curr_pos; $i++) {
+ array_push($linkarr, "$display_pos");
+ $display_pos++;
+ }
+ array_push($linkarr, "$display_pos");
+ for (++$i; $i < $total; $i++) {
+ $display_pos++;
+ array_push($linkarr, "$display_pos");
+ }
+ if ($next_rid != null)
+ array_push($linkarr, "".get_string('next', 'questionnaire').'');
+
+ ?>
+
+
+
+
+
+
+ 0) {
+ $cidstr = $this->array_to_insql($cids);
+ } else {
+ $cidstr = '';
+ }
+ }
+
+ // build associative array holding whether each question
+ // type has answer choices or not and the table the answers are in
+ /// TO DO - FIX BELOW TO USE STANDARD FUNCTIONS
+ $has_choices = array();
+ $response_table = array();
+ if (!($types = get_records('questionnaire_question_type', '', '', 'id', 'id,has_choices,response_table'))) {
+ $errmsg = sprintf('%s [ %s: question_type ]',
+ 'Error system table corrupt.', 'Table');
+ return($errmsg);
+ }
+ foreach ($types as $type) {
+ $has_choices[$type->id]=$type->has_choices;
+ $response_table[$type->id]=$type->response_table;
+ }
+
+ // load survey title (and other globals)
+ if (empty($this->survey)) {
+ $errmsg = 'Error opening survey.' ." [ ID:${sid} R:";
+ return($errmsg);
+ }
+
+ if (empty($this->questions)) {
+ $errmsg = 'Error opening survey.' .' '. 'No questions found.' ." [ ID:${sid} ]";
+ return($errmsg);
+ }
+
+ // find out more about the question we are cross analyzing on (if any)
+ if($cross) {
+ $crossTable = $response_table[get_field('questionnaire_question', 'type_id', 'id', $qid)];
+ if(!in_array($crossTable, array('response_single','response_bool','response_multiple'))) {
+ $errmsg = 'Error cross-analyzing. Question not valid type.' .' [ '. 'Table' .": ${crossTable} ]";
+ return($errmsg);
+ }
+ }
+
+ // find total number of survey responses
+ // and relevant response ID's
+ if (!empty($rid)) {
+ $rids = $rid;
+ if (is_array($rids)) {
+ $ridstr = "IN (" . ereg_replace("([^,]+)","'\\1'", join(",", $rids)) .")";
+ $navbar = false;
+ } else {
+ $ridstr = "= '${rid}'";
+ $navbar = true;
+ }
+ $total = 1;
+ } else {
+ $navbar = false;
+ $sql = "";
+ if($cross) {
+ if(!empty($cidstr))
+ $sql = "SELECT A.response_id, R.id
+ FROM ".$CFG->prefix.'questionnaire_'.$crossTable." A,
+ ".$CFG->prefix."questionnaire_response R
+ WHERE A.response_id=R.id AND
+ R.complete='Y' AND
+ A.question_id='${qid}' AND
+ A.choice_id ${cidstr}
+ ORDER BY A.response_id";
+ else
+ $sql = "SELECT A.response_id, R.id
+ FROM ".$CFG->prefix.'questionnaire_'.$crossTable." A,
+ ".$CFG->prefix."questionnaire_response R
+ WHERE A.response_id=R.id AND
+ R.complete='Y' AND
+ A.question_id='${qid}' AND
+ A.choice_id = 0
+ ORDER BY A.response_id";
+ } else if ($uid !== false) {
+ $sql = "SELECT r.id, r.survey_id
+ FROM ".$CFG->prefix."questionnaire_response r
+ WHERE r.survey_id='{$this->survey->id}' AND
+ r.username = $uid AND
+ r.complete='Y'
+ ORDER BY r.id";
+ } else {
+ $sql = "SELECT R.id, R.survey_id
+ FROM ".$CFG->prefix."questionnaire_response R
+ WHERE R.survey_id='{$this->survey->id}' AND
+ R.complete='Y'
+ ORDER BY R.id";
+ }
+ if (!($rows = get_records_sql($sql))) {
+ $errmsg = 'Error opening survey.' ." [ ID:${sid} ] [ ";
+ return($errmsg);
+ }
+ $total = count($rows);
+ if($total < 1) {
+ $errmsg = 'Error opening survey.' .' '. 'No responses found.' ." [ ID:${sid} ]";
+ return($errmsg);
+ }
+
+ $rids = array();
+ foreach ($rows as $row) {
+ array_push($rids, $row->id);
+ }
+ // create a string suitable for inclusion in a SQL statement
+ // containing the desired Response IDs
+ // ex: "('304','311','317','345','365','370','403','439')"
+ $ridstr = "IN (" . ereg_replace("([^,]+)","'\\1'", join(",", $rids)) .")";
+ }
+
+ if ($navbar) {
+ // show response navigation bar
+ $this->survey_results_navbar($rid);
+ }
+
+ ?>
+ survey->title); ?>
+ survey->subtitle); ?>
+ survey->info); ?>
+ " ._('Cross analysis on QID:') ." ${qid}\n");
+ }
+ ?>
+
+ questions as $question) {
+ // process each question
+ $totals = $showTotals;
+
+ if ($question->type_id == 99) {
+ echo("
|
\n");
+ continue;
+ }
+ if ($question->type_id == 100) {
+ echo("| ". $question->content ." |
\n");
+ continue;
+ }
+
+ if($bg != '#eeeeee') $bg = '#eeeeee';
+ else $bg = '#ffffff';
+
+ ?>
+
+ |
+ type_id < 50) {
+ if (!empty($guicross)){
+ echo ('');
+ echo ('');
+ echo ("\n\n");
+ } //end if empty($guicross)
+ } //end if ($question->type_id < 50)
+
+ $counts = array();
+
+ // ---------------------------------------------------------------------------
+ if (!empty($guicross) && $question["result_id"] == 1){
+ $this->mkcrossformat($counts,$qid,$question->type_id );
+ } else {
+ $question->display_results($rids);
+ } //end if
+ ?>
+ |
+
+
+
+ boolean
+ '1', // 2: text -> string
+ '1', // 3: essay -> string
+ '1', // 4: radio -> string
+ '1', // 5: check -> string
+ '1', // 6: dropdn -> string
+ '0', // 7: rating -> number
+ '2', // 8: rate -> number
+ '1', // 9: date -> string
+ '0' // 10: numeric -> number
+ );
+
+ if (!$survey = get_record('questionnaire_survey', 'id', $this->survey->id)) {
+ error ('Survey not found!');
+ }
+
+ $select = 'survey_id = '.$this->survey->id.' AND deleted = \'N\' AND type_id < 50';
+ $fields = 'id,name,type_id';
+ if (!($records = get_records_select('questionnaire_question', $select, 'position', $fields))) {
+ $records = array();
+ }
+ $numcols += count($records);
+ global $CFG;
+ foreach ($records as $record) {
+ $qid = $record->id;
+ $col = $record->name;
+ $type = $record->type_id;
+ if ($type == 8) {
+ /* rate */
+ $sql = "SELECT c.id as cid, q.id, q.name, c.content
+ FROM ".$CFG->prefix."questionnaire_question q ".
+ 'LEFT JOIN '.$CFG->prefix."questionnaire_question_choice c ON question_id = q.id ".
+ 'WHERE q.id = '.$qid;
+ if (!($records2 = get_records_sql($sql))) {
+ $records2 = array();
+ }
+ $numcols += count($records2) - 1;
+ foreach ($records2 as $record2) {
+ $col = $record2->name.' '.$record2->content;
+ $str1 = $col;
+ do {
+ $str2 = $str1;
+ $str1 = eregi_replace(
+ "(^| )(what|which|why|how|who|where|how|is|are|were|the|a|it|of|do|you|your|please|enter)[ ?]",
+ " ", $str2);
+ } while ($str1 != $str2);
+ $col = $str1;
+ $col = trim(strtoupper(eregi_replace(
+ "[^A-Z0-9]+", " ", $col)));
+ $col = ereg_replace(' +','_',$col);
+ array_push($columns, $col);
+ array_push($types, $id_to_csv_map[$type]);
+ }
+ } else {
+ array_push($columns, $col);
+ array_push($types, $id_to_csv_map[$type]);
+ }
+ }
+
+ $num = 0;
+
+ array_push($output, $columns);
+
+ $select = 'survey_id = '.$this->survey->id.' AND complete=\'Y\'';
+ $fields = 'id,submitted,username';
+ if (!($records = get_records_select('questionnaire_response', $select, 'submitted', $fields))) {
+ $records = array();
+ }
+ foreach ($records as $record) {
+ // get the response
+ $response = $this->response_select_name($record->id);
+
+ $qid = $record->id;
+ $submitted = $record->submitted;
+ $username = $record->username;
+
+ /// Moodle:
+ // Get the course name that this questionnaire belongs to.
+ if ($survey->realm != 'public') {
+ $courseid = $this->course->id;
+ $coursename = $this->course->fullname;
+ } else {
+ /// For a public questionnaire, look for the course that used it.
+ $sql = 'SELECT q.id, q.course, c.fullname '.
+ 'FROM '.$CFG->prefix.'questionnaire q, '.$CFG->prefix.'questionnaire_attempts qa, '.
+ $CFG->prefix.'course c '.
+ 'WHERE qa.rid = '.$qid.' AND q.id = qa.qid AND c.id = q.course';
+ if ($record = get_record_sql($sql)) {
+ $courseid = $record->course;
+ $coursename = $record->fullname;
+ } else {
+ $courseid = $this->course->id;
+ $coursename = $this->course->fullname;
+ }
+ }
+
+ /// Moodle:
+ // If the username is numeric, try it as a Moodle user id.
+ if (is_numeric($username)) {
+ if ($user = get_record('user', 'id', $username)) {
+ $uid = $username;
+ $fullname = fullname($user);
+ $username = $user->username;
+ } else {
+ $uid = '';
+ $fullname = '- Unknown -';
+ $username = '';
+ }
+ } else {
+ $uid = '';
+ $fullname = '- Unknown -';
+ $username = '';
+ }
+
+ /// Moodle:
+ // Determine if the user is a member of a group in this course or not.
+ if ($groups = get_groups($courseid, $uid)) {
+ $group = current($groups);
+ $groupname = $group->name;
+ } else {
+ $groupname = get_string('no') . ' ' . get_string('group');
+ }
+
+ $arr = array();
+ array_push($arr, $qid);
+ array_push($arr, $submitted);
+ array_push($arr, $coursename);
+ array_push($arr, $groupname);
+ array_push($arr, $uid);
+ array_push($arr, $fullname);
+ array_push($arr, $username);
+
+ // merge it
+ for($i = 7; $i < $numcols; $i++) {
+ if (isset($response[$columns[$i]]) &&
+ is_array($response[$columns[$i]]))
+ $response[$columns[$i]] = join(',', $response[$columns[$i]]);
+ switch ($types[$i]) {
+ case 2: /* rate */
+ /// Need to add '1' to each response value, or 'n/a' if -1.
+ if (isset($response[$columns[$i]])) {
+ if ($response[$columns[$i]] == -1) {
+ $response[$columns[$i]] = 'N/A';
+ } else {
+ $response[$columns[$i]]++;
+ }
+ array_push($arr, $response[$columns[$i]]);
+ } else {
+ array_push($arr, '');
+ }
+ break;
+ case 1: /* string */
+ if (isset($response[$columns[$i]])) {
+ /* Excel seems to allow "\n" inside a quoted string, but
+ * "\r\n" is used as a record separator and so "\r" may
+ * not occur within a cell. So if one would like to preserve
+ * new-lines in a response, remove the "\n" from the
+ * regex below.
+ */
+ $response[$columns[$i]] = ereg_replace("[\r\n\t]", ' ', $response[$columns[$i]]);
+ $response[$columns[$i]] = ereg_replace('"', '""', $response[$columns[$i]]);
+ $response[$columns[$i]] = '"'. $response[$columns[$i]] .'"';
+ }
+ /* fall through */
+ case 0: /* number */
+ if (isset($response[$columns[$i]]))
+ array_push($arr, $response[$columns[$i]]);
+ else
+ array_push($arr, '');
+ break;
+ }
+ }
+ array_push($output, $arr);
+ }
+
+ return $output;
+ }
+
+ /* {{{ proto bool survey_export_csv(int survey_id, string filename)
+ Exports the results of a survey to a CSV file.
+ Returns true on success.
+ */
+ function export_csv($filename) {
+ $umask = umask(0077);
+ $fh = fopen($filename, 'w');
+ umask($umask);
+ if(!$fh)
+ return 0;
+
+ $data = survey_generate_csv();
+
+ foreach ($data as $row) {
+ fputs($fh, join(',', $row) . "\n");
+ }
+
+ fflush($fh);
+ fclose($fh);
+
+ return 1;
+ }
+
+ /* {{{ proto void mkcrossformat (array weights, integer qid)
+ Builds HTML to allow for cross tabulation/analysis reporting.
+ */
+ function mkcrossformat($counts, $qid, $tid) {
+ global $ESPCONFIG;
+
+ $cids = array();
+ $cidCount = 0;
+
+ // let's grab the cid values for each of the questions
+ // that we allow cross analysis on.
+ if ($tid == 1) {
+ $cids = array('Y', 'N');
+ } else if ($records = get_records('questionnaire_question_choice', 'question_id', $qid, 'id')) {
+ foreach ($records as $record) {
+ array_push($cids, $record->id);
+ }
+ }
+
+ $bg = $ESPCONFIG['bgalt_color1'];
+
+ ?>
+
+ 1 && count($rx) > 1) {
+ $lc = intval($lx[1]);
+ $rc = intval($rx[1]);
+ } else if (count($lx) > 1) {
+ $lc++;
+ } else if (count($rx) > 1) {
+ $rc++;
+ }
+ }
+ if ($lc == $rc)
+ return 0;
+ return ($lc > $rc) ? 1 : -1;
+}
+?>
\ No newline at end of file