version 1.74, 2006/09/21 21:23:19
|
version 1.75, 2006/09/25 19:30:56
|
Line 52 sub start_essayresponse {
|
Line 52 sub start_essayresponse {
|
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 $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); |
$uploadedfiletypes=~s/[^\w\,]//g; |
$uploadedfiletypes=~s/[^\w\,]//g; |
$result='<br /><table border="1">'; |
if ( $Apache::lonhomework::type eq 'survey' ) { |
$result.='<tr><td>'. |
$result.= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" /> '; |
'<label>'. |
} |
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '. |
$result.='<br /><table border="1">'; |
&mt('Submit entries below as answer to receive credit'). |
if ( $Apache::lonhomework::type ne 'survey' ) { |
'</label> <br />'. |
$result.= '<tr><td>'. |
'<label>'. |
'<label>'. |
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '. |
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="yes" checked="checked" /> '. |
&mt('Save entries below as a draft answer (not submitting them for credit yet)'). |
&mt('Submit entries below as answer to receive credit'). |
'</label>'. |
'</label> <br />'. |
' </td></tr>'; |
'<label>'. |
|
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no" /> '. |
|
&mt('Save entries below as a draft answer (not submitting them for credit yet)'). |
|
'</label>'. |
|
'</td></tr>'; |
|
} |
|
|
if ($ncol > 0) { |
if ($ncol > 0) { |
$result .='<tr><td>'.'<label>'. |
$result .='<tr><td>'.'<label>'. |
'Collaborators: <input type="text" size="70" max="80" name="HWCOL'. |
'Collaborators: <input type="text" size="70" max="80" name="HWCOL'. |