--- loncom/interface/lonsyllabus.pm	2005/02/17 08:29:43	1.39
+++ loncom/interface/lonsyllabus.pm	2005/04/07 06:56:23	1.40
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Syllabus
 #
-# $Id: lonsyllabus.pm,v 1.39 2005/02/17 08:29:43 albertel Exp $
+# $Id: lonsyllabus.pm,v 1.40 2005/04/07 06:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,7 +46,7 @@ sub handler {
     return OK if $r->header_only;
 
 # ------------------------------------------------------------ Print the screen
-    my $target=$ENV{'form.grade_target'};
+    my $target=$env{'form.grade_target'};
     if ($target ne 'tex') {
 	my $html=&Apache::lonxml::xmlbegin();
 	$r->print(<<ENDDOCUMENT);
@@ -55,7 +55,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 course?
@@ -87,23 +87,23 @@ ENDDOCUMENT
                         ($ENV{'QUERY_STRING'},['forcestudent','register','forceedit']);
 # ----------------------------------------------------- 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'; };
     my $forceedit='';
-    if ($ENV{'form.forceedit'}) { $forceedit='edit'; }
+    if ($env{'form.forceedit'}) { $forceedit='edit'; }
        
 # ------------------------------------- There is such a course, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     if ($target ne 'tex') {
 	$r->print(&Apache::lonhtmlcommon::htmlareaheaders().
 		  '</head>'.&Apache::loncommon::bodytag
-            ("Syllabus",$forcestudent,$addentries,'',$cdom,$ENV{'form.register'}));
+            ("Syllabus",$forcestudent,$addentries,'',$cdom,$env{'form.register'}));
 	$r->print('<h1>'.$courseenv{'description'}.'</h1><h3>'.
                  $Apache::lonnet::domaindescription{$cdom}.'</h3>');
     } else {
@@ -161,10 +161,10 @@ ENDDOCUMENT
 
 # This handler might be called anonymously ...
 # ----------------------------------------------------- Only if not public call
-    if ($ENV{'user.environment'}) {
+    if ($env{'user.environment'}) {
 # does this user have privileges to post, etc?
-       if ($ENV{'request.course.id'}) {
-          $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
+       if ($env{'request.course.id'}) {
+          $allowed=&Apache::lonnet::allowed('mdc',$env{'request.course.id'});
 	  $privileged=$allowed;
 	  if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
 	      $forcestudent='student';
@@ -187,9 +187,9 @@ ENDDOCUMENT
 			&mt('Edit').'</font></a>'); 
 	  }
       }
-       if (($allowed) && ($ENV{'form.storesyl'})) {
+       if (($allowed) && ($env{'form.storesyl'})) {
 	   foreach (keys %syllabusfields) {
-               my $field=$ENV{'form.'.$_};
+               my $field=$env{'form.'.$_};
 	       chomp($field);
                $field=~s/\s+$//s;
 	       $field=~s/^\s+//s;
@@ -224,8 +224,8 @@ ENDDOCUMENT
                   $syllabus{$_}=$field;
 	      }
            }
-           $syllabus{'uploaded.domain'}=$ENV{'user.domain'};
-           $syllabus{'uploaded.name'}=$ENV{'user.name'};
+           $syllabus{'uploaded.domain'}=$env{'user.domain'};
+           $syllabus{'uploaded.name'}=$env{'user.name'};
            $syllabus{'uploaded.lastmodified'}=time;
            &Apache::lonnet::put('syllabus',\%syllabus,$cdom,$cnum);
        }