[BACK]Return to slotrequest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/slotrequest.pm between versions 1.125.2.3.4.2 and 1.125.2.8

version 1.125.2.3.4.2, 2020/04/08 20:06:59 version 1.125.2.8, 2019/07/07 22:06:50
Line 962  sub update_selectable { Line 962  sub update_selectable {
     if ($passed_resource->is_map()) {      if ($passed_resource->is_map()) {
         my ($a_resource) =          my ($a_resource) =
             $navmap->retrieveResources($passed_resource,              $navmap->retrieveResources($passed_resource,
                                        sub {$_[0]->is_problem()},0,1);                                         sub {$_[0]->is_problem() || $_[0]->is_tool() },0,1);
         $symb_for_parm = $a_resource->symb();          $symb_for_parm = $a_resource->symb();
     }      }
     # get parameter string, check for existence, rebuild string with the slot      # get parameter string, check for existence, rebuild string with the slot
Line 2894  sub csv_upload_map { Line 2894  sub csv_upload_map {
     if (!$env{'form.datatoken'}) {      if (!$env{'form.datatoken'}) {
  $datatoken=&Apache::loncommon::upfile_store($r);   $datatoken=&Apache::loncommon::upfile_store($r);
     } else {      } else {
  $datatoken=$env{'form.datatoken'};          $datatoken=&Apache::loncommon::valid_datatoken($env{'form.datatoken'});
  &Apache::loncommon::load_tmp_file($r);          if ($datatoken ne '') {
               &Apache::loncommon::load_tmp_file($r,$datatoken);
           }
     }      }
     my @records=&Apache::loncommon::upfile_record_sep();      my @records=&Apache::loncommon::upfile_record_sep();
     if ($env{'form.noFirstLine'}) { shift(@records); }      if ($env{'form.noFirstLine'}) { shift(@records); }
Line 2945  sub csvupload_fields { Line 2947  sub csvupload_fields {
   
 sub csv_upload_assign {  sub csv_upload_assign {
     my ($r,$mgr)= @_;      my ($r,$mgr)= @_;
     &Apache::loncommon::load_tmp_file($r);      my $datatoken = &Apache::loncommon::valid_datatoken($env{'form.datatoken'});
       if ($datatoken ne '') {
           &Apache::loncommon::load_tmp_file($r,$datatoken);
       }
     my @slotdata = &Apache::loncommon::upfile_record_sep();      my @slotdata = &Apache::loncommon::upfile_record_sep();
     if ($env{'form.noFirstLine'}) { shift(@slotdata); }      if ($env{'form.noFirstLine'}) { shift(@slotdata); }
     my %fields=&Apache::grades::get_fields();      my %fields=&Apache::grades::get_fields();
Removed from v.1.125.2.3.4.2  
changed lines
  Added in v.1.125.2.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>