version 1.91, 2008/11/16 02:46:25
|
version 1.93, 2008/12/09 00:23:22
|
Line 26
|
Line 26
|
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::easyresponse |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler to evaluate essay (ungraded) style responses. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=cut |
|
|
|
package Apache::essayresponse; |
package Apache::essayresponse; |
use strict; |
use strict; |
use Apache::lonxml(); |
use Apache::lonxml(); |
Line 66 sub start_essayresponse {
|
Line 51 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; |
|
my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize"); |
|
if (!defined($maxfilesize)) { |
|
$maxfilesize = 10.0; #FIXME This should become a domain configuration |
|
} |
if ( $Apache::lonhomework::type eq 'survey' ) { |
if ( $Apache::lonhomework::type eq 'survey' ) { |
$result.= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" /> '; |
$result.= '<input type="hidden" name="HWDRAFT'.$part.'_'.$id.'" value="yes" /> '; |
} |
} |
Line 95 sub start_essayresponse {
|
Line 84 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>'; |
} |
} |
$result.=&Apache::inputtags::file_selector($part,$id, |
my $filesfrom = 'both'; |
$uploadedfiletypes,'both'); |
my $stuname = &Apache::lonnet::EXT('user.name'); |
|
my $studom = &Apache::lonnet::EXT('user.domain'); |
|
if (!&Apache::lonnet::usertools_access($stuname,$studom,'portfolio')) { |
|
$filesfrom = 'uploadonly'; |
|
} |
|
$result.=&Apache::inputtags::file_selector($part,$id,$uploadedfiletypes, |
|
$filesfrom,undef,$maxfilesize); |
$result.='</table>'; |
$result.='</table>'; |
} elsif ($target eq 'web' && |
} elsif ($target eq 'web' && |
$Apache::inputtags::status[-1] ne 'CAN_ANSWER') { |
$Apache::inputtags::status[-1] ne 'CAN_ANSWER') { |
Line 288 sub file_submission {
|
Line 283 sub file_submission {
|
} |
} |
my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize"); |
my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize"); |
if (!$maxfilesize) { |
if (!$maxfilesize) { |
$maxfilesize = 100.0; #FIXME This should become a domain configuration |
$maxfilesize = 10.0; #FIXME This should become a domain configuration |
} |
} |
my %dirlist; |
my %dirlist; |
foreach my $file (@acceptable_files) { |
foreach my $file (@acceptable_files) { |
Line 415 sub check_collaborators {
|
Line 410 sub check_collaborators {
|
|
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
=pod |
|
|
|
=head1 NAME |
|
|
|
Apache::easyresponse |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler to evaluate essay (ungraded) style responses. |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over |
|
|
|
=item start_essayresponse() |
|
|
|
=item end_essayresponse() |
|
|
|
=item format_prior_response() |
|
|
|
=item file_submission() |
|
|
|
=item delete_form_items() |
|
|
|
=item check_collaborators() |
|
|
|
=back |
|
|
|
=cut |