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

Diff for /loncom/interface/lonannounce.pm between versions 1.16 and 1.17

version 1.16, 2003/07/10 10:27:04 version 1.17, 2003/08/12 19:46:04
Line 225  ENDDOCUMENT Line 225  ENDDOCUMENT
     if ($ENV{'request.course.id'}) {      if ($ENV{'request.course.id'}) {
        $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});         $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
     }      }
   # does this user have privileges to post to servers?
       my $serverpost=0;
       if ($ENV{'request.role.domain'}) {
    $serverpost=&Apache::lonnet::allowed('psa',
        $ENV{'request.role.domain'});
       } else {
    $serverpost=&Apache::lonnet::allowed('psa','/');
       }
   # ------------------------------------------------------------ Process commands
       if ($serverpost) {
    if ($ENV{'form.serveraction'}) {
       foreach (keys %ENV) {
    if ($_=~/^form\.postto\_(\w+)/) {
       $r->print( 
    '<br />Posting '.$1.': '.&Apache::lonnet::postannounce
    ($1,$ENV{'form.serverannnounce'}));
    }
       }
    }
    $r->print(<<SERVERANNOUNCE);
   <form name="serveranno" method="post">
   <h3>Post Server Announcements</h3>
   Post announcements to the system login and roles screen<br />
   <i>(leave blank to delete announcement)</i><br />
   <textarea name="serverannnounce" cols="60" rows="5"></textarea><br />
   Check machines:<br />
   SERVERANNOUNCE
   # list servers
       foreach (sort keys %Apache::lonnet::hostname) {
    if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$_})) {
       $r->print ('<br /><input type="checkbox" name="postto_'.$_.'" /> '.
          $_.' <tt>'.$Apache::lonnet::hostname{$_}.'</tt> '.
          '<a href="http://'.$Apache::lonnet::hostname{$_}.
          '/announcement.txt" target="annowin">current</a>');
    }
       }
       $r->print(
     '<br /><input type="submit" name="serveraction" value="Post"></form><hr />');
       }
     if ($allowed) {      if ($allowed) {
         my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};          my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
         my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};          my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
Removed from v.1.16  
changed lines
  Added in v.1.17

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