|
version 1.73, 2006/08/01 14:04:32
|
version 1.74, 2006/09/21 21:23:19
|
|
Line 75 sub start_essayresponse {
|
Line 75 sub start_essayresponse {
|
| $result.=&Apache::inputtags::file_selector($part,$id, |
$result.=&Apache::inputtags::file_selector($part,$id, |
| $uploadedfiletypes,'both'); |
$uploadedfiletypes,'both'); |
| $result.='</table>'; |
$result.='</table>'; |
| |
} elsif ($target eq 'web' && |
| |
$Apache::inputtags::status[-1] ne 'CAN_ANSWER') { |
| |
my $part= $Apache::inputtags::part; |
| |
my @msgs; |
| |
if ($Apache::lonhomework::history{"resource.$part.$id.collaborators"} =~ /\S/) { |
| |
my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); |
| |
$result .= '<td>'.&mt('Collaborated with [_1]',$coll).'</td>'; |
| |
} |
| |
|
| |
my $file_submission = |
| |
&Apache::inputtags::show_past_file_submission($part,$id); |
| |
if ($file_submission) { |
| |
$result .= '<td>'.$file_submission.'</td>'; |
| |
} |
| |
|
| |
my $port_submission = |
| |
&Apache::inputtags::show_past_portfile_submission($part,$id); |
| |
if ($port_submission) { |
| |
$result .= '<td>'.$port_submission.'</td>'; |
| |
} |
| |
|
| |
if ($result ne '') { |
| |
$result = |
| |
'<table class="LC_pastsubmission"><tr>'.$result. |
| |
'</tr></table>'; |
| |
} |
| } |
} |
| return $result; |
return $result; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to essayresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework