version 1.32, 2003/04/29 20:32:21
|
version 1.35, 2004/05/10 23:09:18
|
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 47 sub start_essayresponse {
|
Line 46 sub start_essayresponse {
|
my $part= $Apache::inputtags::part; |
my $part= $Apache::inputtags::part; |
|
|
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 $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); |
$uploadedfiletypes=~s/[^\w\,]//g; |
$uploadedfiletypes=~s/[^\w\,]//g; |
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 $url=$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>'; |
push (@Apache::lonxml::extlinks,$url); |
|
&Apache::lonnet::allowuploaded('/adm/essayresponse',$url); |
|
my $curfile='<a href="'.$url. |
|
'"><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 94 sub end_essayresponse {
|
Line 99 sub end_essayresponse {
|
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id}; |
my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id}; |
if ($collaborators =~ /[^\s]/) { |
if ($collaborators =~ /[^\s]/) { |
my $previous_list= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"}); |
my $previous_list= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); |
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators |
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators |
if ($collaborators ne $previous_list); |
if ($collaborators ne $previous_list); |
} |
} |
Line 120 sub end_essayresponse {
|
Line 125 sub end_essayresponse {
|
if ($uploadedfiletypes=~/\,$extension\,/i) { |
if ($uploadedfiletypes=~/\,$extension\,/i) { |
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename; |
$Apache::lonhomework::results{"resource.$part.$id.uploadedfile"}=$filename; |
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}= |
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}= |
&Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id); |
&Apache::lonnet::userfileupload('HWFILE'.$part.'_'.$id,undef,'essayresponse'); |
$uploadedflag=1; |
$uploadedflag=1; |
} else { |
} else { |
$award='INVALID_FILETYPE'; |
$award='INVALID_FILETYPE'; |
Line 158 sub end_essayresponse {
|
Line 163 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}'; |
} |
} |