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

Diff for /loncom/interface/lonpreferences.pm between versions 1.20 and 1.26

version 1.20, 2003/04/19 01:42:34 version 1.26, 2003/07/05 10:07:11
Line 50  use Apache::File; Line 50  use Apache::File;
 use Crypt::DES;  use Crypt::DES;
 use DynaLoader; # for Crypt::DES version  use DynaLoader; # for Crypt::DES version
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonhtmlcommon();
   
 #  #
 # Write lonnet::passwd to do the call below.  # Write lonnet::passwd to do the call below.
Line 179  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");
     $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 272  ENDVCMSG Line 277  ENDVCMSG
 sub colorschanger {  sub colorschanger {
     my $r = shift;      my $r = shift;
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                     'Change Color Scheme for Current Role Type');                      '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 294  sub colorschanger { Line 300  sub colorschanger {
                     'vlink' => 'Visited Link',                      'vlink' => 'Visited Link',
                     'alink' => 'Active Link');                      'alink' => 'Active Link');
     my $chtable='';      my $chtable='';
     foreach my $item (keys %colortypes) {      foreach my $item (sort(keys(%colortypes))) {
        my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);         my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
        $chtable.='<tr><td>'.$colortypes{$item}.'</td><td bgcolor="'.$curcol.         $chtable.='<tr><td>'.$colortypes{$item}.'</td><td bgcolor="'.$curcol.
         '">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td><td><input name="'.$item.          '">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td><td><input name="'.$item.
         '" size="8" value="'.$curcol.          '" size="10" value="'.$curcol.
 '" /></td><td><a href="javascript:pjump('."'color','".$colortypes{$item}.  '" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}.
 "','".$curcol."','"  "','".$curcol."','"
     .$item."','".$item."','psub'".');">Select</a></td></tr>';      .$item."','parmform.pres','psub'".');">Select</a></td></tr>';
     }      }
       my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     $r->print(<<ENDCOL);      $r->print(<<ENDCOL);
 <html>  <html>
 <script>  <script>
Line 313  sub colorschanger { Line 320  sub colorschanger {
         parmwin.close();          parmwin.close();
     }      }
   
     function pjump(type,dis,value,marker,ret,call) {      $pjump_def
         parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)  
                  +"&value="+escape(value)+"&marker="+escape(marker)  
                  +"&return="+escape(ret)  
                  +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
   
     }  
   
     function psub() {      function psub() {
         pclose();          pclose();
         if (document.parmform.pres_marker.value!='') {          if (document.parmform.pres_marker.value!='') {
             document.parmform.action+='#'+document.parmform.pres_marker.value;              if (document.parmform.pres_type.value!='') {
             var typedef=new Array();                  eval('document.server.'+
             typedef=document.parmform.pres_type.value.split('_');                       document.parmform.pres_marker.value+
            if (document.parmform.pres_type.value!='') {  
             if (typedef[0]=='date') {  
                 eval('document.parmform.recent_'+  
                      document.parmform.pres_type.value+  
      '.value=document.parmform.pres_value.value;');       '.value=document.parmform.pres_value.value;');
             } else {      }
                 eval('document.parmform.recent_'+typedef[0]+  
      '.value=document.parmform.pres_value.value;');  
             }  
    }  
             document.parmform.submit();  
         } else {          } else {
             document.parmform.pres_value.value='';              document.parmform.pres_value.value='';
             document.parmform.pres_marker.value='';              document.parmform.pres_marker.value='';
Line 348  sub colorschanger { Line 339  sub colorschanger {
   
 </script>  </script>
 $bodytag  $bodytag
   <form name="parmform">
   <input type="hidden" name="pres_marker" />
   <input type="hidden" name="pres_type" />
   <input type="hidden" name="pres_value" />
   </form>
 <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_colors" />  <input type="hidden" name="action" value="verify_and_change_colors" />
 <table border="2">  <table border="2">
 $chtable  $chtable
 </table>  </table>
 <input type="submit" value="Change" />  <input type="submit" value="Change Custom Colors" />
   <input type="submit" name="resetall" value="Reset All Colors to Default" />
 </form>  </form>
 </body>  </body>
 </html>  </html>
Line 385  sub verify_and_change_colors { Line 381  sub verify_and_change_colors {
                     'alink' => 'Active Link');                      'alink' => 'Active Link');
   
     my $message='';      my $message='';
 #    my $newscreen='';      foreach my $item (keys %colortypes) {
 #    $newscreen=~s/\,$//;          my $color=$ENV{'form.'.$item};
 #    if ($newscreen) {          my $entry='color.'.$function.'.'.$item;
 #        &Apache::lonnet::put('environment',{'msgforward' => $newscreen});   if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$ENV{'form.resetall'})) {
 #        &Apache::lonnet::appenv('environment.msgforward' => $newscreen);      &Apache::lonnet::put('environment',{$entry => $color});
 #        $message.='Set new message forwarding to '.$newscreen.'<br />';      &Apache::lonnet::appenv('environment.'.$entry => $color);
 #    } else {      $message.='Set '.$colortypes{$item}.' to '.$color.'<br />';
 #        &Apache::lonnet::del('environment',['msgforward']);   } else {
 #        &Apache::lonnet::delenv('environment\.msgforward');      &Apache::lonnet::del('environment',[$entry]);
 #        $message.='Reset message forwarding<br />';      &Apache::lonnet::delenv('environment\.'.$entry);
 #    }      $message.='Reset '.$colortypes{$item}.'<br />';
    }
       }
     my $bodytag=&Apache::loncommon::bodytag(      my $bodytag=&Apache::loncommon::bodytag(
                            'Change Color Scheme for Current Role Type');                             'Change Color Scheme for Current Role Type');
     $r->print(<<ENDVCCOL);      $r->print(<<ENDVCCOL);
Line 404  sub verify_and_change_colors { Line 401  sub verify_and_change_colors {
 $bodytag  $bodytag
 </p>  </p>
 $message  $message
   <form name="client" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="changecolors" />
   <input type="submit" value="Revise color scheme again" />
   </form>
 </body></html>  </body></html>
 ENDVCCOL  ENDVCCOL
 }  }
Line 654  sub handler { Line 655  sub handler {
     } elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {      } elsif ($ENV{'form.action'} eq 'verify_and_change_colors') {
         &verify_and_change_colors($r);          &verify_and_change_colors($r);
     } elsif ($ENV{'form.action'} eq 'debugtoggle') {      } elsif ($ENV{'form.action'} eq 'debugtoggle') {
  if ($ENV{'user.name'} eq 'albertel' ) {   if (($ENV{'user.name'} eq 'albertel' ) ||
               ($ENV{'user.name'} eq 'kortemey' ) ||
               ($ENV{'user.name'} eq 'korte')) {
     if ($ENV{'user.debug'}) {      if ($ENV{'user.debug'}) {
  &Apache::lonnet::delenv('user\.debug');   &Apache::lonnet::delenv('user\.debug');
     } else {      } else {
Line 709  ENDABOUTME Line 712  ENDABOUTME
 </form>  </form>
 ENDCOLORFORM  ENDCOLORFORM
   
  if ($ENV{'user.name'} eq 'albertel') {   if (($ENV{'user.name'} eq 'albertel' ) ||
               ($ENV{'user.name'} eq 'kortemey' ) ||
               ($ENV{'user.name'} eq 'korte')) {
     $r->print(<<ENDDEBUG);      $r->print(<<ENDDEBUG);
 <form name="client" action="/adm/preferences" method="post">  <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="debugtoggle" />  <input type="hidden" name="action" value="debugtoggle" />
Removed from v.1.20  
changed lines
  Added in v.1.26

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