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

[albertel]

albertel		Mon Jun 19 23:32:40 2006 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - new useslots status of 'map_map'
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.65 loncom/interface/slotrequest.pm:1.66
--- loncom/interface/slotrequest.pm:1.65	Fri Jun 16 15:54:02 2006
+++ loncom/interface/slotrequest.pm	Mon Jun 19 23:32:40 2006
@@ -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.65 2006/06/16 19:54:02 albertel Exp $
+# $Id: slotrequest.pm,v 1.66 2006/06/20 03:32:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -256,7 +256,7 @@
 
     my $parm_symb  = $symb;
     my $parm_level = 1;
-    if ($use_slots eq 'map') {
+    if ($use_slots eq 'map' || $use_slots eq 'map_map') {
 	my ($map) = &Apache::lonnet::decode_symb($symb);
 	$parm_symb = &Apache::lonnet::symbread($map);
 	$parm_level = 2;
@@ -495,7 +495,7 @@
     }
 
     my $parm_level = 1;
-    if ($use_slots eq 'map') {
+    if ($use_slots eq 'map' || $use_slots eq 'map_map') {
 	$parm_level = 2;
     }
     # store new parameter string
@@ -1570,7 +1570,9 @@
 	}
 	my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);
 	my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
-	if ($useslots ne 'resource' && $useslots ne 'map') {
+	if ($useslots ne 'resource' 
+	    && $useslots ne 'map' 
+	    && $useslots ne 'map_map') {
 	    &fail($r,'not_available');
 	    return OK;
 	}