--- loncom/interface/lonaboutme.pm	2005/02/17 08:29:42	1.36
+++ loncom/interface/lonaboutme.pm	2005/04/07 06:56:22	1.37
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "About Me" Personal Information
 #
-# $Id: lonaboutme.pm,v 1.36 2005/02/17 08:29:42 albertel Exp $
+# $Id: lonaboutme.pm,v 1.37 2005/04/07 06:56:22 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,7 +41,7 @@ sub handler {
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     return OK if $r->header_only;
-    my $target=$ENV{'form.grade_target'};
+    my $target=$env{'form.grade_target'};
 # ------------------------------------------------------------ Print the screen
     if ($target ne 'tex') {
 	my $html=&Apache::lonxml::xmlbegin();
@@ -51,7 +51,7 @@ $html
 <title>The LearningOnline Network with CAPA</title>
 ENDDOCUMENT
     } else {
-	$r->print(&Apache::lonprintout::print_latex_header($ENV{'form.latex_type'}));
+	$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
     }
     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
 # Is this even a user?
@@ -71,21 +71,21 @@ ENDDOCUMENT
                             ($ENV{'QUERY_STRING'},['forcestudent','register']);
 # ----------------------------------------------------- Force menu registration
     my $addentries='';
-    if ($ENV{'form.register'}) {
+    if ($env{'form.register'}) {
        $addentries=' onLoad="'.&Apache::lonmenu::loadevents().
 	   '" onUnload="'.&Apache::lonmenu::unloadevents().'"';
        $r->print(&Apache::lonmenu::registerurl(1));
     }
 # --------------------------------------------------------------- Force Student
     my $forcestudent='';
-    if ($ENV{'form.forcestudent'}) { $forcestudent='student'; };
+    if ($env{'form.forcestudent'}) { $forcestudent='student'; };
        
 # --------------------------------------- There is such a user, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     if ($target ne 'tex') {
 	$r->print('</head>'.&Apache::loncommon::bodytag
                   ("Personal Information",$forcestudent,$addentries,'',$cdom,
-                   $ENV{'form.register'}));
+                   $env{'form.register'}));
 	$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
     } else {
 	$r->print('\noindent{\large\textbf{'.&Apache::loncommon::plainname($cnum,$cdom).'}}\\\\\\\\');
@@ -106,8 +106,8 @@ ENDDOCUMENT
 
 # does this user have privileges to post, etc?
 
-       my $privleged=$allowed=(($ENV{'user.name'} eq $cnum) && 
-			       ($ENV{'user.domain'} eq $cdom));
+       my $privleged=$allowed=(($env{'user.name'} eq $cnum) && 
+			       ($env{'user.domain'} eq $cdom));
        if ($forcestudent or $target eq 'tex') { $allowed=0; }
  
        if ($allowed) {
@@ -120,9 +120,9 @@ ENDDOCUMENT
 	   $r->print('<p><a href="'.$r->uri.'?forceedit=1"><font size="+1">'.
 		     &mt('Edit').'</font></a></p>');
        }
-      if (($ENV{'form.uploaddoc.filename'}) &&
-          ($ENV{'form.storeupl'}) && ($allowed)) {
- 	  if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
+      if (($env{'form.uploaddoc.filename'}) &&
+          ($env{'form.storeupl'}) && ($allowed)) {
+ 	  if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
 	      if ($syllabus{'uploaded.photourl'}) {
 		  &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
 	      }
@@ -132,19 +132,19 @@ ENDDOCUMENT
           $syllabus{'uploaded.lastmodified'}=time;
           &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
        }
-    if ($allowed && $ENV{'form.delupl'}) {
+    if ($allowed && $env{'form.delupl'}) {
 	if ($syllabus{'uploaded.photourl'}) {
 	    &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
 	    delete($syllabus{'uploaded.photourl'});
 	    &Apache::lonnet::del('aboutme',['uploaded.photourl'],$cdom,$cnum);
 	}
     }
-       if (($allowed) && ($ENV{'form.storesyl'})) {
+       if (($allowed) && ($env{'form.storesyl'})) {
 	   foreach (keys %syllabusfields) {
-               my $field=$ENV{'form.'.$_};
+               my $field=$env{'form.'.$_};
                $field=~s/\s+$//s;
                $field=&Apache::lonfeedback::clear_out_html($field,
-                                                           $ENV{'user.adv'});
+                                                           $env{'user.adv'});
 	       $syllabus{$_}=$field;
            }
            $syllabus{'uploaded.lastmodified'}=time;
@@ -210,8 +210,8 @@ ENDDOCUMENT
     } else {
        $r->print('<p>'.&mt('No personal information provided').'.</p>');
     }
-    if ($ENV{'request.course.id'}) {
-	if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+    if ($env{'request.course.id'}) {
+	if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})) {
 	    if ($target ne 'tex') {
 		$r->print('<a name="coursecomment" />');
 		$r->print('<hr /><h3>'.
@@ -222,10 +222,10 @@ ENDDOCUMENT
                 &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);
                 $r->print('<hr />');
                 if (&Apache::lonnet::allowed('vsa',
-                                             $ENV{'request.course.id'}) ||
+                                             $env{'request.course.id'}) ||
                     &Apache::lonnet::allowed('vsa',
-                                             $ENV{'request.course.id'}.'/'.
-                                             $ENV{'request.course.sec'})) {
+                                             $env{'request.course.id'}.'/'.
+                                             $env{'request.course.sec'})) {
                     $r->print(&Apache::loncommon::track_student_link
                               ('View recent activity by this student',
                                $cnum,$cdom).('&nbsp;'x2));