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

raeburn raeburn@source.lon-capa.org
Sun, 29 Mar 2009 18:25:34 -0000


raeburn		Sun Mar 29 18:25:34 2009 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - Log changes made for student-reservable slots from Parameter Table for specific user:
    - in nohist_slotreservationslog.db for course.
    - in nohist_$cdom_$cnum_slotlog.db for specific user.
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.437 loncom/interface/lonparmset.pm:1.438
--- loncom/interface/lonparmset.pm:1.437	Sun Mar  1 03:33:29 2009
+++ loncom/interface/lonparmset.pm	Sun Mar 29 18:25:33 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.437 2009/03/01 03:33:29 raeburn Exp $
+# $Id: lonparmset.pm,v 1.438 2009/03/29 18:25:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4720,6 +4720,19 @@
                                         {"$slot_name\0$wanted" =>
                                              \%reservation},
                                         $cdom, $cnum);
+    if ($success eq 'ok') {
+        my %storehash = (
+                          symb    => $symb,
+                          slot    => $slot_name,
+                          action  => 'reserve',
+                          context => 'parameter',
+                        );
+        &Apache::lonnet::instructor_log('slotreservationslog',\%storehash,
+                                        '',$uname,$udom,$cnum,$cdom);
+
+        &Apache::lonnet::instructor_log($cdom.'_'.$cnum.'_slotlog',\%storehash,
+                                        '',$uname,$udom,$uname,$udom);
+    }
     return $success;
 }
 
@@ -4750,6 +4763,8 @@
                                 );
                 &Apache::lonnet::instructor_log('slotreservationslog',\%storehash,
                                                 1,$uname,$udom,$cnum,$cdom);
+                &Apache::lonnet::instructor_log($cdom.'_'.$cnum.'_slotlog',\%storehash,
+                                                1,$uname,$udom,$uname,$udom);
             }
         }
     }