-
-
+
+
ENDRHEAD
$r->print(<$lt{'newr'}
@@ -1367,8 +1363,8 @@ ENDBFORM
sub examblock {
my ($r,$action) = @_;
- unless ($ENV{'request.course.id'}) { return;}
- unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { $r->print('Not allowed'); }
+ unless ($env{'request.course.id'}) { return;}
+ unless (&Apache::lonnet::allowed('srm',$env{'request.course.id'})) { $r->print('Not allowed'); }
my %lt=&Apache::lonlocal::texthash(
'comb' => 'Communication Blocking',
'cbds' => 'Communication blocking during scheduled exams',
@@ -1438,7 +1434,7 @@ sub blockstore {
my $addtotal = 0;
my %blocking = ();
$r->print(''.$lt{'head'}.'
');
- foreach (keys %ENV) {
+ foreach (keys %env) {
if ($_ =~ m/^form\.modify_(\w+)$/) {
$adds{$1} = $1;
$removals{$1} = $1;
@@ -1456,23 +1452,23 @@ sub blockstore {
}
foreach (keys %removals) {
- my $hashkey = $ENV{'form.key_'.$_};
+ my $hashkey = $env{'form.key_'.$_};
&Apache::lonnet::del('comm_block',["$hashkey"],
- $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
- $ENV{'course.'.$ENV{'request.course.id'}.'.num'}
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'}
);
}
foreach (keys %adds) {
unless ( defined($cancels{$_}) ) {
my ($newstart,$newend) = &get_dates_from_form($_);
my $newkey = $newstart.'____'.$newend;
- $blocking{$newkey} = $ENV{'user.name'}.'@'.$ENV{'user.domain'}.':'.$ENV{'form.title_'.$_};
+ $blocking{$newkey} = $env{'user.name'}.'@'.$env{'user.domain'}.':'.$env{'form.title_'.$_};
}
}
if ($addtotal + $modtotal > 0) {
&Apache::lonnet::put('comm_block',\%blocking,
- $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
- $ENV{'course.'.$ENV{'request.course.id'}.'.num'}
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'}
);
}
my $chgestotal = $canceltotal + $modtotal + $addtotal;
@@ -1506,8 +1502,8 @@ sub get_blockdates {
my ($records,$blockcount) = @_;
$$blockcount = 0;
%{$records} = &Apache::lonnet::dump('comm_block',
- $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
- $ENV{'course.'.$ENV{'request.course.id'}.'.num'}
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'}
);
$$blockcount = keys %{$records};
@@ -1525,7 +1521,7 @@ sub display_blocker_status {
my @bgcols = ("#eeeeee","#dddddd");
my $function = &Apache::loncommon::get_users_function();
my $color = &Apache::loncommon::designparm($function.'.tabbg',
- $ENV{'user.domain'});
+ $env{'user.domain'});
my %lt = &Apache::lonlocal::texthash(
'modi' => 'Modify',
'canc' => 'Cancel',
@@ -1591,7 +1587,7 @@ sub display_addblocker_table {
my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);
my $function = &Apache::loncommon::get_users_function();
my $color = &Apache::loncommon::designparm($function.'.tabbg',
- $ENV{'user.domain'});
+ $env{'user.domain'});
my %lt = &Apache::lonlocal::texthash(
'addb' => 'Add block',
'exam' => 'e.g., Exam 1',
@@ -1634,12 +1630,12 @@ sub blockcheck {
my @staffcses = ();
$$startblock = 0;
$$endblock = 0;
- foreach (keys %ENV) {
+ foreach (keys %env) {
if ($_ =~ m-^user\.role\.(st|cc|in)\./(.+)$-) {
my $role = $1;
my $cse = $2;
$cse =~ s|/|_|;
- if ($ENV{$_} =~ m/^(\d*)\.(\d*)$/) {
+ if ($env{$_} =~ m/^(\d*)\.(\d*)$/) {
unless (($2 > 0 && $2 < time) || ($1 > time)) {
if ($role eq 'st') {
push @livecses, $cse;
@@ -1651,14 +1647,14 @@ sub blockcheck {
}
}
} elsif ($_ =~ m-user\.role\.cr/(\w+)/(\w+)/([^/]+)\./(.+)$- ) {
- my $rolepriv = $ENV{'user.role..rolesdef_'.$3};
+ my $rolepriv = $env{'user.role..rolesdef_'.$3};
}
}
# Retrieve blocking times and identity of blocker for active courses for students.
if (@livecses > 0) {
foreach my $cse (@livecses) {
my ($cdom,$crs) = split/_/,$cse;
- if ( (grep/^$cse$/,@staffcses) && ($ENV{'request.role'} !~ m-^st\./$cdom/$crs$-) ) {
+ if ( (grep/^$cse$/,@staffcses) && ($env{'request.role'} !~ m-^st\./$cdom/$crs$-) ) {
next;
} else {
%{$$setters{$cse}} = ();
@@ -1689,7 +1685,7 @@ sub build_block_table {
my ($r,$startblock,$endblock,$setters) = @_;
my $function = &Apache::loncommon::get_users_function();
my $color = &Apache::loncommon::designparm($function.'.tabbg',
- $ENV{'user.domain'});
+ $env{'user.domain'});
my %lt = &Apache::lonlocal::texthash(
'cacb' => 'Currently active communication blocks',
'cour' => 'Course',
@@ -1776,7 +1772,7 @@ sub displaymessage {
'Delete | '.
''.&mt('Back to Folder Display').' | ');
if ($counter > 0){
$r->print('|\>\;)/) {
$cleanmsgtxt.=$_."\n";
}
}
- my $key=&Apache::lonnet::escape($ENV{'form.baseurl'}).'___'.time;
+ my $key=&Apache::lonnet::escape($env{'form.baseurl'}).'___'.time;
&Apache::lonnet::put('nohist_stored_comments',{ $key => $cleanmsgtxt });
}
sub storedcommentlisting {
my ($r)=@_;
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,
- '^'.&Apache::lonnet::escape(&Apache::lonnet::escape($ENV{'form.showcommentbaseurl'})));
+ '^'.&Apache::lonnet::escape(&Apache::lonnet::escape($env{'form.showcommentbaseurl'})));
$r->print(&Apache::lonxml::xmlbegin().''.
&Apache::lonxml::fontsettings().'');
if ((keys %msgs)[0]=~/^error\:/) {
@@ -1912,35 +1908,35 @@ sub sendoffmail {
my ($r,$folder)=@_;
my $suffix=&foldersuffix($folder);
my $sendstatus='';
- if ($ENV{'form.send'}) {
+ if ($env{'form.send'}) {
&printheader($r,'','Messages being sent.');
$r->rflush();
my %content=();
undef %content;
- if ($ENV{'form.forwid'}) {
- my $msgid=$ENV{'form.forwid'};
+ if ($env{'form.forwid'}) {
+ my $msgid=$env{'form.forwid'};
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
%content=&unpackagemsg($message{$msgid},1);
&statuschange($msgid,'forwarded',$folder);
- $ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".
+ $env{'form.message'}.="\n\n-- Forwarded message --\n\n".
$content{'message'};
}
- if ($ENV{'form.replyid'}) {
- my $msgid=$ENV{'form.replyid'};
+ if ($env{'form.replyid'}) {
+ my $msgid=$env{'form.replyid'};
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
%content=&unpackagemsg($message{$msgid},1);
&statuschange($msgid,'replied',$folder);
}
my %toaddr=();
undef %toaddr;
- if ($ENV{'form.sendmode'} eq 'group') {
- foreach (keys %ENV) {
+ if ($env{'form.sendmode'} eq 'group') {
+ foreach (keys %env) {
if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {
$toaddr{$1}='';
}
}
- } elsif ($ENV{'form.sendmode'} eq 'upload') {
- foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) {
+ } elsif ($env{'form.sendmode'} eq 'upload') {
+ foreach (split(/[\n\r\f]+/,$env{'form.upfile'})) {
my ($rec,$txt)=split(/\s*\:\s*/,$_);
if ($txt) {
$rec=~s/\@/\:/;
@@ -1948,10 +1944,10 @@ sub sendoffmail {
}
}
} else {
- $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}='';
+ $toaddr{$env{'form.recuname'}.':'.$env{'form.recdomain'}}='';
}
- if ($ENV{'form.additionalrec'}) {
- foreach (split(/\,/,$ENV{'form.additionalrec'})) {
+ if ($env{'form.additionalrec'}) {
+ foreach (split(/\,/,$env{'form.additionalrec'})) {
my ($auname,$audom)=split(/\@/,$_);
$toaddr{$auname.':'.$audom}='';
}
@@ -1960,31 +1956,31 @@ sub sendoffmail {
foreach (keys %toaddr) {
my ($recuname,$recdomain)=split(/\:/,$_);
my $msgtxt;
- if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) &&
- (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
- $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'},1);
+ if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) &&
+ (&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {
+ $msgtxt=&Apache::lonfeedback::clear_out_html($env{'form.message'},1);
} else {
- $msgtxt=&Apache::lonfeedback::clear_out_html($ENV{'form.message'});
+ $msgtxt=&Apache::lonfeedback::clear_out_html($env{'form.message'});
}
if ($toaddr{$_}) { $msgtxt.=' '.$toaddr{$_}; }
my $thismsg;
- if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) &&
- (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
+ if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) &&
+ (&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {
$r->print(&mt('Sending critical message').' '.$recuname.'@'.$recdomain.': ');
$thismsg=&user_crit_msg($recuname,$recdomain,
- &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),
+ &Apache::lonfeedback::clear_out_html($env{'form.subject'}),
$msgtxt,
- $ENV{'form.sendbck'},$ENV{'form.permanent'});
+ $env{'form.sendbck'},$env{'form.permanent'});
} else {
$r->print(&mt('Sending').' '.$recuname.'@'.$recdomain.': ');
$thismsg=&user_normal_msg($recuname,$recdomain,
- &Apache::lonfeedback::clear_out_html($ENV{'form.subject'}),
+ &Apache::lonfeedback::clear_out_html($env{'form.subject'}),
$msgtxt,
- $content{'citation'},undef,undef,$ENV{'form.permanent'});
- if (($ENV{'request.course.id'}) && ($ENV{'form.sendmode'} eq 'group')) {
+ $content{'citation'},undef,undef,$env{'form.permanent'});
+ if (($env{'request.course.id'}) && ($env{'form.sendmode'} eq 'group')) {
&user_normal_msg_raw(
- $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
- $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+ $env{'course.'.$env{'request.course.id'}.'.num'},
+ $env{'course.'.$env{'request.course.id'}.'.domain'},
'Broadcast ['.$recuname.':'.$recdomain.']',
$msgtxt);
}
@@ -1997,7 +1993,7 @@ sub sendoffmail {
}
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) {
$r->print(' '.&mt('Completed.').'');
- if ($ENV{'form.displayedcrit'}) {
+ if ($env{'form.displayedcrit'}) {
&discrit($r);
} else {
&Apache::loncommunicate::menu($r);
@@ -2028,10 +2024,10 @@ sub handler {
'sendreply','compose','sendmail','critical','recname','recdom',
'recordftf','sortedby','block','folder','startdis','interdis',
'showcommentbaseurl','dismode']);
- $sqs='&sortedby='.$ENV{'form.sortedby'};
+ $sqs='&sortedby='.$env{'form.sortedby'};
# ------------------------------------------------------ They checked for email
- unless ($ENV{'form.block'}) {
+ unless ($env{'form.block'}) {
&Apache::lonnet::put('email_status',{'recnewemail'=>0});
}
@@ -2045,7 +2041,7 @@ sub handler {
# ------------------------------------------------------------------ Get Folder
- my $folder=$ENV{'form.folder'};
+ my $folder=$env{'form.folder'};
unless ($folder) {
$folder='';
} else {
@@ -2054,24 +2050,24 @@ sub handler {
# --------------------------------------------------------------------- Display
- $startdis=$ENV{'form.startdis'};
+ $startdis=$env{'form.startdis'};
$startdis--;
unless ($startdis) { $startdis=0; }
- $interdis=$ENV{'form.interdis'};
+ $interdis=$env{'form.interdis'};
unless ($interdis) { $interdis=20; }
$sqs.='&interdis='.$interdis;
- if ($ENV{'form.firstview'}) {
+ if ($env{'form.firstview'}) {
$startdis=0;
}
- if ($ENV{'form.lastview'}) {
+ if ($env{'form.lastview'}) {
$startdis=-1;
}
- if ($ENV{'form.prevview'}) {
+ if ($env{'form.prevview'}) {
$startdis--;
}
- if ($ENV{'form.nextview'}) {
+ if ($env{'form.nextview'}) {
$startdis++;
}
my $postedstartdis=$startdis+1;
@@ -2079,13 +2075,13 @@ sub handler {
# --------------------------------------------------------------- Render Output
- if ($ENV{'form.display'}) {
- &displaymessage($r,$ENV{'form.display'},$folder);
- } elsif ($ENV{'form.replyto'}) {
- &compout($r,'',$ENV{'form.replyto'},undef,undef,$folder);
- } elsif ($ENV{'form.confirm'}) {
+ if ($env{'form.display'}) {
+ &displaymessage($r,$env{'form.display'},$folder);
+ } elsif ($env{'form.replyto'}) {
+ &compout($r,'',$env{'form.replyto'},undef,undef,$folder);
+ } elsif ($env{'form.confirm'}) {
&printheader($r,'','Confirmed Receipt');
- foreach (keys %ENV) {
+ foreach (keys %env) {
if ($_=~/^form\.rec\_(.*)$/) {
$r->print(''.&mt('Confirming Receipt').': '.
&user_crit_received($1).' ');
@@ -2098,22 +2094,22 @@ sub handler {
}
}
&discrit($r);
- } elsif ($ENV{'form.critical'}) {
+ } elsif ($env{'form.critical'}) {
&printheader($r,'','Displaying Critical Messages');
&discrit($r);
- } elsif ($ENV{'form.forward'}) {
- &compout($r,$ENV{'form.forward'},undef,undef,undef,$folder);
- } elsif ($ENV{'form.markdel'}) {
+ } elsif ($env{'form.forward'}) {
+ &compout($r,$env{'form.forward'},undef,undef,undef,$folder);
+ } elsif ($env{'form.markdel'}) {
&printheader($r,'','Deleted Message');
- &statuschange($ENV{'form.markdel'},'deleted',$folder);
+ &statuschange($env{'form.markdel'},'deleted',$folder);
&Apache::loncommunicate::menu($r);
&disall($r,$folder);
- } elsif ($ENV{'form.markedmove'}) {
+ } elsif ($env{'form.markedmove'}) {
my $total=0;
- foreach (keys %ENV) {
+ foreach (keys %env) {
if ($_=~/^form\.delmark_(.*)$/) {
&movemsg(&Apache::lonnet::unescape($1),$folder,
- $ENV{'form.movetofolder'});
+ $env{'form.movetofolder'});
$total++;
}
}
@@ -2121,9 +2117,9 @@ sub handler {
$r->print('Moved '.$total.' message(s)');
&Apache::loncommunicate::menu($r);
&disall($r,$folder);
- } elsif ($ENV{'form.markeddel'}) {
+ } elsif ($env{'form.markeddel'}) {
my $total=0;
- foreach (keys %ENV) {
+ foreach (keys %env) {
if ($_=~/^form\.delmark_(.*)$/) {
&statuschange(&Apache::lonnet::unescape($1),'deleted',$folder);
$total++;
@@ -2133,29 +2129,29 @@ sub handler {
$r->print('Deleted '.$total.' message(s) ');
&Apache::loncommunicate::menu($r);
&disall($r,$folder);
- } elsif ($ENV{'form.markunread'}) {
+ } elsif ($env{'form.markunread'}) {
&printheader($r,'','Marked Message as Unread');
- &statuschange($ENV{'form.markunread'},'new');
+ &statuschange($env{'form.markunread'},'new');
&Apache::loncommunicate::menu($r);
&disall($r,$folder);
- } elsif ($ENV{'form.compose'}) {
- &compout($r,'','',$ENV{'form.compose'});
- } elsif ($ENV{'form.recordftf'}) {
- &facetoface($r,$ENV{'form.recordftf'});
- } elsif ($ENV{'form.block'}) {
- &examblock($r,$ENV{'form.block'});
- } elsif ($ENV{'form.sendmail'}) {
+ } elsif ($env{'form.compose'}) {
+ &compout($r,'','',$env{'form.compose'});
+ } elsif ($env{'form.recordftf'}) {
+ &facetoface($r,$env{'form.recordftf'});
+ } elsif ($env{'form.block'}) {
+ &examblock($r,$env{'form.block'});
+ } elsif ($env{'form.sendmail'}) {
&sendoffmail($r,$folder);
- if ($ENV{'form.storebasecomment'}) {
+ if ($env{'form.storebasecomment'}) {
&storecomment($r);
}
&disall($r,$folder);
- } elsif ($ENV{'form.newfolder'}) {
+ } elsif ($env{'form.newfolder'}) {
&printheader($r,'','New Folder');
- &makefolder($ENV{'form.newfolder'});
+ &makefolder($env{'form.newfolder'});
&Apache::loncommunicate::menu($r);
- &disall($r,$ENV{'form.newfolder'});
- } elsif ($ENV{'form.showcommentbaseurl'}) {
+ &disall($r,$env{'form.newfolder'});
+ } elsif ($env{'form.showcommentbaseurl'}) {
&storedcommentlisting($r);
} else {
&printheader($r,'','Display All Messages');
|