--- loncom/homework/externalresponse.pm 2013/08/22 07:39:15 1.20 +++ loncom/homework/externalresponse.pm 2014/12/06 20:08:16 1.29 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # external style responses # -# $Id: externalresponse.pm,v 1.20 2013/08/22 07:39:15 kruse Exp $ +# $Id: externalresponse.pm,v 1.29 2014/12/06 20:08:16 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,6 +38,7 @@ use Apache::lonxml(); use Apache::lonhtmlcommon; use Apache::loncommon; use Apache::lonnavmaps; +use Apache::essayresponse; use LONCAPA qw(:DEFAULT :match); BEGIN { @@ -74,185 +75,89 @@ sub start_externalresponse { } } elsif ($target eq 'meta') { $result=&Apache::response::meta_package_write('externalresponse'); - } - elsif ($target eq 'web' && - $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { + } elsif ($target eq 'web') { my $part= $Apache::inputtags::part; - my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators"); - my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); - my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); - $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 + my $coll; + if ($Apache::lonhomework::history{"resource.$part.$id.collaborators"} =~ /\S/) { + $coll = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); } - if($uploadedfiletypes){ + if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') { + my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators"); + my $uploadedfiletypes= &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); + $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 + } my $hiddendraft; + if ($uploadedfiletypes) { if (($Apache::lonhomework::type eq 'survey') || ($Apache::lonhomework::type eq 'surveycred') || ($Apache::lonhomework::type eq 'anonsurvey') || ($Apache::lonhomework::type eq 'anonsurveycred')) { $hiddendraft = ''; } else { - my $status_text = &mt('Submission type'); - if ($Apache::lonhomework::history{"resource.$part.award"} eq 'DRAFT') { - $status_text .= '
'.&mt('(Currently -- draft)'); - } - $result = &Apache::lonhtmlcommon::row_title($status_text); - my $closure; - unless ($ncol || $uploadedfiletypes) { - $closure = 1; - } - $result.= - '
'. - ''. - &Apache::lonhtmlcommon::row_closure($closure); + $result = &Apache::essayresponse::draft_row($part,$id,$ncol,$uploadedfiletypes); } - if ($ncol > 0) { - $result.= &Apache::lonhtmlcommon::row_title(&mt('Collaborators')). - '
'; - $result .= &check_collaborators($ncol,$coll) if ($coll =~ /\w+/); - $result .= &Apache::lonhtmlcommon::row_closure(); + $result .= &Apache::essayresponse::get_collab_row($part,$id,$coll,$ncol); } my $filesfrom = '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'; + $filesfrom = 'uploadonly'; } $result.=&Apache::inputtags::file_selector($part,$id,$uploadedfiletypes, - $filesfrom,undef,$maxfilesize); - if ($result) { - $result = - '
'.$hiddendraft. - &Apache::lonhtmlcommon::start_pick_box(). - $result. - &Apache::lonhtmlcommon::end_pick_box().'
'; - } else { - $result = $hiddendraft; + $filesfrom,undef,$maxfilesize); + } else { + if ($ncol > 0) { + $result = &Apache::essayresponse::get_collab_row($part,$id,$coll,$ncol,1); } + } + if ($result) { + $result = + '
'.$hiddendraft. + &Apache::lonhtmlcommon::start_pick_box(). + $result. + &Apache::lonhtmlcommon::end_pick_box().'
'; + } else { + $result = $hiddendraft; + } + } else { + $result = &Apache::essayresponse::show_status_table($part,$id,$coll); } - } elsif ($target eq 'web' && - $Apache::inputtags::status[-1] ne 'CAN_ANSWER') { - my $part= $Apache::inputtags::part; - my @msgs; - if ($Apache::lonhomework::history{"resource.$part.$id.collaborators"} =~ /\S/) { - my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); - $result .= ''.&mt('Collaborated with [_1]',$coll).''; - } - - my $current_files_display = &Apache::inputtags::current_file_submissions($part,$id); - if ($current_files_display) { - $result .= ''.&mt('Submitted files:').'
'. - $current_files_display.''; - } - - if ($result ne '') { - $result = - ''.$result. - '
'; - } - } + } return $result; } sub end_externalresponse { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; + my $response; my $part=$Apache::inputtags::part; my $id = $Apache::inputtags::response['-1']; my $increment = 1; if ($target eq 'grade') { - my $collaborators = $env{'form.HWCOL'.$part.'_'.$id}; - my $previous_list= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"'); - if ($collaborators ne $previous_list) { -# &Apache::lonnet::logthis("New collaborators [$collaborators] [$previous_list]"); - $Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators; - } + &Apache::essayresponse::get_collaborators($part,$id); if ( &Apache::response::submitted('scantron') ) { my $increment=&Apache::response::scored_response($part,$id); } elsif ( &Apache::response::submitted() ) { - my $response = &Apache::response::getresponse(); - my $files = $Apache::lonhomework::history{"resource.$part.$id.portfiles"}; - $files .= $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}; -# &Apache::lonnet::logthis("Submitted Files : ". $files); - if (( $response =~ /[^\s]/) || $files) { - my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval); - my $answer = &Apache::lonxml::get_param('answer',$parstack,$safeeval); - my %form = &Apache::lonxml::get_param_var('form',$parstack,$safeeval); - $form{'LONCAPA_student_response'}=$response; - $form{'LONCAPA_correct_answer'}=$answer; - $form{'LONCAPA_language'}= - &Apache::lonnet::metadata($ENV{'REQUEST_URI'},'language'); - $form{'LONCAPA_student_submitted_files'} = $files; - &Apache::lonxml::debug("Asking $url, with:"); - &Apache::lonhomework::showhash(%form); - my $udom = &Apache::lonnet::EXT('user.domain'); - my $uname = &Apache::lonnet::EXT('user.name'); - my $symb = $env{'resource.symb'}; - my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname); - my $ua = LWP::UserAgent->new; - my $res = $ua->request(POST $url, \%form); - my %previous = &Apache::response::check_for_previous($response, - $part,$id); - %Apache::loncapagrade::results=(); - $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; - if ($res->is_error()) { - $Apache::loncapagrade::results{'awarddetail'}='ERROR'; - } else { - &Apache::lonxml::register('Apache::loncapagrade', - ('loncapagrade')); - @Apache::scripttag::parser_env = @_; - my $result=&Apache::scripttag::xmlparse($res->{_content}); - &Apache::lonxml::debug("Got a result of :$result:"); - } - foreach my $key (keys(%Apache::loncapagrade::results)) { - $Apache::lonhomework::results{"resource.$part.$id.$key"}= - $Apache::loncapagrade::results{$key}; - } - $Apache::externalresponse::message=$Apache::loncapagrade::results{'message'}; - &Apache::response::handle_previous(\%previous, - $Apache::loncapagrade::results{'awarddetail'}); - if ($Apache::loncapagrade::results{'awarddetail'} eq 'ASSIGNED_SCORE') { - $Apache::lonhomework::results{"resource.$part.$id.awarded"}= - 1.*$Apache::loncapagrade::results{"awarded"}; - } - &Apache::lonxml::debug("response of"); - &Apache::lonhomework::showhash(%$res); - &Apache::lonxml::debug("capagrade of"); - &Apache::lonhomework::showhash(%Apache::loncapagrade::results); - &Apache::lonxml::debug("results of"); - &Apache::lonhomework::showhash(%Apache::lonhomework::results); - } - my $response = $env{'form.HWVAL_'.$id}; + $response = $env{'form.HWVAL_'.$id}; my $jspart=$part; $jspart=~s/\./_/g; my $filename = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} || $env{'form.HWFILETOOBIG'.$part.'_'.$id}; my $portfiles = $env{'form.HWPORT'.$jspart.'_'.$id}; my @deletions = &Apache::loncommon::get_env_multiple('form.HWFILE'.$jspart.'_'.$id.'_delete'); - my ($is_submit,$was_draft); + my ($is_submit,$was_draft,$externalgrade); if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') { $is_submit = 1; } if ($Apache::lonhomework::history{"resource.$part.award"} eq 'DRAFT') { $was_draft = 1; } - if (($response =~ /[^\s]/) || ($filename =~ /[^\s]/) || ($portfiles =~ /[^\s]/) || + if (($filename =~ /[^\s]/) || ($portfiles =~ /[^\s]/) || (@deletions > 0) || ($was_draft && $is_submit)) { my $award='DRAFT'; if ($env{'form.HWDRAFT'.$part.'_'.$id} eq 'yes') { @@ -268,7 +173,24 @@ sub end_externalresponse { } my $uploadedflag=0; my $totalsize=0; - &file_submission($part,$id,\$award,\$uploadedflag,\$totalsize,\@deletions); + my %info = ( + 'is_submit' => $is_submit, + ); + my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval); + if ($url =~ m{^https?://([^/]+)/}) { + use Socket; + my $ip = gethostbyname($1); + if (length($ip) eq 4) { + $info{'ip'} = inet_ntoa($ip); + } + } elsif ($url =~ m{^/}) { + my $ip = &Apache::lonnet::get_host_ip($Apache::lonnet::perlvar{'lonHostID'}); + if ($ip =~ /^[\d\.]+$/) { + $info{'ip'} = $ip; + } + } + &Apache::essayresponse::file_submission($part,$id,\$award,\$uploadedflag,\$totalsize, + \@deletions,'externalresponse',\%info); $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award; my %previous=&Apache::response::check_for_previous($response,$part,$id); @@ -295,14 +217,94 @@ sub end_externalresponse { { $akey => $response },$adom,$aname); } } + ($award eq 'DRAFT') ? ($externalgrade = 0) : ($externalgrade =1); } + if (&Apache::response::getresponse() =~ /[^\s]/) { + $response = &Apache::response::getresponse(); + $externalgrade = 1; + } + + if ($externalgrade) { + my $filesresults=0; +# Previously turned in files + my %previously_turned_in=(); + foreach my $file (split(/\,/,$Apache::lonhomework::history{"resource.$part.$id.portfiles"}.','. + $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"})) { + if ($file=~/\S/) { + $previously_turned_in{'/uploaded/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/portfolio'.$file}=1; + } + } +# Currently turned in files + my %currently_turned_in=(); + foreach my $file (split(/\,/,$Apache::lonhomework::results{"resource.$part.$id.portfiles"}.','. + $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"})) { + if ($file=~/\S/) { + $filesresults=1; + $currently_turned_in{'/uploaded/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/portfolio'.$file}=1; + } + } + my $filelinks=join(',',map{$_}(keys(%currently_turned_in))); + &Apache::lonnet::logthis("Previously: ".join("\n",sort(keys(%previously_turned_in)))); + &Apache::lonnet::logthis("Currently: ".join("\n",sort(keys(%currently_turned_in)))); + &Apache::lonnet::logthis("File flag: ".$filesresults); + &Apache::lonnet::logthis("Links String: ".$filelinks); + if ($filesresults || ( $response =~ /[^\s]/) ) { + my $url = &Apache::lonxml::get_param('url',$parstack,$safeeval); + my $answer = &Apache::lonxml::get_param('answer',$parstack,$safeeval); + my %form = &Apache::lonxml::get_param_var('form',$parstack,$safeeval); + $form{'LONCAPA_student_response'}=$response; + $form{'LONCAPA_correct_answer'}=$answer; + $form{'LONCAPA_language'}= + &Apache::lonnet::metadata($ENV{'REQUEST_URI'},'language'); + $form{'LONCAPA_student_submitted_files'} = $filelinks; + &Apache::lonxml::debug("Asking $url, with:"); + &Apache::lonhomework::showhash(%form); + my $udom = &Apache::lonnet::EXT('user.domain'); + my $uname = &Apache::lonnet::EXT('user.name'); + my $symb = $env{'resource.symb'}; + my %record = &Apache::lonnet::restore($symb,$env{'request.course.id'},$udom,$uname); + my $ua = LWP::UserAgent->new; + my $res = $ua->request(POST $url, \%form); + %Apache::loncapagrade::results=(); + $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response; + if ($res->is_error()) { + $Apache::loncapagrade::results{'awarddetail'}='ERROR'; + } else { + &Apache::lonxml::register('Apache::loncapagrade', + ('loncapagrade')); + @Apache::scripttag::parser_env = @_; + my $result=&Apache::scripttag::xmlparse($res->{_content}); + &Apache::lonxml::debug("Got a result of :$result:"); + } + foreach my $key (keys(%Apache::loncapagrade::results)) { + $Apache::lonhomework::results{"resource.$part.$id.$key"}= + $Apache::loncapagrade::results{$key}; + } + $Apache::externalresponse::message=$Apache::loncapagrade::results{'message'}; + if ($Apache::loncapagrade::results{'awarddetail'} eq 'ASSIGNED_SCORE') { + $Apache::lonhomework::results{"resource.$part.$id.awarded"}= + 1.*$Apache::loncapagrade::results{"awarded"}; + } + my $handbackurl = $Apache::loncapagrade::results{'handbackurl'} + &Apache::lonnet::logthis("handbackurl: ". $Apache::loncapagrade::results{'handbackurl'}); + &Apache::lonxml::debug("response of"); + &Apache::lonhomework::showhash(%$res); + &Apache::lonxml::debug("capagrade of"); + &Apache::lonhomework::showhash(%Apache::loncapagrade::results); + &Apache::lonxml::debug("results of"); + &Apache::lonhomework::showhash(%Apache::lonhomework::results); + } } + } } if ($target eq 'web') { - &Apache::response::setup_prior_tries_hash(\&format_prior_response); + &Apache::response::setup_prior_tries_hash(\&Apache::essayresponse::format_prior_response, + ['portfiles', + 'uploadedurl']); if (&Apache::response::show_answer()) { $result.='
'.&mt('Your answer:').'
'.
-                    $Apache::lonhomework::history{"resource.$part.$id.submission"}.
+                    &HTML::Entities::encode(
+                        $Apache::lonhomework::history{"resource.$part.$id.submission"},'"<>&').
                     '

'.&Apache::lonxml::get_param('answerdisplay',$parstack,$safeeval). '
'; } @@ -310,6 +312,7 @@ sub end_externalresponse { $result.='
'.$Apache::externalresponse::message.'

'; } $Apache::externalresponse::message=''; + } if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || @@ -328,356 +331,11 @@ sub end_externalresponse { && $Apache::lonhomework::type eq 'exam') { $result .= &Apache::inputtags::exam_score_line($target); - } elsif ($target eq 'answer') { - $result.=&Apache::response::answer_header($$tagstack[-1]); - my $answer = &mt('Essay will be hand graded.'); - $result.=&Apache::response::answer_part($$tagstack[-1],$answer, - {'no_verbatim' => 1}); - $result.=&Apache::response::answer_footer($$tagstack[-1]); - } - if ($target eq 'web') { - &Apache::response::setup_prior_tries_hash(\&format_prior_response, - ['portfiles', - 'uploadedurl']); - } - - if (($target eq 'grade' || $target eq 'web' || $target eq 'answer' || - $target eq 'tex' || $target eq 'analyze')) { - &Apache::lonxml::increment_counter($increment, "$part.$id"); - - if ($target eq 'analyze') { - $Apache::lonhomework::analyze{"$part.$id.type"} = 'essayresponse'; - push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id"); - &Apache::lonhomework::set_bubble_lines(); - } - } - - + } &Apache::response::end_response(); return $result; } -sub format_prior_response { - - - my ($mode,$answer,$other_data) = @_; - my $output; - - my (undef,undef,$udom,$uname) = &Apache::lonnet::whichuser(); - my $port_url = '/uploaded/'.$udom.'/'.$uname.'/portfolio/'; - - my $file_list; - - foreach my $file (split(/\s*,\s*/, - $other_data->[0].','.$other_data->[1])) { - next if ($file!~/\S/); - if ($file !~ m{^/uploaded/}) { $file=$port_url.$file; } - $file=~s|/+|/|g; - &Apache::lonnet::allowuploaded('/adm/essayresponse',$file); - $file_list.='
  • file icon '.$file.'
  • '."\n"; - } - if ($file_list) { - $output.= &mt('Submitted Files').''; - } - if ($answer =~ /\S/) { - $output.='

    '.&mt('Submitted text').'

    '.$answer.'

    '; - } - - return '
    '.$output.'
    '; - } - - - -sub file_submission { - my ($part,$id,$award,$uploadedflag,$totalsize,$deletions)=@_; - my $files; - my $jspart=$part; - $jspart=~s/\./_/g; - my ($symb,$crsid,$udom,$uname) = &Apache::lonnet::whichuser(); - my %crsinfo = &Apache::lonnet::coursedescription($crsid); - my $cdom = $crsinfo{'domain'}; - my $cnum = $crsinfo{'num'}; - my (@portfiles,$uploadedurl,@submitted_portfiles,$submitted_upload, - @acceptable_portfiles,$acceptable_upload,@accepted_portfiles, - $accepted_upload,@savedportfiles,$stored_upload,@tolock, - %port_delete,$uploaded_delete); - if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"} || - $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}) { - if ($Apache::lonhomework::history{"resource.$part.$id.portfiles"}) { - @portfiles = split(/,/,$Apache::lonhomework::history{"resource.$part.$id.portfiles"}); - } - $uploadedurl = $Apache::lonhomework::history{"resource.$part.$id.uploadedurl"}; - if (ref($deletions) eq 'ARRAY') { - if (@{$deletions} > 0) { - foreach my $file (@{$deletions}) { - $file = &HTML::Entities::decode($file); - if (grep(/^\Q$file\E$/,@portfiles)) { - $port_delete{$file} = 1; - } elsif ($file =~ m{^/uploaded/\Q$udom\E/\Q$uname\E/essayresponse/\Q$cdom\E/\Q$cnum\E/}) { - $uploaded_delete = $file; - } elsif ($file =~ m{^/uploaded/\Q$udom\E/\Q$uname\E/essayresponse/[^/]+$}) { - $uploaded_delete = $file; - } - } - } - } - foreach my $current (@portfiles) { - unless ($port_delete{$current}) { - push(@savedportfiles,$current); - } - } - if ($uploaded_delete) { - if ($uploaded_delete eq $uploadedurl) { - $Apache::lonhomework::results{"resource.$part.$id.uploadedfile"} = ""; - $Apache::lonhomework::results{"resource.$part.$id.uploadedurl"} = ""; - } else { - undef($uploaded_delete); - } - } - } - if ($env{'form.HWPORT'.$jspart.'_'.$id} ne '') { - my $newfiles= $env{'form.HWPORT'.$jspart.'_'.$id}; - $newfiles =~s/,$//; - if ($newfiles =~ /[^\s]/) { - foreach my $file (split(/\s*,\s*/,$newfiles)) { - if ($file =~ /[^\s]/) { - push(@submitted_portfiles,$file); - } - } - } - } - if ($env{'form.HWFILETOOBIG'.$part.'_'.$id} ne '') { - $$award = 'EXCESS_FILESIZE'; - } elsif ($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'} ne '') { - my $newfile = $env{'form.HWFILE'.$jspart.'_'.$id.'.filename'}; - if ($newfile =~ /[^\s]/) { - $submitted_upload = $newfile; - } - } - if (@savedportfiles) { - foreach my $file (reverse(@savedportfiles)) { - unless(grep(/^\Q$file\E$/,@submitted_portfiles)) { - unshift(@submitted_portfiles,$file); - } - } - } - if (@submitted_portfiles || $submitted_upload) { - my $uploadedfiletypes= - &Apache::lonnet::EXT("resource.$part".'_'."$id.uploadedfiletypes"); - if ($uploadedfiletypes ne '') { - $uploadedfiletypes=~s/[^\w\,]//g; - $uploadedfiletypes=','.$uploadedfiletypes.','; - if (@submitted_portfiles) { - foreach my $file (@submitted_portfiles) { - my ($extension)=($file=~/\.(\w+)$/); - if ($uploadedfiletypes=~/\,\s*\Q$extension\E\s*\,/i) { - push(@acceptable_portfiles,$file); - } - } - } - if ($submitted_upload) { - my ($upload_ext)=($submitted_upload=~/\.(\w+)$/); - if ($uploadedfiletypes=~/\,\s*\Q$upload_ext\E\s*\,/i) { - $acceptable_upload = $submitted_upload; - } else { - $$award='INVALID_FILETYPE'; - &delete_form_items($jspart,$id); - } - } - } else { - @acceptable_portfiles = @submitted_portfiles; - $acceptable_upload = $submitted_upload; - } - } - if ((@acceptable_portfiles) || ($acceptable_upload ne '')) { - my $maxfilesize=&Apache::lonnet::EXT("resource.$part".'_'."$id.maxfilesize"); - if (!$maxfilesize) { - $maxfilesize = 10.0; #FIXME This should become a domain configuration - } - my %dirlist; - if (@acceptable_portfiles) { - foreach my $file (@acceptable_portfiles) { - my ($path,$filename) = ($file =~ m{^(.*/)([^/]+)$}); - my $fullpath = '/userfiles/portfolio'.$path; - if (!exists($dirlist{$fullpath})) { - my ($listref,$listerror) = - &Apache::lonnet::dirlist($fullpath,$udom,$uname,1); - if (ref($listref) eq 'ARRAY') { - $dirlist{$fullpath} = $listref; - } - } - if (ref($dirlist{$fullpath}) eq 'ARRAY') { - foreach my $dir_line (@{$dirlist{$fullpath}}) { - my ($fname,$dom,undef,$testdir,undef,undef,undef,undef, - $size,undef,$mtime,undef,undef,undef,$obs,undef) = - split(/\&/,$dir_line,16); - if ($filename eq $fname) { - my $mbsize = $size/(1024.0*1024.0); - if (ref($totalsize)) { - $$totalsize += $mbsize; - } - last; - } - } - } - if (ref($totalsize)) { - if ($$totalsize > $maxfilesize) { - $$award='EXCESS_FILESIZE'; - &delete_form_items($jspart,$id); - } else { - push(@accepted_portfiles,$file); - } - } else { - push(@accepted_portfiles,$file); - } - } - } - if ($acceptable_upload ne '') { - if (ref($totalsize)) { - $$totalsize += $env{'form.HWFILESIZE'.$jspart.'_'.$id}; - if ($$totalsize > $maxfilesize) { - $$award='EXCESS_FILESIZE'; - delete($env{'form.HWFILE'.$jspart.'_'.$id}); - } else { - $accepted_upload = $acceptable_upload; - } - } else { - $accepted_upload = $acceptable_upload; - } - } - } - if ($accepted_upload ne '') { - my ($path,$multiresp) = - &Apache::loncommon::get_turnedin_filepath($symb,$uname,$udom, - 'submission'); - if ($path eq '') { - $$award = 'INTERNAL_ERROR'; - } else { - if ($multiresp) { - $path .= '/'.$jspart.'_'.$id; - } - my $prefix = 'portfolio'; - my $formelement = 'HWFILE'.$jspart.'_'.$id; - my $fname = &Apache::lonnet::clean_filename($env{'form.'.$formelement.'.filename'}); - my $url = '/uploaded/'.$udom.'/'.$uname.'/'.$prefix.$path.'/'.$fname; - my @stat = &Apache::lonnet::stat_file($url); - my $conflicts = 0; - if (@stat && $stat[0] ne 'no_such_dir') { - my $current_permissions = - &Apache::lonnet::get_portfile_permissions($udom,$uname); - if (ref($current_permissions) eq 'HASH') { - if (ref($current_permissions->{$path.'/'.$fname}) eq 'ARRAY') { - foreach my $record (@{$current_permissions->{$path.'/'.$fname}}) { - if (ref($record) eq 'ARRAY') { - next if (($record->[0] eq $symb) && - ($record->[1] eq $crsid)); - $conflicts ++; - } - } - } - } - if ($conflicts) { - $$award = 'FILENAME_INUSE'; - } - } - unless ($conflicts) { - my ($mode,%allfiles,%codebase); - my $result = &Apache::lonnet::userfileupload($formelement,'', - $prefix.$path,$mode,\%allfiles,\%codebase); - if ($result =~ m{^/uploaded/}) { - $stored_upload = $path.'/'.$fname; - unless (grep(/^\Q$stored_upload\E$/,@accepted_portfiles)) { - $Apache::lonhomework::results{"resource.$part.$id.portfiles"} = $stored_upload; - push(@tolock,$stored_upload); - } - } else { - $$award = 'INTERNAL_ERROR'; - } - } - } - delete($env{'form.HWFILE'.$jspart.'_'.$id}); - } - if (@accepted_portfiles) { - if ($Apache::lonhomework::results{"resource.$part.$id.portfiles"}) { - $Apache::lonhomework::results{"resource.$part.$id.portfiles"} .= ','; - } - $Apache::lonhomework::results{"resource.$part.$id.portfiles"}.=join(',',@accepted_portfiles); - push(@tolock,@accepted_portfiles); - } - if (!defined($Apache::lonhomework::results{"resource.$part.$id.portfiles"})) { - if (keys(%port_delete) > 0) { - $Apache::lonhomework::results{"resource.$part.$id.portfiles"} = ""; - } - } - if (($Apache::lonhomework::history{"resource.$part.$id.portfiles"} ne - $Apache::lonhomework::results{"resource.$part.$id.portfiles"}) || - ($uploaded_delete)) { - if (ref($uploadedflag)) { - $$uploadedflag=1; - } - } - &Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]); - &Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]); - &Apache::lonnet::clear_selected_files($uname); - return; -} - -sub delete_form_items { - my ($jspart,$id) = @_; - delete($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'}); - delete($env{'form.HWFILE'.$jspart.'_'.$id.'.mimetype'}); - delete($env{'form.HWFILE'.$jspart.'_'.$id}); -} - -sub check_collaborators { - my ($ncol,$coll) = @_; - my %classlist=&Apache::lonnet::dump('classlist', - $env{'course.'.$env{'request.course.id'}.'.domain'}, - $env{'course.'.$env{'request.course.id'}.'.num'}); - my (@badcollaborators,$result); - - my (@collaborators) = split(/[,;\s]+/,$coll); - foreach my $entry (@collaborators) { - my $collaborator; - if ($entry =~ /:/) { - $collaborator = $entry; - } else { - $collaborator = $entry.':'.$env{'user.domain'}; - } - if ($collaborator !~ /^$match_username:$match_domain$/) { - if (!grep(/^\Q$entry\E$/,@badcollaborators)) { - push(@badcollaborators,$entry); - } - } elsif (!grep(/^\Q$collaborator\E$/i,keys(%classlist))) { - if (!grep(/^\Q$entry\E$/,@badcollaborators)) { - push(@badcollaborators,$entry); - } - } - } - - my $numbad = scalar(@badcollaborators); - if ($numbad) { - $result = '
    '; - if ($numbad == 1) { - $result .= &mt('The following user is invalid:'); - } else { - $result .= &mt('The following [_1] users are invalid:',$numbad); - } - $result .= ' '.join(', ',@badcollaborators).'. '.&mt('Please correct.'). - '
    '; - } - my $toomany = scalar(@collaborators) - $ncol; - if ($toomany > 0) { - $result .= '
    '. - &mt('You have too many collaborators.').' '. - &mt('Please remove [quant,_1,collaborator].',$toomany). - '
    '; - } - return $result; -} - - - 1; __END__ @@ -703,8 +361,6 @@ described at http://www.lon-capa.org. =item end_externalresponse() -=item format_prior_response() - =back =cut