loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.437, 2009/03/01 03:33:29	version 1.438, 2009/03/29 18:25:33
Line 4720 sub update_slots {	Line 4720 sub update_slots {
{"$slot_name\0$wanted" =>	{"$slot_name\0$wanted" =>
\%reservation},	\%reservation},
$cdom, $cnum);	$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;	return $success;
}	}

Line 4750 sub delete_slots {	Line 4763 sub delete_slots {
);	);
&Apache::lonnet::instructor_log('slotreservationslog',\%storehash,	&Apache::lonnet::instructor_log('slotreservationslog',\%storehash,
1,$uname,$udom,$cnum,$cdom);	1,$uname,$udom,$cnum,$cdom);
	&Apache::lonnet::instructor_log($cdom.'_'.$cnum.'_slotlog',\%storehash,
	1,$uname,$udom,$uname,$udom);
}	}
}	}
}	}