[BACK]Return to lonmsg.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmsg.pm between versions 1.27 and 1.28

version 1.27, 2002/01/01 18:38:51 version 1.28, 2002/02/16 19:59:10
Line 277  sub discourse { Line 277  sub discourse {
 <input type=button onClick="uncheckall()" value="Check for None">  <input type=button onClick="uncheckall()" value="Check for None">
 <p>  <p>
 ENDDISHEADER  ENDDISHEADER
     map {      foreach (sort keys %courselist) {
         my ($end,$start)=split(/\:/,$courselist{$_});          my ($end,$start)=split(/\:/,$courselist{$_});
         my $active=1;          my $active=1;
         if (($end) && ($now>$end)) { $active=0; }          if (($end) && ($now>$end)) { $active=0; }
Line 296  ENDDISHEADER Line 296  ENDDISHEADER
                       $reply{'generation'}.                        $reply{'generation'}.
                       ' ('.$_.') '.$section);                        ' ('.$_.') '.$section);
         }           } 
     } sort keys %courselist;      }
 }  }
   
 # ==================================================== Display Critical Message  # ==================================================== Display Critical Message
Line 307  sub discrit { Line 307  sub discrit {
          '<form action=/adm/email method=post>'.           '<form action=/adm/email method=post>'.
          '<input type=hidden name=confirm value=true>');           '<input type=hidden name=confirm value=true>');
       my %what=&Apache::lonnet::dump('critical');        my %what=&Apache::lonnet::dump('critical');
       map {        foreach (sort keys %what) {
           my %content=&unpackagemsg($what{$_});            my %content=&unpackagemsg($what{$_});
           $content{'message'}=~s/\n/\<br\>/g;            $content{'message'}=~s/\n/\<br\>/g;
   $r->print('<hr>From: <b>'.$content{'sendername'}.'@'.    $r->print('<hr>From: <b>'.$content{'sendername'}.'@'.
Line 315  sub discrit { Line 315  sub discrit {
                     ')<br><blockquote>'.$content{'message'}.'</blockquote>'.                      ')<br><blockquote>'.$content{'message'}.'</blockquote>'.
   '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.    '<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.
  '<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">');   '<input type=submit name="reprec_'.$_.'" value="Confirm Receipt and Reply">');
       } sort keys %what;        }
       $r->print(        $r->print(
           '<input type=hidden name="displayedcrit" value="true"></form>');            '<input type=hidden name="displayedcrit" value="true"></form>');
 }  }
Line 480  sub handler { Line 480  sub handler {
   
 # --------------------------- Get query string for limited number of parameters  # --------------------------- Get query string for limited number of parameters
   
     map {      foreach (split(/&/,$ENV{'QUERY_STRING'})) {
        my ($name, $value) = split(/=/,$_);         my ($name, $value) = split(/=/,$_);
        $value =~ tr/+/ /;         $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;         $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
Line 493  sub handler { Line 493  sub handler {
               $ENV{'form.'.$name}=$value;                $ENV{'form.'.$name}=$value;
    }     }
        }         }
     } (split(/&/,$ENV{'QUERY_STRING'}));      }
   
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
       
Line 547  sub handler { Line 547  sub handler {
   &disall($r);    &disall($r);
       }        }
   } elsif ($ENV{'form.confirm'}) {    } elsif ($ENV{'form.confirm'}) {
       map {        foreach (keys %ENV) {
           if ($_=~/^form\.rec\_(.*)$/) {            if ($_=~/^form\.rec\_(.*)$/) {
       $r->print('<b>Confirming Receipt:</b> '.        $r->print('<b>Confirming Receipt:</b> '.
                         &user_crit_received($1).'<br>');                          &user_crit_received($1).'<br>');
Line 558  sub handler { Line 558  sub handler {
                         &user_crit_received($msgid).'<br>');                          &user_crit_received($msgid).'<br>');
               &comprep($r,$msgid);                &comprep($r,$msgid);
           }            }
       } keys %ENV;        }
       &discrit($r);        &discrit($r);
   } elsif ($ENV{'form.critical'}) {    } elsif ($ENV{'form.critical'}) {
       &discrit($r);        &discrit($r);
Line 570  sub handler { Line 570  sub handler {
       &disall($r);        &disall($r);
   } elsif ($ENV{'form.markeddel'}) {    } elsif ($ENV{'form.markeddel'}) {
       my $total=0;        my $total=0;
       map {        foreach (keys %ENV) {
           if ($_=~/^form\.delmark_(.*)$/) {            if ($_=~/^form\.delmark_(.*)$/) {
       &statuschange(&Apache::lonnet::unescape($1),'deleted');        &statuschange(&Apache::lonnet::unescape($1),'deleted');
               $total++;                $total++;
           }            }
       } keys %ENV;        }
       $r->print('Deleted '.$total.' message(s)<p>');        $r->print('Deleted '.$total.' message(s)<p>');
       &disall($r);        &disall($r);
   } elsif ($ENV{'form.markunread'}) {    } elsif ($ENV{'form.markunread'}) {
Line 597  sub handler { Line 597  sub handler {
       my %toaddr=();        my %toaddr=();
       undef %toaddr;        undef %toaddr;
       if ($ENV{'form.sendmode'} eq 'group') {        if ($ENV{'form.sendmode'} eq 'group') {
           map {            foreach (keys %ENV) {
       if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {        if ($_=~/^form\.send\_to\_\&\&\&[^\&]*\&\&\&\_(.+)$/) {
   $toaddr{$1}='';    $toaddr{$1}='';
               }                }
           } keys %ENV;            }
       } elsif ($ENV{'form.sendmode'} eq 'upload') {        } elsif ($ENV{'form.sendmode'} eq 'upload') {
           map {            foreach (split(/[\n\r\f]+/,$ENV{'form.upfile'})) {
               my ($rec,$txt)=split(/\s*\:\s*/,$_);                my ($rec,$txt)=split(/\s*\:\s*/,$_);
               if ($txt) {                if ($txt) {
   $rec=~s/\@/\:/;    $rec=~s/\@/\:/;
                   $toaddr{$rec}.=$txt."\n";                    $toaddr{$rec}.=$txt."\n";
               }                }
           } split(/[\n\r\f]+/,$ENV{'form.upfile'});            }
       } else {        } else {
   $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}='';    $toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}='';
       }        }
       if ($ENV{'form.additionalrec'}) {        if ($ENV{'form.additionalrec'}) {
   map {    foreach (split(/\,/,$ENV{'form.additionalrec'})) {
               my ($auname,$audom)=split(/\@/,$_);                my ($auname,$audom)=split(/\@/,$_);
               $toaddr{$auname.':'.$audom}='';                $toaddr{$auname.':'.$audom}='';
           } split(/\,/,$ENV{'form.additionalrec'});            }
       }        }
     map {      foreach (keys %toaddr) {
       my ($recuname,$recdomain)=split(/\:/,$_);        my ($recuname,$recdomain)=split(/\:/,$_);
       my $msgtxt=$ENV{'form.message'};        my $msgtxt=$ENV{'form.message'};
       if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; }            if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; }    
Line 637  sub handler { Line 637  sub handler {
                                  $content{'citation'}));                                   $content{'citation'}));
       }        }
       $r->print('<br>');        $r->print('<br>');
     } keys %toaddr;      }
       if ($ENV{'form.displayedcrit'}) {        if ($ENV{'form.displayedcrit'}) {
           &discrit($r);            &discrit($r);
       } else {        } else {
Removed from v.1.27  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>