--- 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('
You are accessing an invalid course
');
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);