--- loncom/interface/lonmsg.pm 2002/01/01 18:38:51 1.27 +++ loncom/interface/lonmsg.pm 2002/02/16 19:59:10 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.27 2002/01/01 18:38:51 www Exp $ +# $Id: lonmsg.pm,v 1.28 2002/02/16 19:59:10 harris41 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -277,7 +277,7 @@ sub discourse {
ENDDISHEADER - map { + foreach (sort keys %courselist) { my ($end,$start)=split(/\:/,$courselist{$_}); my $active=1; if (($end) && ($now>$end)) { $active=0; } @@ -296,7 +296,7 @@ ENDDISHEADER $reply{'generation'}. ' ('.$_.') '.$section); } - } sort keys %courselist; + } } # ==================================================== Display Critical Message @@ -307,7 +307,7 @@ sub discrit { '
'); } @@ -480,7 +480,7 @@ sub handler { # --------------------------- Get query string for limited number of parameters - map { + foreach (split(/&/,$ENV{'QUERY_STRING'})) { my ($name, $value) = split(/=/,$_); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; @@ -493,7 +493,7 @@ sub handler { $ENV{'form.'.$name}=$value; } } - } (split(/&/,$ENV{'QUERY_STRING'})); + } # --------------------------------------------------------------- Render Output @@ -547,7 +547,7 @@ sub handler { &disall($r); } } elsif ($ENV{'form.confirm'}) { - map { + foreach (keys %ENV) { if ($_=~/^form\.rec\_(.*)$/) { $r->print('Confirming Receipt: '. &user_crit_received($1).''); &disall($r); } elsif ($ENV{'form.markunread'}) { @@ -597,29 +597,29 @@ sub handler { my %toaddr=(); undef %toaddr; if ($ENV{'form.sendmode'} eq 'group') { - map { + foreach (keys %ENV) { if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) { $toaddr{$1}=''; } - } keys %ENV; + } } elsif ($ENV{'form.sendmode'} eq 'upload') { - map { + foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) { my ($rec,$txt)=split(/\s*\:\s*/,$_); if ($txt) { $rec=~s/\@/\:/; $toaddr{$rec}.=$txt."\n"; } - } split(/[\n\r\f]+/,$ENV{'form.upfile'}); + } } else { $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=''; } if ($ENV{'form.additionalrec'}) { - map { + foreach (split(/\,/,$ENV{'form.additionalrec'})) { my ($auname,$audom)=split(/\@/,$_); $toaddr{$auname.':'.$audom}=''; - } split(/\,/,$ENV{'form.additionalrec'}); + } } - map { + foreach (keys %toaddr) { my ($recuname,$recdomain)=split(/\:/,$_); my $msgtxt=$ENV{'form.message'}; if ($toaddr{$_}) { $msgtxt.='