--- loncom/interface/lonparmset.pm	2009/03/01 03:33:29	1.437
+++ loncom/interface/lonparmset.pm	2009/03/29 18:25:33	1.438
@@ -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 @@ sub update_slots {
                                         {"$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 @@ sub delete_slots {
                                 );
                 &Apache::lonnet::instructor_log('slotreservationslog',\%storehash,
                                                 1,$uname,$udom,$cnum,$cdom);
+                &Apache::lonnet::instructor_log($cdom.'_'.$cnum.'_slotlog',\%storehash,
+                                                1,$uname,$udom,$uname,$udom);
             }
         }
     }