--- loncom/interface/loncreateuser.pm 2010/01/03 03:14:45 1.295.2.16
+++ loncom/interface/loncreateuser.pm 2009/09/23 03:47:53 1.295.8.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.295.2.16 2010/01/03 03:14:45 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.295.8.1 2009/09/23 03:47:53 gci Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1428,9 +1428,9 @@ sub display_existing_roles {
}
$row.= '
'.$plaintext.
' | '.$area.
- ' | '.($role_start_time?&Apache::lonlocal::locallocaltime($role_start_time)
+ ' | '.($role_start_time?localtime($role_start_time)
: ' ' ).
- ' | '.($role_end_time ?&Apache::lonlocal::locallocaltime($role_end_time)
+ ' | '.($role_end_time ?localtime($role_end_time)
: ' ' )
." | ";
$sortrole{$sortkey}=$envkey;
@@ -2498,7 +2498,8 @@ sub update_user_data {
$newenvhash{'environment.requestcourses.'.$key} =
$changeHash{'requestcourses.'.$key};
if ($changeHash{'requestcourses.'.$key} ne '') {
- $newenvhash{'environment.canrequest.'.$key} = 1;
+ $newenvhash{'environment.canrequest.'.$key} =
+ $changeHash{'requestcourses.'.$key};
} else {
$newenvhash{'environment.canrequest.'.$key} =
&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},