[LON-CAPA-cvs] cvs: loncom /interface slotrequest.pm

[raeburn]

raeburn		Sat Jun 22 19:07:58 2019 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - Bug 6911
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.139 loncom/interface/slotrequest.pm:1.140
--- loncom/interface/slotrequest.pm:1.139	Mon Jul  2 20:34:52 2018
+++ loncom/interface/slotrequest.pm	Sat Jun 22 19:07:58 2019
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for requesting to have slots added to a students record
 #
-# $Id: slotrequest.pm,v 1.139 2018/07/02 20:34:52 raeburn Exp $
+# $Id: slotrequest.pm,v 1.140 2019/06/22 19:07:58 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -826,13 +826,39 @@
     }
     my $new_param = join(':', at 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();
 
-    # get slot reservations, check if user has one, if so remove reservation
+    # get slot reservations, check if user has one for the
+    # correct symb, and if so, remove the reservation
     my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
 				       "^$slot_name\0");
     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],
 				 $cdom,$cnum);
             my %storehash = (
@@ -848,18 +874,6 @@
 	}
     }
 
-    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
     my $result=&Apache::lonparmset::storeparm_by_symb($symb,
 						      '0_availablestudent',