mirror_php/moodle
1
0
Fork 0
mirror of https://github.com/moodle/moodle.git synced 2025-01-19 14:27:22 +01:00
Code Issues Projects Releases Wiki Activity
moodle/mod/survey/report.php

357 lines
15 KiB
PHP
Raw Normal View History

Initial revision
2001-11-22 06:23:56 +00:00
<?PHP // $Id$
include("../../config.php");
include("lib.php");
// Check that all the parameters have been provided.
require_variable($id); // Course Module ID
if (! $cm = get_record("course_modules", "id", $id)) {
error("Course Module ID was incorrect");
}
if (! $course = get_record("course", "id", $cm->course)) {
error("Course is misconfigured");
}
require_login($course->id);
if (!isteacher($course->id)) {
error("Sorry, only teachers can see this.");
}
if (! $survey = get_record("survey", "id", $cm->instance)) {
error("Survey ID was incorrect");
}
$ME = qualified_me()."?id=$id";
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
$strreport = get_string("report", "survey");
$strsurveys = get_string("modulenameplural", "survey");
$strsummary = get_string("summary", "survey");
$strscales = get_string("scales", "survey");
$strquestion = get_string("question", "survey");
$strquestions = get_string("questions", "survey");
$strdownload = get_string("download", "survey");
$strallscales = get_string("allscales", "survey");
$strallquestions = get_string("allquestions", "survey");
$strselectedquestions = get_string("selectedquestions", "survey");
$strseemoredetail = get_string("seemoredetail", "survey");
$strnotes = get_string("notes", "survey");
Initial revision
2001-11-22 06:23:56 +00:00
if (!$action) {
$display = "summary";
}
if ($display) { // Display the frame containing something.
Various small fixes across all modules. Most notable was the revised use of add_to_log, and the new logging format.
2002-05-31 09:07:11 +00:00
add_to_log($course->id, "survey", "view report", "report.php?id=$cm->id", "$survey->id");
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<HEAD><TITLE>$course->shortname: $strreport: $survey->name</TITLE>\n";
echo "<FRAMESET ROWS=70,* BORDER=1> ";
echo " <FRAME NAME=reporttop SRC=\"report.php?action=top&id=$id\"> \n";
echo " <FRAMESET COLS=150,* BORDER=1> ";
echo " <FRAME NAME=reportmenu SRC=\"report.php?action=menu&id=$id\"> \n";
echo " <FRAME NAME=reportmain SRC=\"report.php?action=$display&id=$id\"> \n";
echo " </FRAMESET>\n";
Initial revision
2001-11-22 06:23:56 +00:00
echo "</FRAMESET>\n";
exit;
}
switch ($action) {
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
case "top":
if ($course->category) {
$navigation = "<A TARGET=_top HREF=\"../../course/view.php?id=$course->id\">$course->shortname</A> ->
<A TARGET=_top HREF=\"index.php?id=$course->id\">$strsurveys</A> ->
<A TARGET=_top HREF=\"view.php?id=$cm->id\">$survey->name</A> -> ";
} else {
$navigation = "<A TARGET=_top HREF=\"index.php?id=$course->id\">$strsurveys</A> ->
<A TARGET=_top HREF=\"view.php?id=$cm->id\">$survey->name</A> -> ";
}
print_header("$course->shortname: $survey->name", "$course->fullname", "$navigation $strreport");
break;
Initial revision
2001-11-22 06:23:56 +00:00
case "menu":
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
print_header();
echo "<P><FONT SIZE=2><A TARGET=reportmain HREF=\"report.php?action=summary&id=$id\">$strsummary</A></FONT></P>";
echo "<P><FONT SIZE=2><A TARGET=reportmain HREF=\"report.php?action=scales&id=$id\">$strscales</A></FONT></P>";
echo "<P><FONT SIZE=2><A TARGET=reportmain HREF=\"report.php?action=questions&id=$id\">$strquestions</A></FONT></P>";
echo "<P><FONT SIZE=2><A TARGET=reportmain HREF=\"report.php?action=students&id=$id\">$course->student:</A></FONT></P>";
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
if ($users = survey_get_responses($survey->id)) {
Initial revision
2001-11-22 06:23:56 +00:00
foreach ($users as $user) {
echo "<LI><FONT SIZE=1>";
echo "<A TARGET=reportmain HREF=\"report.php?action=student&student=$user->id&id=$id\">";
echo "$user->firstname $user->lastname";
echo "</A></FONT></LI>";
}
}
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P><FONT SIZE=2><A TARGET=reportmain HREF=\"report.php?action=download&id=$id\">$strdownload</A></FONT></P>";
Initial revision
2001-11-22 06:23:56 +00:00
break;
case "summary":
Improvements to headings
2002-08-14 06:27:24 +00:00
print_header("$survey->name: $strsummary", "$strsummary - $strallscales");
Initial revision
2001-11-22 06:23:56 +00:00
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
if (survey_count_responses($survey->id)) {
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P ALIGN=CENTER><A HREF=\"report.php?action=scales&id=$id\"><IMG HEIGHT=$SURVEY_GHEIGHT WIDTH=$SURVEY_GWIDTH tail\" BORDER=1 SRC=\"graph.php?id=$id&type=overall.png\"></A>";
Don't show overall graph when no students have completed survey
2002-06-25 07:17:51 +00:00
} else {
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P ALIGN=CENTER>".get_string("nobodyyet","survey")."</P>";
Don't show overall graph when no students have completed survey
2002-06-25 07:17:51 +00:00
}
Initial revision
2001-11-22 06:23:56 +00:00
print_footer($course);
break;
case "scales":
Improvements to headings
2002-08-14 06:27:24 +00:00
print_header("$survey->name: $strscales", "$strallscales");
Initial revision
2001-11-22 06:23:56 +00:00
$questions = get_records_sql("SELECT * FROM survey_questions WHERE id in ($survey->questions)");
$questionorder = explode(",", $survey->questions);
foreach ($questionorder as $key => $val) {
$question = $questions[$val];
if ($question->type < 0) { // We have some virtual scales. Just show them.
$virtualscales = true;
break;
}
}
foreach ($questionorder as $key => $val) {
$question = $questions[$val];
if ($question->multi) {
if ($virtualscales && $question->type > 0) { // Don't show non-virtual scales if virtual
continue;
}
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P ALIGN=center><A TITLE=\"$strseemoredetail\" HREF=report.php?action=questions&id=$id&qid=$question->multi>";
echo "<IMG HEIGHT=$SURVEY_GHEIGHT WIDTH=$SURVEY_GWIDTH BORDER=1
Initial revision
2001-11-22 06:23:56 +00:00
SRC=\"graph.php?id=$id&qid=$question->id&type=multiquestion.png\">";
echo "</A></P><BR>";
}
}
print_footer($course);
break;
case "questions":
if ($qid) { // just get one multi-question
$questions = get_records_sql("SELECT * FROM survey_questions WHERE id in ($qid)");
$questionorder = explode(",", $qid);
Show scale title when looking at questions from a scale
2002-08-14 06:13:20 +00:00
if ($scale = get_records("survey_questions", "multi", "$qid")) {
$scale = array_pop($scale);
Improvements to headings
2002-08-14 06:27:24 +00:00
print_header("$survey->name: $strquestions", "$scale->text - $strselectedquestions");
} else {
print_header("$survey->name: $strquestions", "$strselectedquestions");
Show scale title when looking at questions from a scale
2002-08-14 06:13:20 +00:00
}
Initial revision
2001-11-22 06:23:56 +00:00
} else { // get all top-level questions
$questions = get_records_sql("SELECT * FROM survey_questions WHERE id in ($survey->questions)");
$questionorder = explode(",", $survey->questions);
Improvements to headings
2002-08-14 06:27:24 +00:00
print_header("$survey->name: $strquestions", "$strallquestions");
Initial revision
2001-11-22 06:23:56 +00:00
}
foreach ($questionorder as $key => $val) {
$question = $questions[$val];
if ($question->type < 0) { // We have some virtual scales. DON'T show them.
$virtualscales = true;
break;
}
}
foreach ($questionorder as $key => $val) {
$question = $questions[$val];
if ($question->type < 0) { // We have some virtual scales. DON'T show them.
continue;
}
if ($question->multi) {
echo "<H3>$question->text :</H3>";
$subquestions = get_records_sql("SELECT * FROM survey_questions WHERE id in ($question->multi)");
$subquestionorder = explode(",", $question->multi);
foreach ($subquestionorder as $key => $val) {
$subquestion = $subquestions[$val];
if ($subquestion->type > 0) {
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P ALIGN=CENTER><A TITLE=\"$strseemoredetail\" HREF=\"report.php?action=question&id=$id&qid=$subquestion->id\">
<IMG HEIGHT=$SURVEY_GHEIGHT WIDTH=$SURVEY_GWIDTH
BORDER=1 SRC=\"graph.php?id=$id&qid=$subquestion->id&type=question.png\"></A></P>";
Initial revision
2001-11-22 06:23:56 +00:00
}
}
} else if ($question->type > 0 ) {
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P ALIGN=CENTER><A TITLE=\"$strseemoredetail\" HREF=\"report.php?action=question&id=$id&qid=$question->id\">
<IMG HEIGHT=$SURVEY_GHEIGHT WIDTH=$SURVEY_GWIDTH
BORDER=1 SRC=\"graph.php?id=$id&qid=$question->id&type=question.png\"></A></P>";
Initial revision
2001-11-22 06:23:56 +00:00
} else {
echo "<H3>$question->text</H3>";
if ($aaa = get_records_sql("SELECT sa.*, u.firstname,u.lastname FROM survey_answers sa, user u WHERE survey = '$survey->id' AND question = $question->id and sa.user = u.id")) {
echo "<UL>";
foreach ($aaa as $a) {
echo "<LI>$a->firstname $a->lastname: $a->answer1";
}
echo "</UL>";
}
}
}
print_footer($course);
break;
case "question":
if (!$question = get_record("survey_questions", "id", $qid)) {
error("Question doesn't exist");
}
$answers = explode(",", $question->options);
Improvements to headings
2002-08-14 06:27:24 +00:00
print_header("$survey->name: $strquestion", "$strquestion: $question->text");
Initial revision
2001-11-22 06:23:56 +00:00
$aaa = get_records_sql("SELECT sa.*,u.firstname,u.lastname,u.picture FROM survey_answers sa, user u WHERE sa.survey = '$survey->id' AND sa.question = $question->id AND u.id = sa.user ORDER by sa.answer1,sa.answer2 ASC");
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
$strname = get_string("name", "survey");
$strtime = get_string("time", "survey");
$stractual = get_string("actual", "survey");
$strpreferred = get_string("preferred", "survey");
echo "<TABLE ALIGN=center CELLPADDING=0 CELLSPACING=10><TR><TD>&nbsp;<TH align=left>$strname<TH align=left>$strtime<TH align=left>$stractual<TH align=left>$strpreferred</TR>";
Initial revision
2001-11-22 06:23:56 +00:00
foreach ($aaa as $a) {
echo "<TR>";
echo "<TD WIDTH=35>";
print_user_picture($a->user, $course->id, $a->picture, false);
echo "</TD>";
echo "<TD><P><A HREF=\"report.php?id=$id&action=student&student=$a->user\">$a->firstname $a->lastname</A></TD>";
Slight changes to userdate() function. It now uses gmstrftime() instead of gmdate to format times, thus allowing it to take advantage of locale, if set, to print dates in the appropriate language. Several userdate invocations had to be changed, though, to use the different formatting specs.
2002-07-02 07:02:28 +00:00
echo "<TD><P>".userdate($a->time, "%e %B %Y, %I:%M %p")."</TD>";
Initial revision
2001-11-22 06:23:56 +00:00
echo "<TD BGCOLOR=\"$THEME->cellcontent\"><P>";
if ($a->answer1) {
echo "$a->answer1 - ".$answers[$a->answer1 - 1];
} else {
echo "&nbsp;";
}
echo "</TD><TD BGCOLOR=\"$THEME->cellcontent\"><P>";
if ($a->answer2) {
echo "$a->answer2 - ".$answers[$a->answer2 - 1];
} else {
echo "&nbsp;";
}
echo "</TD></TR>";
}
echo "</TABLE>";
print_footer($course);
break;
case "students":
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
print_header("$survey->name: $course->student", get_string("analysisof", "survey", "$course->student"));
Initial revision
2001-11-22 06:23:56 +00:00
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
if (! $results = survey_get_responses($survey->id) ) {
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
notify(get_string("nobodyyet","survey"));
Initial revision
2001-11-22 06:23:56 +00:00
} else {
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
survey_print_all_responses($cm->id, $results);
Initial revision
2001-11-22 06:23:56 +00:00
}
print_footer($course);
break;
case "student":
if (!$user = get_record("user", "id", $student)) {
error("Student doesn't exist");
}
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
print_header("$survey->name: $$user->firstname $user->lastname",
get_string("analysisof", "survey", "$user->firstname $user->lastname"));
Initial revision
2001-11-22 06:23:56 +00:00
if (isset($notes)) {
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
if (survey_get_analysis($survey->id, $user->id)) {
if (! survey_update_analysis($survey->id, $user->id, $notes)) {
Initial revision
2001-11-22 06:23:56 +00:00
notify("An error occurred while saving your notes. Sorry.");
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
} else {
notify(get_string("savednotes", "survey"));
Initial revision
2001-11-22 06:23:56 +00:00
}
} else {
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
if (! survey_add_analysis($survey->id, $user->id, $notes)) {
Initial revision
2001-11-22 06:23:56 +00:00
notify("An error occurred while saving your notes. Sorry.");
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
} else {
notify(get_string("savednotes", "survey"));
Initial revision
2001-11-22 06:23:56 +00:00
}
}
}
print_heading("$user->firstname $user->lastname");
echo "<P ALIGN=CENTER>";
print_user_picture($user->id, $course->id, $user->picture, true);
echo "</P>";
// Print overall summary
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
echo "<P ALIGN=CENTER><IMG HEIGHT=$SURVEY_GHEIGHT WIDTH=$SURVEY_GWIDTH ALIGN=CENTER SRC=\"graph.php?id=$id&sid=$student&type=student.png\"></P>";
Initial revision
2001-11-22 06:23:56 +00:00
// Print scales
$questions = get_records_sql("SELECT * FROM survey_questions WHERE id in ($survey->questions)");
$questionorder = explode(",", $survey->questions);
foreach ($questionorder as $key => $val) {
$question = $questions[$val];
if ($question->type < 0) { // We have some virtual scales. Just show them.
$virtualscales = true;
break;
}
}
foreach ($questionorder as $key => $val) {
$question = $questions[$val];
if ($question->multi) {
if ($virtualscales && $question->type > 0) { // Don't show non-virtual scales if virtual
continue;
}
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P ALIGN=center><A TITLE=\"$strseemoredetail\" HREF=report.php?action=questions&id=$id&qid=$question->multi>";
echo "<IMG HEIGHT=$SURVEY_GHEIGHT WIDTH=$SURVEY_GWIDTH BORDER=1
Initial revision
2001-11-22 06:23:56 +00:00
SRC=\"graph.php?id=$id&qid=$question->id&sid=$student&type=studentmultiquestion.png\">";
echo "</A></P><BR>";
}
}
Big clean up of survey functions and removal of deadwood (more to go still though)
2002-08-01 04:49:26 +00:00
if ($rs = survey_get_analysis($survey->id, $user->id)) {
Initial revision
2001-11-22 06:23:56 +00:00
$notes = $rs->notes;
} else {
$notes = "";
}
echo "<HR NOSHADE SIZE=1>";
echo "<CENTER>";
echo "<FORM ACTION=report.php METHOD=post NAME=form>";
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<H3>$strnotes:</H3>";
Initial revision
2001-11-22 06:23:56 +00:00
echo "<BLOCKQUOTE>";
echo "<TEXTAREA NAME=notes ROWS=10 COLS=60>";
p($notes);
echo "</TEXTAREA><BR>";
echo "<INPUT TYPE=hidden NAME=action VALUE=student>";
echo "<INPUT TYPE=hidden NAME=student VALUE=$student>";
echo "<INPUT TYPE=hidden NAME=id VALUE=$cm->id>";
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<INPUT TYPE=submit VALUE=\"".get_string("savechanges")."\">";
Initial revision
2001-11-22 06:23:56 +00:00
echo "</BLOCKQUOTE>";
echo "</FORM>";
echo "</CENTER>";
print_footer($course);
break;
case "download":
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
print_header("$survey->name: $strdownload", "$strdownload");
$strdownloadinfo = get_string("downloadinfo", "survey");
$strdownloadexcel = get_string("downloadexcel", "survey");
$strdownloadtext = get_string("downloadtext", "survey");
Initial revision
2001-11-22 06:23:56 +00:00
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<P>$strdownloadinfo</P>";
Initial revision
2001-11-22 06:23:56 +00:00
Cleaned up the whole interface (more consistent now) and lots of labguage stuff
2002-08-12 17:54:00 +00:00
echo "<H2 ALIGN=CENTER><A HREF=\"download.php?id=$id&type=xls\">$strdownloadexcel</A></H2>";
echo "<H2 ALIGN=CENTER><A HREF=\"download.php?id=$id&type=text\">$strdownloadtext</A></H2>";
Initial revision
2001-11-22 06:23:56 +00:00
print_footer($course);
break;
}
Slight tweaks to survey display after it's been done (list # of students)
2002-06-25 07:10:01 +00:00
?>
Reference in New Issue Copy Permalink