version 1.115, 2011/07/26 17:14:51
|
version 1.119, 2014/12/04 15:41:30
|
Line 91 sub start_essayresponse {
|
Line 91 sub start_essayresponse {
|
'<label>'. |
'<label>'. |
&mt('Collaborators:').' <input type="text" size="70" max="80" name="HWCOL'. |
&mt('Collaborators:').' <input type="text" size="70" max="80" name="HWCOL'. |
$part.'_'.$id.'" value="'.$coll.'" /><br />'. |
$part.'_'.$id.'" value="'.$coll.'" /><br />'. |
&mt('(Enter a maximum of [quant,_1,collaborator] using username or username:domain, e.g. smithje or smithje:[_2].)',$ncol,$env{'user.domain'}); |
&mt('Enter a maximum of [quant,_1,collaborator] using username or username:domain, e.g. smithje or smithje:[_2].',$ncol,$env{'user.domain'}); |
if ($ncol > 1) { |
if ($ncol > 1) { |
$result .= '<br />'.&mt('If entering more than one, use spaces to separate the collaborators.'); |
$result .= '<br />'.&mt('If entering more than one, use spaces to separate the collaborators.'); |
} |
} |
Line 279 sub format_prior_response {
|
Line 279 sub format_prior_response {
|
} |
} |
if ($answer =~ /\S/) { |
if ($answer =~ /\S/) { |
$output.='<p>'.&mt('Submitted text'). |
$output.='<p>'.&mt('Submitted text'). |
'<blockquote>'.$answer.'</blockquote></p>'; |
'<blockquote>'.&HTML::Entities::encode($answer, '"<>&').'</blockquote></p>'; |
} |
} |
|
|
return '<div class="LC_prior_essay">'.$output.'</div>'; |
return '<div class="LC_prior_essay">'.$output.'</div>'; |
} |
} |
|
|
sub file_submission { |
sub file_submission { |
my ($part,$id,$award,$uploadedflag,$totalsize,$deletions)=@_; |
my ($part,$id,$award,$uploadedflag,$totalsize,$deletions,$context,$info)=@_; |
my $files; |
my $files; |
my $jspart=$part; |
my $jspart=$part; |
$jspart=~s/\./_/g; |
$jspart=~s/\./_/g; |
Line 397 sub file_submission {
|
Line 397 sub file_submission {
|
my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$}); |
my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$}); |
my $fullpath = '/userfiles/portfolio'.$path; |
my $fullpath = '/userfiles/portfolio'.$path; |
if (!exists($dirlist{$fullpath})) { |
if (!exists($dirlist{$fullpath})) { |
my @list = &Apache::lonnet::dirlist($fullpath,$udom,$uname,1); |
my ($listref,$listerror) = |
$dirlist{$fullpath} = \@list; |
&Apache::lonnet::dirlist($fullpath,$udom,$uname,1); |
|
if (ref($listref) eq 'ARRAY') { |
|
$dirlist{$fullpath} = $listref; |
|
} |
} |
} |
if (ref($dirlist{$fullpath}) eq 'ARRAY') { |
if (ref($dirlist{$fullpath}) eq 'ARRAY') { |
foreach my $dir_line (@{$dirlist{$fullpath}}) { |
foreach my $dir_line (@{$dirlist{$fullpath}}) { |
Line 510 sub file_submission {
|
Line 513 sub file_submission {
|
$$uploadedflag=1; |
$$uploadedflag=1; |
} |
} |
} |
} |
|
if ($context eq 'externalresponse') { |
|
my @todelete = keys(%port_delete); |
|
if (@tolock || @todelete) { |
|
if (ref($info) eq 'HASH') { |
|
if ($info->{'ip'}) { |
|
&Apache::lonnet::automated_portfile_access('ip',\@tolock,\@todelete,$info); |
|
} |
|
} |
|
} |
|
} |
&Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]); |
&Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]); |
&Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]); |
&Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]); |
&Apache::lonnet::clear_selected_files($uname); |
&Apache::lonnet::clear_selected_files($uname); |