version 1.32, 2003/04/29 20:32:21
|
version 1.33, 2004/03/05 20:18:26
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# 4/3 Guy |
|
# July, 2002, H. K. Ng |
|
# |
|
package Apache::essayresponse; |
package Apache::essayresponse; |
use strict; |
use strict; |
use Apache::lonxml; |
use Apache::lonxml(); |
use Apache::lonnet; |
use Apache::lonnet(); |
|
use Apache::lonlocal; |
|
|
BEGIN { |
BEGIN { |
&Apache::lonxml::register('Apache::essayresponse',('essayresponse')); |
&Apache::lonxml::register('Apache::essayresponse',('essayresponse')); |
Line 53 sub start_essayresponse {
|
Line 52 sub start_essayresponse {
|
my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"}); |
my $uploadedfile= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.uploadedfile"}); |
$result='<br /><table border="1">'; |
$result='<br /><table border="1">'; |
$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 entries below as answer to receive credit <br />'. |
&mt('Submit entries below as answer to receive credit').' <br />'. |
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no">'. |
'<input type="radio" name="HWDRAFT'.$part.'_'.$id.'" value="no"> '. |
' Save entries below as a draft answer (not submitting them for credit yet) '. |
&mt('Save entries below as a draft answer (not submitting them for credit yet)'). |
'</td></tr>'; |
' </td></tr>'; |
if ($ncol > 0) { |
if ($ncol > 0) { |
$result .='<tr><td>'. |
$result .='<tr><td>'. |
'Collaborators: <input type="text" size="70" max="80" name="HWCOL'. |
'Collaborators: <input type="text" size="70" max="80" name="HWCOL'. |
$part.'_'.$id.'" value="'.$coll.'" /><br />'. |
$part.'_'.$id.'" value="'.$coll.'" /><br />'. |
'(Enter maximum '.$ncol.' collaborators using username or username@domain, e.g. '. |
&mt('(Enter maximum [_1] collaborators using username or username@domain, e.g. smithje or smithje@[_2].)',$ncol,$ENV{'user.domain'}).'<br />'; |
'smithje or smithje@'.$ENV{'user.domain'}.'.)<br />'; |
|
$result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/); |
$result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/); |
$result .='</td></tr>'; |
$result .='</td></tr>'; |
} |
} |
if ($uploadedfiletypes) { |
if ($uploadedfiletypes) { |
$result.= |
$result.='<tr><td>'.&mt('Submit a file:'). |
'<tr><td>Submit a file: <input type="file" size="50" name="HWFILE'. |
' <input type="file" size="50" name="HWFILE'. |
$part.'_'.$id.'" onFocus="this.form.enctype='. |
$part.'_'.$id.'" onFocus="this.form.enctype='. |
"'multipart/form-data'".';" /><br />Allowed filetypes: <b>'.$uploadedfiletypes.'</b><br />'; |
"'multipart/form-data'".';" /><br />'. |
|
&mt('Allowed filetypes: <b>[_1]</b>',$uploadedfiletypes). |
|
'<br />'; |
if ($uploadedfile) { |
if ($uploadedfile) { |
$result.='Currently submitted: <tt><a href="'. |
my $curfile='<a href="'.&Apache::lonnet::tokenwrapper($Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}). |
&Apache::lonnet::tokenwrapper($Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}).'"><img src="/adm/lonIcons/unknown.gif" border=0"> '.$uploadedfile.'</a></tt>'; |
'"><img src="/adm/lonIcons/unknown.gif" border=0" /> '. |
|
$uploadedfile.'</a>'; |
|
$result.=&mt('Currently submitted: <tt>[_1]</tt>',$curfile); |
} else { |
} else { |
$result.='(Hand in a file you have prepared on your computer)'; |
$result.=&mt('(Hand in a file you have prepared on your computer)'); |
} |
} |
$result.='</td></tr>'; |
$result.='</td></tr>'; |
} |
} |
Line 158 sub end_essayresponse {
|
Line 160 sub end_essayresponse {
|
$result.='\begin{enumerate}'; |
$result.='\begin{enumerate}'; |
for (my $i=0;$i<$repetition;$i++) { |
for (my $i=0;$i<$repetition;$i++) { |
$result.='\item[\textbf{'.($Apache::lonxml::counter+$i). |
$result.='\item[\textbf{'.($Apache::lonxml::counter+$i). |
'}.]\textit{Leave blank on scoring form}\vskip 0 mm'; |
'}.]\textit{'.&mt('Leave blank on scoring form'). |
|
'}\vskip 0 mm'; |
} |
} |
$result.= '\end{enumerate}'; |
$result.= '\end{enumerate}'; |
} |
} |