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

Diff for /loncom/interface/lonpreferences.pm between versions 1.24 and 1.27

version 1.24, 2003/05/21 00:48:27 version 1.27, 2003/08/29 03:08:18
Line 180  sub msgforwardchanger { Line 180  sub msgforwardchanger {
     my $r = shift;      my $r = shift;
     my $user       = $ENV{'user.name'};      my $user       = $ENV{'user.name'};
     my $domain     = $ENV{'user.domain'};      my $domain     = $ENV{'user.domain'};
     my %userenv = &Apache::lonnet::get('environment',['msgforward']);      my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']);
     my $msgforward=$userenv{'msgforward'};      my $msgforward=$userenv{'msgforward'};
     my $notification=$userenv{'notification'};      my $notification=$userenv{'notification'};
     my $critnotification=$userenv{'critnotification'};      my $critnotification=$userenv{'critnotification'};
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                     'Change Your Message Forwarding and Notification');                      'Change Your Message Forwarding and Notification');
       my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding",
       "What are forwarding ".
       "and notification ".
       "addresses");
       my $criticalMessageHelp = Apache::loncommon::help_open_topic("Course_Critical_Message",
    "What are critical messages");
   
     $r->print(<<ENDMSG);      $r->print(<<ENDMSG);
 <html>  <html>
 $bodytag  $bodytag
   $forwardingHelp <br />
 <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>):
Line 197  New Forwarding Address(es) (<tt>user:dom Line 204  New Forwarding Address(es) (<tt>user:dom
 New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):  New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
 <input type="text" size="40" value="$notification" name="notification" /><hr />  <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>):  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="text" size="40" value="$critnotification" name="critnotification" />$criticalMessageHelp<hr />
 <input type="submit" value="Change" />  <input type="submit" value="Change" />
 </form>  </form>
 </body>  </body>
Removed from v.1.24  
changed lines
  Added in v.1.27

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