version 1.5, 2001/07/10 18:15:25
|
version 1.6, 2001/09/08 19:16:01
|
Line 16
|
Line 16
|
# 1/31 Gerd Kortemeyer |
# 1/31 Gerd Kortemeyer |
# |
# |
# 7/10/01 Behrouz Minaei |
# 7/10/01 Behrouz Minaei |
|
# 9/8 Gerd Kortemeyer |
|
|
package Apache::lonchart; |
package Apache::lonchart; |
|
|
Line 221 sub handler {
|
Line 222 sub handler {
|
# ---------------------------------------------------------------- Course title |
# ---------------------------------------------------------------- Course title |
|
|
$r->print('<h1>'. |
$r->print('<h1>'. |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1>'); |
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.'</h1><h3>'. |
|
localtime()."</h3><p><pre>1..9: correct by student in 1..9 tries\n". |
|
" *: correct by student in more than 9 tries\n". |
|
" +: correct by override\n". |
|
" -: incorrect by override\n". |
|
" .: incorrect attempted\n". |
|
" : not attempted\n". |
|
" x: excused</pre><p>"); |
|
|
# ------------------------------- This is going to take a while, produce output |
# ------------------------------- This is going to take a while, produce output |
|
|
$r->rflush(); |
$r->rflush(); |