[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.1 and 1.125.2.6

version 1.125.2.3.4.1, 2019/06/24 03:23:36 version 1.125.2.6, 2018/09/14 21:06:22
Line 729  sub release_reservation { Line 729  sub release_reservation {
     }      }
     my $new_param = join(':',@new_slots);      my $new_param = join(':',@new_slots);
   
     # Get value of useslots parameter in effect for this user.  
     # If value is map or map_map, then the parm level is 2 (i.e.,  
     # non-recursive enclosing map/folder level for specific user)  
     # and the symb for this reservation in slot_reservations.db  
     # will be the symb of the map itself.  
   
     my $use_slots = &Apache::lonnet::EXT("resource.0.useslots",  
                                          $symb,$udom,$uname);  
     &Apache::lonxml::debug("use_slots is  $use_slots<br />");  
   
     if (&Apache::lonnet::error($use_slots)) {  
         return (0,'error: Unable to determine current status');  
     }  
   
     my $parm_level = 1;  
     my $parm_symb = $passed_resource->symb();  
     if ($use_slots eq 'map' || $use_slots eq 'map_map') {  
         $parm_level = 2;  
         unless ($passed_resource->is_map()) {  
             my ($map) = &Apache::lonnet::decode_symb($parm_symb);  
             $parm_symb = &Apache::lonnet::symbread($map);  
         }  
     }  
   
     my ($cnum,$cdom)=&get_course();      my ($cnum,$cdom)=&get_course();
   
     # get slot reservations, check if user has one for the      # get slot reservations, check if user has one, if so remove reservation
     # correct symb, and if so, remove the reservation  
     my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,      my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
        "^$slot_name\0");         "^$slot_name\0");
     foreach my $entry (keys(%consumed)) {      foreach my $entry (keys(%consumed)) {
         if (($consumed{$entry}->{'name'} eq $uname.':'.$udom) &&   if ( $consumed{$entry}->{'name'} eq ($uname.':'.$udom) ) {
             ($consumed{$entry}->{'symb'} eq $parm_symb)) {  
     &Apache::lonnet::del('slot_reservations',[$entry],      &Apache::lonnet::del('slot_reservations',[$entry],
  $cdom,$cnum);   $cdom,$cnum);
             my %storehash = (              my %storehash = (
Line 777  sub release_reservation { Line 751  sub release_reservation {
  }   }
     }      }
   
       my $use_slots = &Apache::lonnet::EXT("resource.0.useslots",
    $symb,$udom,$uname);
       &Apache::lonxml::debug("use_slots is  $use_slots<br />");
   
       if (&Apache::lonnet::error($use_slots)) { 
    return (0,'error: Unable to determine current status');
       }
   
       my $parm_level = 1;
       if ($use_slots eq 'map' || $use_slots eq 'map_map') {
    $parm_level = 2;
       }
     # store new parameter string      # store new parameter string
     my $result=&Apache::lonparmset::storeparm_by_symb($symb,      my $result=&Apache::lonparmset::storeparm_by_symb($symb,
       '0_availablestudent',        '0_availablestudent',
Line 2686  sub csv_upload_map { Line 2672  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 2737  sub csvupload_fields { Line 2725  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.1  
changed lines
  Added in v.1.125.2.6

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