version 1.16, 2003/01/13 21:24:02
|
version 1.17, 2003/01/22 17:29:21
|
Line 47 sub start_essayresponse {
|
Line 47 sub start_essayresponse {
|
|
|
my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators"); |
my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators"); |
my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"}); |
my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"}); |
|
my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); |
|
my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"}); |
$result='<br /><table border="1">'; |
$result='<br /><table border="1">'; |
if ($ncol > 0) { |
if ($ncol > 0) { |
$result .='<tr><td>'. |
$result .='<tr><td>'. |
Line 57 sub start_essayresponse {
|
Line 59 sub start_essayresponse {
|
$result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/); |
$result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/); |
$result .='</td></tr>'; |
$result .='</td></tr>'; |
} |
} |
|
if ($uploadedfiletypes) { |
|
$result.= |
|
'<tr><td>Submit a file: <input type="file" size="50" name="HWFILE'. |
|
$part.'_'.$id.'" value="'.$uploadedfile.'" onChange="this.form.enctype='. |
|
"'multipart/form-data'".';" /><br />Allowed filetypes: <b>'.$uploadedfiletypes.'</b><br />(Hand in a file you have prepared on your computer)</td></tr>'; |
|
} |
$result.='<tr><td>'. |
$result.='<tr><td>'. |
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked>'. |
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked>'. |
' Submit text below as answer to receive credit <br />'. |
' Submit text below as answer to receive credit <br />'. |