|
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>'; |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to bridgetask.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework