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

Diff for /loncom/interface/lonpreferences.pm between versions 1.17 and 1.18

version 1.17, 2002/12/03 19:57:26 version 1.18, 2003/04/01 22:21:45
Line 181  sub msgforwardchanger { Line 181  sub msgforwardchanger {
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my %userenv = &Apache::lonnet::get('environment',['msgforward']);      my %userenv = &Apache::lonnet::get('environment',['msgforward']);
     my $msgforward=$userenv{'msgforward'};      my $msgforward=$userenv{'msgforward'};
       my $notification=$userenv{'notification'};
       my $critnotification=$userenv{'critnotification'};
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Message Forwarding');                      'Change Your Message Forwarding and Notification');
     $r->print(<<ENDMSG);      $r->print(<<ENDMSG);
 <html>  <html>
 $bodytag  $bodytag
Line 190  $bodytag Line 192  $bodytag
 <form name="server" action="/adm/preferences" method="post">  <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_msgforward" />  <input type="hidden" name="action" value="verify_and_change_msgforward" />
 New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):  New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):
 <input type="text" size="40" value="$msgforward" name="msgforward" />  <input type="text" size="40" value="$msgforward" name="msgforward" /><hr />
   New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
   <input type="text" size="40" value="$notification" name="notification" /><hr />
   New Critical Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
   <input type="text" size="40" value="$critnotification" name="critnotification" /><hr />
 <input type="submit" value="Change" />  <input type="submit" value="Change" />
 </form>  </form>
 </body>  </body>
Line 220  sub verify_and_change_msgforward { Line 226  sub verify_and_change_msgforward {
     if ($newscreen) {      if ($newscreen) {
         &Apache::lonnet::put('environment',{'msgforward' => $newscreen});          &Apache::lonnet::put('environment',{'msgforward' => $newscreen});
         &Apache::lonnet::appenv('environment.msgforward' => $newscreen);          &Apache::lonnet::appenv('environment.msgforward' => $newscreen);
         $message.='Set new message forwarding to '.$newscreen;          $message.='Set new message forwarding to '.$newscreen.'<br />';
     } else {      } else {
         &Apache::lonnet::del('environment',['msgforward']);          &Apache::lonnet::del('environment',['msgforward']);
         &Apache::lonnet::delenv('environment\.msgforward');          &Apache::lonnet::delenv('environment\.msgforward');
         $message.='Reset message forwarding';          $message.='Reset message forwarding<br />';
       }
       my $notification=$ENV{'form.notification'};
       $notification=~s/\s//gs;
       if ($notification) {
           &Apache::lonnet::put('environment',{'notification' => $notification});
           &Apache::lonnet::appenv('environment.notification' => $notification);
           $message.='Set message notification address to '.$notification.'<br />';
       } else {
           &Apache::lonnet::del('environment',['notification']);
           &Apache::lonnet::delenv('environment\.notification');
           $message.='Reset message notification<br />';
       }
       my $critnotification=$ENV{'form.critnotification'};
       $critnotification=~s/\s//gs;
       if ($critnotification) {
           &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
           &Apache::lonnet::appenv('environment.critnotification' => $critnotification);
           $message.='Set critical message notification address to '.$critnotification;
       } else {
           &Apache::lonnet::del('environment',['critnotification']);
           &Apache::lonnet::delenv('environment\.critnotification');
           $message.='Reset critical message notification<br />';
     }      }
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                                          'Change Your Message Forwarding');                             'Change Your Message Forwarding and Notifications');
     $r->print(<<ENDVCMSG);      $r->print(<<ENDVCMSG);
 <html>  <html>
 $bodytag  $bodytag
Line 515  ENDSCREENNAMEFORM Line 543  ENDSCREENNAMEFORM
     $r->print(<<ENDMSGFORWARDFORM);      $r->print(<<ENDMSGFORWARDFORM);
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changemsgforward" />  <input type="hidden" name="action" value="changemsgforward" />
 <input type="submit" value="Change message forwarding address" />  <input type="submit" value="Change message forwarding and notification addresses" />
 </form>  </form>
 ENDMSGFORWARDFORM  ENDMSGFORWARDFORM
 # The "about me" page  # The "about me" page
Removed from v.1.17  
changed lines
  Added in v.1.18

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