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

Diff for /loncom/interface/lonpreferences.pm between versions 1.34 and 1.35

version 1.34, 2004/01/14 15:51:07 version 1.35, 2004/02/21 01:31:04
Line 112  sub languagechanger { Line 112  sub languagechanger {
         ('environment',['languages']);          ('environment',['languages']);
     my $language=$userenv{'languages'};      my $language=$userenv{'languages'};
   
     my $bodytag=&Apache::loncommon::bodytag(  
               'Change Your Language Preferences');  
     my $pref=&mt('Preferred language');      my $pref=&mt('Preferred language');
     my %langchoices=('' => 'No language preference');      my %langchoices=('' => 'No language preference');
     foreach (&Apache::loncommon::languageids()) {      foreach (&Apache::loncommon::languageids()) {
Line 125  sub languagechanger { Line 123  sub languagechanger {
     my $selectionbox=&Apache::loncommon::select_form($language,'language',      my $selectionbox=&Apache::loncommon::select_form($language,'language',
      %langchoices);       %langchoices);
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
 <html>  
 $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_languages" />  <input type="hidden" name="action" value="verify_and_change_languages" />
 <br />$pref: $selectionbox  <br />$pref: $selectionbox
 ENDLSCREEN  ENDLSCREEN
     $r->print('<br /><input type="submit" value="'.&mt('Change').'" /></form></body></html>');      $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
 }  }
   
   
Line 153  sub verify_and_change_languages { Line 148  sub verify_and_change_languages {
         &Apache::lonnet::delenv('environment\.languages');          &Apache::lonnet::delenv('environment\.languages');
         $message='Reset preferred language';          $message='Reset preferred language';
     }      }
     my $bodytag=&Apache::loncommon::bodytag(  
                     'Change Your Language Preferences');  
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
 <html>  
 $bodytag  
 </p>  </p>
 $message  $message
 </body></html>  
 ENDVCSCREEN  ENDVCSCREEN
 }  }
   
Line 176  sub screennamechanger { Line 166  sub screennamechanger {
         ('environment',['screenname','nickname']);          ('environment',['screenname','nickname']);
     my $screenname=$userenv{'screenname'};      my $screenname=$userenv{'screenname'};
     my $nickname=$userenv{'nickname'};      my $nickname=$userenv{'nickname'};
     my $bodytag=&Apache::loncommon::bodytag(  
               'Change Your Nickname and Anonymous Screen Name');  
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
 <html>  
 $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_screenname" />  <input type="hidden" name="action" value="verify_and_change_screenname" />
 <br />New screenname (shown if you post anonymously):  <br />New screenname (shown if you post anonymously):
Line 190  $bodytag Line 175  $bodytag
 <input type="text" size="20" value="$nickname" name="nickname" />  <input type="text" size="20" value="$nickname" name="nickname" />
 <input type="submit" value="Change" />  <input type="submit" value="Change" />
 </form>  </form>
 </body>  
 </html>  
 ENDSCREEN  ENDSCREEN
 }  }
   
Line 226  sub verify_and_change_screenname { Line 209  sub verify_and_change_screenname {
         $message.='Reset nickname';          $message.='Reset nickname';
     }      }
   
     my $bodytag=&Apache::loncommon::bodytag(  
                     'Change Your Nickname and Anonymous Screen Name');  
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
 <html>  
 $bodytag  
 </p>  </p>
 $message  $message
 </body></html>  
 ENDVCSCREEN  ENDVCSCREEN
 }  }
   
Line 249  sub msgforwardchanger { Line 227  sub msgforwardchanger {
     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(  
                     'Change Your Message Forwarding and Notification');  
     my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding",      my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding",
     "What are forwarding ".      "What are forwarding ".
     "and notification ".      "and notification ".
Line 259  sub msgforwardchanger { Line 235  sub msgforwardchanger {
  "What are critical messages");   "What are critical messages");
   
     $r->print(<<ENDMSG);      $r->print(<<ENDMSG);
 <html>  
 $bodytag  
 $forwardingHelp <br />  $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" />
Line 272  New Critical Message Notification Email Line 246  New Critical Message Notification Email
 <input type="text" size="40" value="$critnotification" name="critnotification" />$criticalMessageHelp<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>  
 </html>  
 ENDMSG  ENDMSG
 }  }
   
Line 327  sub verify_and_change_msgforward { Line 299  sub verify_and_change_msgforward {
         &Apache::lonnet::delenv('environment\.critnotification');          &Apache::lonnet::delenv('environment\.critnotification');
         $message.='Reset critical message notification<br />';          $message.='Reset critical message notification<br />';
     }      }
     my $bodytag=&Apache::loncommon::bodytag(  
                            'Change Your Message Forwarding and Notifications');  
     $r->print(<<ENDVCMSG);      $r->print(<<ENDVCMSG);
 <html>  
 $bodytag  
 </p>  </p>
 $message  $message
 </body></html>  
 ENDVCMSG  ENDVCMSG
 }  }
   
Line 344  ENDVCMSG Line 311  ENDVCMSG
   
 sub colorschanger {  sub colorschanger {
     my $r = shift;      my $r = shift;
     my $bodytag=&Apache::loncommon::bodytag(  
                     'Change Color Scheme for Current Role Type','',  
                     'onUnload="pclose();"');  
 # figure out colors  # figure out colors
     my $function='student';      my $function='student';
     if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {      if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
Line 379  sub colorschanger { Line 343  sub colorschanger {
     }      }
     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();      my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     $r->print(<<ENDCOL);      $r->print(<<ENDCOL);
 <html>  
 <script>  <script>
   
     function pclose() {      function pclose() {
Line 406  sub colorschanger { Line 369  sub colorschanger {
   
   
 </script>  </script>
 $bodytag  
 <form name="parmform">  <form name="parmform">
 <input type="hidden" name="pres_marker" />  <input type="hidden" name="pres_marker" />
 <input type="hidden" name="pres_type" />  <input type="hidden" name="pres_type" />
Line 420  $chtable Line 382  $chtable
 <input type="submit" value="Change Custom Colors" />  <input type="submit" value="Change Custom Colors" />
 <input type="submit" name="resetall" value="Reset All Colors to Default" />  <input type="submit" name="resetall" value="Reset All Colors to Default" />
 </form>  </form>
 </body>  
 </html>  
 ENDCOL  ENDCOL
 }  }
   
Line 462  sub verify_and_change_colors { Line 422  sub verify_and_change_colors {
     $message.='Reset '.$colortypes{$item}.'<br />';      $message.='Reset '.$colortypes{$item}.'<br />';
  }   }
     }      }
     my $bodytag=&Apache::loncommon::bodytag(  
                            'Change Color Scheme for Current Role Type');  
     $r->print(<<ENDVCCOL);      $r->print(<<ENDVCCOL);
 <html>  
 $bodytag  
 </p>  </p>
 $message  $message
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changecolors" />  <input type="hidden" name="action" value="changecolors" />
 <input type="submit" value="Revise color scheme again" />  
 </form>  </form>
 </body></html>  
 ENDVCCOL  ENDVCCOL
 }  }
   
Line 519  sub passwordchanger { Line 473  sub passwordchanger {
  my $jsh=Apache::File->new($include."/londes.js");   my $jsh=Apache::File->new($include."/londes.js");
  $r->print(<$jsh>);   $r->print(<$jsh>);
     }      }
     my $bodytag=&Apache::loncommon::bodytag('Change Password','',  
                                          'onLoad="init();"');  
     $r->print(<<ENDFORM);      $r->print(<<ENDFORM);
 </head>  
 $bodytag  
   
 <script language="JavaScript">  <script language="JavaScript">
   
     function send() {      function send() {
Line 706  sub handler { Line 655  sub handler {
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
     #      #
     if ($ENV{'form.action'} eq 'changepass') {      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  &passwordchanger($r);                                              ['action']);
     } elsif ($ENV{'form.action'} eq 'verify_and_change_pass') {      #
  &verify_and_change_password($r);      &Apache::lonhtmlcommon::clear_breadcrumbs();
     } elsif ($ENV{'form.action'} eq 'changescreenname') {      &Apache::lonhtmlcommon::add_breadcrumb
         &screennamechanger($r);          ({href => '/adm/preferences',
     } elsif ($ENV{'form.action'} eq 'verify_and_change_screenname') {            text => 'Set User Preferences'});
         &verify_and_change_screenname($r);  
     } elsif ($ENV{'form.action'} eq 'changemsgforward') {      my @Options;
         &msgforwardchanger($r);      # Determine current authentication method
     } elsif ($ENV{'form.action'} eq 'verify_and_change_msgforward') {      my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
         &verify_and_change_msgforward($r);      if ($currentauth =~ /^(unix|internal):/) {
     } elsif ($ENV{'form.action'} eq 'changecolors') {          push (@Options,({ action   => 'changepass',
         &colorschanger($r);                            linktext => 'Change password',
     } elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {                            href     => '/adm/preferences',
         &verify_and_change_colors($r);                            help     => 'Change_Password',
     } elsif ($ENV{'form.action'} eq 'changelanguages') {                            subroutine => \&passwordchanger,
         &languagechanger($r);                            breadcrumb => 
     } elsif ($ENV{'form.action'} eq 'verify_and_change_languages') {                                { href => '/adm/preferences?action=changepass',
         &verify_and_change_languages($r);                                  text => 'Change Password'},
     } elsif ($ENV{'form.action'} eq 'debugtoggle') {                            },
  if (($ENV{'user.name'} eq 'albertel' ) ||                          { action => 'verify_and_change_pass',
             ($ENV{'user.name'} eq 'kortemey' ) ||                            subroutine => \&verify_and_change_password,
             ($ENV{'user.name'} eq 'korte')) {                            breadcrumb => 
     if ($ENV{'user.debug'}) {                                { href =>'/adm/preferences?action=changepass',
  &Apache::lonnet::delenv('user\.debug');                                  text => 'Change Password'},
     } else {                            printmenu => 'yes',
  &Apache::lonnet::appenv('user.debug' => 1);                            }));
     }      }
  }      push (@Options,({ action   => 'changescreenname',
     } else {                        linktext => 'Change Screen Name',
  my %help=();                        href     => '/adm/preferences',
  foreach ('Change_Colors','Change_Password',                        help     => 'Prefs_Screen_Name_Nickname',
  'Prefs_Screen_Name_Nickname','Prefs_Forwarding') {                        subroutine => \&screennamechanger,
     $help{$_}=&Apache::loncommon::help_open_topic($_);                        breadcrumb => 
  }                            { href => '/adm/preferences?action=changescreenname',
  $r->print(<<ENDHEADER);                              text => 'Change Screen Name'},
                         },
                       { action   => 'verify_and_change_screenname',
                         subroutine => \&verify_and_change_screenname,
                         breadcrumb => 
                             { href => '/adm/preferences?action=changescreenname',
                               text => 'Change Screen Name'},
                         printmenu => 'yes',
                         }));
   
       push (@Options,({ action   => 'changemsgforward',
                         linktext => 'Change Message Forwarding',
                         text     => 'and Notification Addresses',
                         href     => '/adm/preferences',
                         help     => 'Prefs_Forwarding',
                         breadcrumb => 
                             { href => '/adm/preferences?action=changemsgforward',
                               text => 'Change Message Forwarding'},
                         subroutine => \&msgforwardchanger,
                         },
                       { action => 'verify_and_change_msgforward',
                         breadcrumb => 
                             { href => '/adm/preferences?action=changemsgforward',
                               text => 'Change Message Forwarding'},
                         printmenu => 'yes',
                         subroutine => \&verify_and_change_msgforward }));
       my $aboutmeaction=
           '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';
       push (@Options,{ action => 'none', 
                        linktext =>
                            q{Edit the 'About Me' personal information screen},
                        href => $aboutmeaction});
       push (@Options,({ action => 'changecolors',
                         linktext => 'Change Color Scheme',
                         href => '/adm/preferences',
                         help => 'Change_Colors',
                         breadcrumb => 
                             { href => '/adm/preferences?action=changecolors',
                               text => 'Change Colors'},
                         subroutine => \&colorschanger,
                     },
                       { action => 'verify_and_change_colors',
                         breadcrumb => 
                             { href => '/adm/preferences?action=changecolors',
                               text => 'Change Colors'},
                         printmenu => 'yes',
                         subroutine => \&verify_and_change_colors,
                         }));
       push (@Options,({ action => 'changelanguages',
                         linktext => 'Change Language Prefences',
                         href => '/adm/preferences',
                         breadcrumb=>
                             { href => '/adm/preferences?action=changelanguages',
                               text => 'Change Language'},
                         subroutine =>  \&languagechanger,
                     },
                       { action => 'verify_and_change_languages',
                         breadcrumb=>
                             {href => '/adm/preferences?action=changelanguages',
                              text => 'Change Language'},
                         printmenu => 'yes',
                         subroutine=>\&verify_and_change_languages, }
                       ));
       if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) {
           push (@Options,({ action => 'debugtoggle',
                             printmenu => 'yes',
                             subroutine => \&toggle_debug,
                             }));
       }
       $r->print(<<ENDHEADER);
 <html>  <html>
 <head>  <head>
 <title>LON-CAPA Preferences</title>  <title>LON-CAPA Preferences</title>
 </head>  </head>
 ENDHEADER  ENDHEADER
         $r->print(&Apache::loncommon::bodytag('Change Your Preferences'));      my $call = undef;
  # Determine current authentication method      my $printmenu = 'yes';
  my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);      foreach my $option (@Options) {
  if ($currentauth =~ /^(unix|internal):/) {          if ($option->{'action'} eq $ENV{'form.action'}) {
     $r->print(<<ENDPASSWORDFORM);              &Apache::lonnet::logthis('got action '.$option->{'action'});
 <form name="client" action="/adm/preferences" method="post">              $call = $option->{'subroutine'};
 <input type="hidden" name="action" value="changepass" />              $printmenu = $option->{'printmenu'};
 <input type="submit" value="Change password" />              if (exists($option->{'breadcrumb'})) {
 $help{'Change_Password'}                  &Apache::lonhtmlcommon::add_breadcrumb
 </form>                      ($option->{'breadcrumb'});
 ENDPASSWORDFORM              }
         }          }
 # Change screen name      }
     $r->print(<<ENDSCREENNAMEFORM);      $r->print(&Apache::loncommon::bodytag('Change Preferences'));
 <form name="client" action="/adm/preferences" method="post">      $r->print(&Apache::lonhtmlcommon::breadcrumbs
 <input type="hidden" name="action" value="changescreenname" />                (undef,'Change Preferences'));
 <input type="submit"       if (defined($call)) {
 value="Change nickname and anonymous discussion screen name" />          $call->($r);
 $help{'Prefs_Screen_Name_Nickname'}      }
 </form>      if ($printmenu eq 'yes') {
 ENDSCREENNAMEFORM          my $optionlist = '<table cellpadding="5">';
     $r->print(<<ENDMSGFORWARDFORM);          if ($ENV{'user.name'} =~ 
 <form name="client" action="/adm/preferences" method="post">                           /^(albertel|koretemey|korte|hallmat3|turtle)$/
 <input type="hidden" name="action" value="changemsgforward" />              ) {
 <input type="submit" value="Change message forwarding and notification addresses" />              push (@Options,({ action => 'debugtoggle',
 $help{'Prefs_Forwarding'}                                linktext => 'Toggle Debug Messages',
 </form>                                text => 'Current Debug status is -'.
 ENDMSGFORWARDFORM                                    $ENV{'user.debug'}.'-.',
 # The "about me" page                                href => '/adm/preferences',
  my $aboutmeaction=                                printmenu => 'yes',
     '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';                                subroutine => \&toggle_debug,
  $r->print(<<ENDABOUTME);                                }));
 <form name="client" action="$aboutmeaction" method="post">          }
 <input type="hidden" name="action" value="changescreenname" />          foreach my $option(@Options) {
 <input type="submit" value="Edit the 'About Me' personal information screen" />              my $optiontext = '';
 </form>              if (exists($option->{'href'})) {
 ENDABOUTME                  $optiontext .= 
     $r->print(<<ENDCOLORFORM);                      '<a href="'.$option->{'href'}.
 <form name="client" action="/adm/preferences" method="post">                      '?action='.$option->{'action'}.'">'.
 <input type="hidden" name="action" value="changecolors" />                      $option->{'linktext'}.'</a>';
 <input type="submit" value="Change color scheme" />              }
 $help{'Change_Colors'}              if (exists($option->{'text'})) {
 </form>                  $optiontext .= ' '.$option->{'text'};
 ENDCOLORFORM              }
               if ($optiontext ne '') {
     $r->print(<<ENDLANGUAGES);                  $optiontext = '<font size="+1">'.$optiontext.'</font>'; 
 <form name="client" action="/adm/preferences" method="post">                  my $helplink = '&nbsp;';
 <input type="hidden" name="action" value="changelanguages" />                  if (exists($option->{'help'})) {
 <input type="submit" value="Change language preferences" />                      $helplink = &Apache::loncommon::help_open_topic
 </form>                                                      ($option->{'help'});
 ENDLANGUAGES                  }
                   $optionlist .= '<tr>'.
  if (($ENV{'user.name'} eq 'albertel' ) ||                      '<td>'.$helplink.'</td>'.
             ($ENV{'user.name'} eq 'kortemey' ) ||                      '<td>'.$optiontext.'</td>'.
             ($ENV{'user.name'} eq 'korte')) {                      '</tr>';
     $r->print(<<ENDDEBUG);              }
 <form name="client" action="/adm/preferences" method="post">          }
 <input type="hidden" name="action" value="debugtoggle" />          $optionlist .= '</table>';
 <input type="submit" value="Toggle Debug" />          $r->print($optionlist);
 Current Debug status is -$ENV{'user.debug'}-.  
 </form>  
 ENDDEBUG  
  }  
  # Other preference setting code should be added here  
     }      }
     $r->print(<<ENDFOOTER);      $r->print(<<ENDFOOTER);
 </body>  </body>
Line 820  ENDFOOTER Line 833  ENDFOOTER
     return OK;      return OK;
 }  }
   
   sub toggle_debug {
       if ($ENV{'user.debug'}) {
           &Apache::lonnet::delenv('user\.debug');
       } else {
           &Apache::lonnet::appenv('user.debug' => 1);
       }
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.34  
changed lines
  Added in v.1.35

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