version 1.92, 2008/11/20 14:37:37
|
version 1.93, 2008/12/09 00:23:22
|
Line 51 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 80 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 273 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 433 described at http://www.lon-capa.org.
|
Line 443 described at http://www.lon-capa.org.
|
|
|
=back |
=back |
|
|
=cut |
|
|
|
|
=cut |