| <?php |
|
| //******************=
************************************************************* |
| // |
| // This function checks to see if t=
he
required fields have been filled in. |
| // |
| //******************=
************************************************************* |
| function check_requi=
red() |
| { |
| //
Required input fields. |
|
$Required =3D array("student_name", |
| &nbs=
p; &=
nbsp;
"instructor_email", |
| &nbs=
p; &=
nbsp;
"test_name", |
| &nbs=
p; &=
nbsp;
"score_correct", |
| &nbs=
p; &=
nbsp;
"score_possible", |
| &nbs=
p; &=
nbsp;
"score_percent", |
| &nbs=
p; &=
nbsp;
"score_subjective", |
| &nbs=
p; &=
nbsp;
"score_details"); |
|
|
foreach ($Required as $fieldName) { |
| &nbs=
p;
if (!isset($_REQUEST[$fieldName])) |
| &nbs=
p; &=
nbsp;
error('missing_fields'); |
|
| &nbs=
p;
if (strlen($_REQUEST[$fieldName]) =3D=3D 0) |
| &nbs=
p; &=
nbsp;
error('empty_fields'); |
|
| &nbs=
p;
// If the required field is the email field, the syntax of |
| &nbs=
p;
// the email address is checked to make sure it passes a |
| &nbs=
p;
// valid syntax. |
| &nbs=
p;
if ($fieldName =3D=3D 'instructor_email') { |
| &nbs=
p; &=
nbsp;
if (!check_email($_REQUEST[$fieldName])) |
| &nbs=
p; &=
nbsp;
error('missing_fields'); |
| &nbs=
p;
} |
| } |
| } |
|
| //******************=
************************************************************* |
| // |
| // This function per=
forms a
validation on the email address to see if it is well- |
| // formed. It return=
s a
boolean indicating whether a valid address is passed. |
| // |
| //******************=
************************************************************* |
| function check_email=
($address) |
| { |
|
return (ereg('^[-!#$%&\'*+\\./0-9=3D?A-Z^_`a-z{|}~]+'. |
| &nbs=
p; &=
nbsp;
'@'. |
| &nbs=
p; &=
nbsp;
'[-!#$%&\'*+\\/0-9=3D?A-Z^_`a-z{|}~]+\.'. |
| &nbs=
p; &=
nbsp;
'[-!#$%&\'*+\\./0-9=3D?A-Z^_`a-z{|}~]+$', |
| &nbs=
p; &=
nbsp;
$address)); |
| } |
|
| //******************=
************************************************************* |
| // |
| // This function returns true if the
submission was from a test generated by |
| // ExamView 5 (points supported).
|
| // |
| //******************=
************************************************************* |
| function is_version5=
() |
| { |
| //
format of 'score_details' is different for v5, so check that |
| if
(strstr($_REQUEST['score_details'], '/')) |
| &nbs=
p;
return(true); |
|
else |
| &nbs=
p;
return(false); |
| } |
|
| //******************=
************************************************************* |
| // |
| // This function out=
puts the
HTML that the student sees in response to a graded |
| // CGI test. |
| // |
| //******************=
************************************************************* |
| function return_html=
() |
| { |
|
$name =3D htmlspecialchars(stripslashes($_REQUEST['test_name']));<=
/td>
|
|
$results =3D "Results for {$name}"; |
|
| //
See if we're supposed to show the results to the student. |
| if
(isset($_REQUEST['score_showresults'])) { |
| &nbs=
p;
$name =3D htmlspecialchars(stripslashes($_REQUEST['student_name'])=
); |
| &nbs=
p;
$score =3D "<table>\n"; |
| &nbs=
p;
$score .=3D "<tr><td><b>Student
Name:</b></td><td>{$name}</td></tr>\n"=
; |
| &nbs=
p;
if (isset($_REQUEST['student_id'])) { |
| &nbs=
p; &=
nbsp;
$id =3D htmlspecialchars(stripslashes($_REQUEST['student_id']));
|
| &nbs=
p; &=
nbsp;
$score .=3D "<tr><td><b>Student
ID:</b></td><td>{$id}</td></tr>\n";
|
| &nbs=
p;
} |
|
| &nbs=
p;
$correct =3D stripslashes($_REQUEST['score_correct']); |
| &nbs=
p;
$possible =3D stripslashes($_REQUEST['score_possible']); |
| &nbs=
p;
$percent =3D stripslashes($_REQUEST['score_percent']); |
| &nbs=
p;
$pointsLabel =3D is_version5() ? 'points ' : ''; |
| &nbs=
p;
$score .=3D
"<tr><td><b>Score:</b></td>\n";
|
| &nbs=
p;
$score .=3D "<td>{$correct} / {$possible}
{$pointsLabel}({$percent}%)"; |
| &nbs=
p;
if ($_REQUEST['score_subjective'] > 0) { |
| &nbs=
p; &=
nbsp;
$score .=3D ' '; |
| &nbs=
p; &=
nbsp;
$subjCount =3D stripslashes($_REQUEST['score_subjective']); |
| &nbs=
p; &=
nbsp;
if ($subjCount =3D=3D 1) |
| &nbs=
p; &=
nbsp;
$score .=3D "[1 open-ended question not graded]"; |
| &nbs=
p; &=
nbsp;
else |
| &nbs=
p; &=
nbsp;
$score .=3D "[$subjCount open-ended questions not graded]&quo=
t;; |
| &nbs=
p;
} |
| &nbs=
p;
$score .=3D "</td></tr>\n</table>\n";<=
/td>
|
| }
else |
| &nbs=
p;
$score =3D ""; |
|
|
$name =3D
htmlspecialchars(stripslashes($_REQUEST['instructor_formalname'])); |
|
$email =3D
htmlspecialchars(stripslashes($_REQUEST['instructor_email'])); |
| ?> |
| <html> |
| <head><titl=
e>Test
Results</title></head> |
| <body
bgcolor=3D"#FFFFFF" text=3D"#000000"
background=3D"/cgitile.gif"> |
| <h2><center=
><?=3D
$results; ?></center></h2> |
| <?=3D $score; ?&g=
t; |
| <p>Your test r=
esults
have been sent to <?=3D $name; ?> at |
| <a href=3D"m=
ailto:<?=3D
$email; ?>"><?=3D $email; ?></a>. |
| At this time, you ca=
n quit
your browser or link to another page.</p> |
| </body> |
| </html> |
| <?php |
| } |
|
| //******************=
************************************************************* |
| // |
| // This function sen=
ds an
email message with the form contents to the address |
| // given by
'instructor_email'. |
| // |
| //******************=
************************************************************* |
| function send_mail($=
timeStamp) |
| { |
|
$type_names =3D array('TF'
=3D> 'True/False', |
| &nbs=
p; &=
nbsp;
'MTF' =3D> 'Modified True/False', |
| &nbs=
p; &=
nbsp;
'MC' =3D> 'Multip=
le
Choice', |
| &nbs=
p; &=
nbsp;
'MR' =3D> 'Multip=
le
Response', |
| &nbs=
p; &=
nbsp;
'YN' =3D> 'Yes/No=
', |
| &nbs=
p; &=
nbsp;
'NR' =3D> 'Numeric
Response', |
| &nbs=
p; &=
nbsp;
'CO' =3D> 'Comple=
tion', |
| &nbs=
p; &=
nbsp;
'MA' =3D> 'Matchi=
ng', |
| &nbs=
p; &=
nbsp;
'SA' =3D> 'Short =
Answer', |
| &nbs=
p; &=
nbsp;
'PR' =3D> 'Proble=
m', |
| &nbs=
p; &=
nbsp;
'ES' =3D> 'Essay'=
, |
| &nbs=
p; &=
nbsp;
'CA' =3D> 'Case',=
|
| &nbs=
p; &=
nbsp;
'OT' =3D> 'Other'=
); |
|
| //
Starting with ExamView 5, publishers can rename the "Other"
question type |
| if
(!empty($_REQUEST['other_label'])) |
| &nbs=
p;
$type_names['OT'] =3D stripslashes($_REQUEST['other_label']); |
|
|
$toField =3D
stripslashes($_REQUEST['instructor_email']); |
|
$headers =3D
"MIME-Version: 1.0\n"; |
|
$headers .=3D "Content-type: text/plain;
charset=3Diso-8859-1\n"; |
|
$headers .=3D "From: ExamView Web Site
<score@score.examview.com>"; |
|
$subject =3D "R=
esults
for " . stripslashes($_REQUEST['test_name']); |
|
|
$emailText =3D "Test results for " .
stripslashes($_REQUEST['student_name']) . " "; |
| if
(!empty($_REQUEST['student_email'])) { |
| &nbs=
p;
$emailText .=3D "(" . stripslashes($_REQUEST['student_em=
ail'])
. ") "; |
| } |
|
| //
date format: "Saturday, October 9, 2004 at 21:04:09" |
|
$date =3D date("l, F j, Y \\a\\t H:i:s", $timeStamp);
|
|
$emailText .=3D "submitted on {$date} from
[{$_SERVER['REMOTE_ADDR']}]\n\n"; |
|
$emailText .=3D "X - incorrect response\n"; |
| if
($_REQUEST['score_subjective'] > 0) { |
| &nbs=
p;
$emailText .=3D "? - open-ended question (not graded)\n"=
; |
| } |
|
$emailText .=3D str_repeat("-", 65) . "\n\n";<=
/td>
|
|
|
$emailText .=3D "Test Name: " .
stripslashes($_REQUEST['test_name']) . "\n"; |
|
$emailText .=3D "Student Name: " .
stripslashes($_REQUEST['student_name']) . "\n"; |
|
| if
(!empty($_REQUEST['student_id'])) |
| &nbs=
p;
$emailText .=3D "Student ID: " .
stripslashes($_REQUEST['student_id']) . "\n"; |
|
| //
date format: mm/dd/yyyy hh:mm:ss |
|
$emailText .=3D "Date: " . date("m/d/Y H:i:s",
$timeStamp) . "\n"; |
|
|
$pointsLabel =3D is_version5() ? 'points ' : ''; |
|
$emailText .=3D "Score:
{$_REQUEST['score_correct']}/{$_REQUEST['score_possible']}"; |
|
$emailText .=3D "
{$pointsLabel}({$_REQUEST['score_percent']}%)"; |
| if
($_REQUEST['score_subjective'] > 0) { |
| &nbs=
p;
$subjCount =3D $_REQUEST['score_subjective']; |
| &nbs=
p;
if ($subjCount =3D=3D 1) |
| &nbs=
p; &=
nbsp;
$emailText .=3D " [1
open-ended question not graded]"; |
| &nbs=
p;
else |
| &nbs=
p; &=
nbsp;
$emailText .=3D "
[$subjCount open-ended questions not graded]"; |
| } |
|
$emailText .=3D "\n"; |
|
| if
(is_version5()) |
| &nbs=
p;
$details =3D explode("|", $_REQUEST['score_details']);
|
|
else { |
| &nbs=
p;
for ($i=3D0; $i < strlen($_REQUEST['score_details']); ++$i) |
| &nbs=
p; &=
nbsp;
$details[$i] =3D substr($_REQUEST['score_details'], $i, 1); |
| } |
|
| /*
Version 6.0+ supports intermixed questions. Don't show section headers */
|
| if
(isset($_REQUEST['test_mixed_questions']) &&
$_REQUEST['test_mixed_questions'] > 0) { |
| &nbs=
p;
$emailText .=3D "\n"; |
| &nbs=
p;
$mixedTypes =3D true; |
| }
else |
| &nbs=
p;
$mixedTypes =3D false; |
|
|
$lastType =3D ""; |
|
$index =3D 0; |
|
foreach ($_REQUEST as $name =3D> $value) { |
| &nbs=
p;
if (strpos($name, ":") > 0) { |
| &nbs=
p; &=
nbsp;
list($currentType, $currentNumber) =3D split(":", $name,=
2); |
| &nbs=
p; &=
nbsp;
if (strlen($currentType) > 0 && strlen($currentNumber) =
>
0) { |
| &nbs=
p; &=
nbsp;
if (!$mixedTypes && $currentType !=3D $lastType) { |
| &nbs=
p; &=
nbsp; &nbs=
p;
$emailText .=3D "\n{$type_names[$currentType]}\n"; |
| &nbs=
p; &=
nbsp; &nbs=
p;
$lastType =3D $currentType; |
| &nbs=
p; &=
nbsp;
} |
|
| &nbs=
p; &=
nbsp;
$markChar =3D substr($details[$index], 0, 1); |
| &nbs=
p; &=
nbsp;
if (strlen($markChar) !=3D 1) |
| &nbs=
p; &=
nbsp; &nbs=
p;
$markChar =3D ' '; |
|
| &nbs=
p; &=
nbsp;
$emailText .=3D sprintf ("%s%4d. %s\n", $markChar, |
| &nbs=
p; &=
nbsp; &nbs=
p; &=
nbsp;
$currentNumber, |
| &nbs=
p; &=
nbsp; &nbs=
p; &=
nbsp;
stripslashes($value)); |
| &nbs=
p; &=
nbsp;
++$index; |
| &nbs=
p; &=
nbsp;
} |
| &nbs=
p;
} |
| } |
|
|
$emailText .=3D str_repeat("-", 65) . "\n";
|
|
mail($toField, $subject, $emailText, $headers); |
| } |
|
| //******************=
************************************************************* |
| // |
| // This function dis=
plays an
error screen and terminates the program. |
| // |
| //******************=
************************************************************* |
| function error($whic=
hMsg, $msg
=3D "") |
| { |
| if
($whichMsg =3D=3D 'missing_fields') { |
| &nbs=
p;
$title =3D 'Missing Data'; |
| &nbs=
p;
$msg =3D "Some items were not filled in correctly. Be sure that " . |
| &nbs=
p; &=
nbsp;
"you filled in your name in the Student Name field. " .<=
/td>
|
| &nbs=
p; &=
nbsp;
"Please click your browser's <b>Back</b> button to
" . |
| &nbs=
p; &=
nbsp;
"return to the test and try again."; |
| }
else if ($whichMsg =3D=3D 'empty_fields') { |
| &nbs=
p;
$title =3D 'Empty Data'; |
| &nbs=
p;
$msg =3D "Some items were not filled in correctly. Be sure that " . |
| &nbs=
p; &=
nbsp;
"you filled in your name in the Student Name field and "=
. |
| &nbs=
p; &=
nbsp;
"that Javascript is enabled in your browser. Please " . |
| &nbs=
p; &=
nbsp;
"click your browser's <b>Back</b> button to retur=
n to
" . |
| &nbs=
p; &=
nbsp;
"the test and try again."; |
| }
else { |
| &nbs=
p;
print "Unhandled error type: {$whichMsg}<br>\n";
|
| &nbs=
p;
die(1); |
| } |
| ?> |
| <html> |
| <head> |
|
<title><?=3D $title; ?></title> |
| </head> |
| <body
bgcolor=3D"#FFFFFF" text=3D"#000000"> |
|
<h1><center><?=3D $title; ?></center></=
h1> |
|
<p><?=3D $msg; ?></p> |
| </body> |
| </html> |
|
| <?php |
| die(1); //
terminate |
| } |
| //******************=
************************************************************* |
| // |
| // Main: |
| // |
| //******************=
************************************************************* |
|
| $timeStamp =3D time(=
); |
|
| check_required();
|
| return_html(); |
| send_mail($timeStamp=
); |
| ?> |
|
------=_NextPart_01C83856.50E7CA90
Content-Location: file:///C:/F07446F3/1_mhtml_Resultsfor2_Questions_Test_Export_As_Test_Show_Score_to_Students_files/sheet003.htm
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html; charset="us-ascii"