version 1.28, 2001/01/06 16:35:36
|
version 1.29, 2001/01/08 13:55:08
|
Line 65 sub start_problem {
|
Line 65 sub start_problem {
|
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'}."\">"; |
return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">"; |
} elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' ) { |
} 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"; |
} |
} |
} |
} |
Line 244 sub end_part {
|
Line 244 sub end_part {
|
sub start_preduedate { |
sub start_preduedate { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
if ($target ne 'meta') { |
if ($target ne 'meta') { |
if ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER' || |
if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' && |
$Apache::inputtags::status['-1'] eq 'CANNOT_ANSWER' ) { |
$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER' ) { |
&Apache::lonxml::get_all_text("/preduedate",$$parser[$#$parser]); |
&Apache::lonxml::get_all_text("/preduedate",$$parser[$#$parser]); |
} |
} |
} |
} |