version 1.7, 2005/03/31 16:05:13
|
version 1.8, 2005/03/31 21:24:29
|
Line 61 sub proctor_check_auth {
|
Line 61 sub proctor_check_auth {
|
return 0; |
return 0; |
} |
} |
|
|
|
sub add_previous_version_button { |
|
my $result; |
|
$result.=' Show a previously done version: <select name="previousversion"> |
|
<option>Pick one</option> |
|
</select>'; |
|
return $result; |
|
} |
|
|
sub start_Task { |
sub start_Task { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
|
Line 73 sub start_Task {
|
Line 81 sub start_Task {
|
my ($result,$head_tag_start,$body_tag_start,$form_tag_start)= |
my ($result,$head_tag_start,$body_tag_start,$form_tag_start)= |
&Apache::structuretags::page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); |
&Apache::structuretags::page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); |
|
|
|
if ($target eq 'web') { |
|
$body_tag_start.=&add_previous_version_button(); |
|
} |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || |
$target eq 'tex') { |
$target eq 'tex') { |
($status,$accessmsg,$slot) = |
($status,$accessmsg,$slot) = |
Line 153 sub end_Task {
|
Line 164 sub end_Task {
|
($target eq 'answer') || ($target eq 'tex') |
($target eq 'answer') || ($target eq 'tex') |
) { |
) { |
if ($target eq 'web') { |
if ($target eq 'web') { |
|
$result.='<table border="1">'. |
|
&Apache::inputtags::file_selector("bridge","task","*", |
|
'portfolioonly'). |
|
"</table>"; |
$result.=&Apache::lonxml::xmlend().'</html>'; |
$result.=&Apache::lonxml::xmlend().'</html>'; |
} |
} |
} |
} |