version 1.32, 2001/02/19 20:39:00
|
version 1.33, 2001/02/19 21:02:59
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA # <script> definiton |
# The LearningOnline Network with CAPA # <script> definiton |
|
# 2/19 Guy |
package Apache::structuretags; |
package Apache::structuretags; |
|
|
use strict; |
use strict; |
Line 69 sub start_problem {
|
Line 69 sub start_problem {
|
$Apache::lonhomework::name=$name; |
$Apache::lonhomework::name=$name; |
if ($status eq 'CAN_ANSWER') { |
if ($status eq 'CAN_ANSWER') { |
# create a page header and exit |
# create a page header and exit |
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".'<input type="hidden" name="submitted" value="yes">'; |
return "<title>$name</title>\n<body bgcolor=\"#FFFFFF\">\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".'<input type="hidden" name="submitted" value="yes" />'; |
} elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' || $status eq 'CLOSED') { |
} elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' || $status eq 'CLOSED') { |
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n"; |
return "<title>$name</title>\n<body bgcolor=\"#FFFFFF\">\n"; |
} |
} |
} |
} |
return ''; |
return ''; |