--- loncom/interface/lonwhatsnew.pm	2005/04/07 04:22:03	1.4
+++ loncom/interface/lonwhatsnew.pm	2005/04/07 06:56:23	1.5
@@ -1,5 +1,5 @@
 #
-# $Id: lonwhatsnew.pm,v 1.4 2005/04/07 04:22:03 albertel Exp $
+# $Id: lonwhatsnew.pm,v 1.5 2005/04/07 06:56:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,16 +47,16 @@ sub handler {
     my $r = shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['command']);
 
-    my $command = $ENV{'form.command'};
+    my $command = $env{'form.command'};
 
     if ($command eq '') {
         $command = "info";
     }
 
     $r->print(&display_header());
-    if (! (($ENV{'request.course.fn'}) && (&Apache::lonnet::allowed('vsa',$ENV{'request.course.id'})))) {
+    if (! (($env{'request.course.fn'}) && (&Apache::lonnet::allowed('vsa',$env{'request.course.id'})))) {
         # Not in a course, or not allowed to modify parms
-        $ENV{'user.error.msg'}="/adm/whatsnew:vsa:0:0:Cannot display student activity";
+        $env{'user.error.msg'}="/adm/whatsnew:vsa:0:0:Cannot display student activity";
         return HTTP_NOT_ACCEPTABLE;
     }
 
@@ -213,10 +213,10 @@ sub display_actions_box() {
 
     my $domain=&Apache::loncommon::determinedomain();
     my $function;
-    if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
+    if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
         $function='coordinator';
     }
-    if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {
+    if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
         $function='admin';
     }
 
@@ -226,7 +226,7 @@ sub display_actions_box() {
     &getitems(\%unread,\%ungraded,\%bombed,\@newdiscussions,\@tograde,\@bombs);
     my ($msgcount,$critmsgcount) = &getmail(\@newmsgs,\@critmsgs);
 
-    unless ($ENV{'request.course.id'}) {
+    unless ($env{'request.course.id'}) {
         $r->print('<br /><b><center>You are accessing an invalid course</center></b><br /><br />');
         return;
     }
@@ -405,9 +405,9 @@ sub getitems {
     my $navmap = Apache::lonnavmaps::navmap->new();
     my @allres=$navmap->retrieveResources();
     my %discussiontime = &Apache::lonnet::dump('discussiontimes',
-               $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
-               $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
-    my %lastread = &Apache::lonnet::dump('nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'},'lastread');
+               $env{'course.'.$env{'request.course.id'}.'.domain'},
+               $env{'course.'.$env{'request.course.id'}.'.num'});
+    my %lastread = &Apache::lonnet::dump('nohist_'.$env{'request.course.id'}.'_discuss',$env{'user.domain'},$env{'user.name'},'lastread');
     my %lastreadtime = ();
     my @discussions = ();
     my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist();
@@ -441,9 +441,9 @@ sub getitems {
             if (defined($lastreadtime{$ressymb})) {
                 $prevread = $lastreadtime{$ressymb};
             }
-            my %contrib = &Apache::lonnet::restore($ressymb,$ENV{'request.course.id'},
-            $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
-            $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
+            my %contrib = &Apache::lonnet::restore($ressymb,$env{'request.course.id'},
+            $env{'course.'.$env{'request.course.id'}.'.domain'},
+            $env{'course.'.$env{'request.course.id'}.'.num'});
             if ($contrib{'version'}) {
                 for (my $id=1;$id<=$contrib{'version'};$id++) {
                     unless (($contrib{'hidden'}=~/\.$id\./) || ($contrib{'deleted'}=~/\.$id\./)) {
@@ -510,7 +510,7 @@ sub getmail {
 	my $msgid=&Apache::lonnet::escape($message);
         my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)=
             &Apache::lonmsg::unpackmsgid($msgid);
-        if ($fromcid eq $ENV{'request.course.id'}) {
+        if ($fromcid eq $env{'request.course.id'}) {
             if (defined($sendtime) && $sendtime!~/error/) {
                 my $numsendtime = $sendtime;
                 $sendtime = &Apache::lonlocal::locallocaltime($sendtime);
@@ -535,7 +535,7 @@ sub getmail {
     foreach my $msgid (sort(keys(%what))) {
         my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)=
             &Apache::lonmsg::unpackmsgid($_);
-        if ($fromcid eq  $ENV{'request.course.id'}) {
+        if ($fromcid eq  $env{'request.course.id'}) {
             if (defined($sendtime) && $sendtime!~/error/) {
                 my $numsendtime = $sendtime;
                 $sendtime = &Apache::lonlocal::locallocaltime($sendtime);