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

Diff for /loncom/interface/lonpreferences.pm between versions 1.184 and 1.186.2.4

version 1.184, 2010/03/10 20:36:01 version 1.186.2.4, 2010/08/15 00:10:08
Line 117  sub wysiwygchanger { Line 117  sub wysiwygchanger {
     my $switchon=&mt('Enable WYSIWYG editor');      my $switchon=&mt('Enable WYSIWYG editor');
     my $warning='';      my $warning='';
     if ($env{'user.adv'}) {      if ($env{'user.adv'}) {
        $warning.="<p>".&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>";         $warning.='<p class="LC_warning">'.&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>";
     }      }
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" action="/adm/preferences" method="post">
Line 166  sub languagechanger { Line 166  sub languagechanger {
                = &Apache::loncommon::plainlanguagedescription($_);                 = &Apache::loncommon::plainlanguagedescription($_);
  }   }
     }      }
       %langchoices = &Apache::lonlocal::texthash(%langchoices);
     my $selectionbox=      my $selectionbox=
            &Apache::loncommon::select_form(             &Apache::loncommon::select_form(
                $language,                 $language,
                'language',                 'language',
                &Apache::lonlocal::texthash(%langchoices));                 \%langchoices);
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" 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" />
Line 229  sub texenginechanger { Line 230  sub texenginechanger {
      'mimetex' => 'mimetex (Convert to Images)',       'mimetex' => 'mimetex (Convert to Images)',
                      'raw' => 'Raw (Screen Reader)'                       'raw' => 'Raw (Screen Reader)'
                      );                       );
       %mathchoices = &Apache::lonlocal::texthash(%mathchoices);
     my $selectionbox=      my $selectionbox=
            &Apache::loncommon::select_form(             &Apache::loncommon::select_form(
                $texengine,                 $texengine,
                'texengine',                 'texengine',
                &Apache::lonlocal::texthash(%mathchoices));                 \%mathchoices);
     my $jsMath_start=&Apache::lontexconvert::jsMath_header();      my $jsMath_start=&Apache::lontexconvert::jsMath_header();
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
       'headline' => 'Change how math is displayed',        'headline' => 'Change how math is displayed',
Line 589  sub verify_and_change_screenname { Line 591  sub verify_and_change_screenname {
 }  }
   
 ################################################################  ################################################################
 #                     Icon Subroutines                         #  
 ################################################################  
 sub iconchanger {  
     my $r = shift;  
     &Apache::lonhtmlcommon::add_breadcrumb(  
     { href => '/adm/preferences?action=changeicons',  
                 text => 'Change Main Menu'});  
     $r->print(Apache::loncommon::start_page('Page Display Settings'));  
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Main Menu'));  
   
     my $user       = $env{'user.name'};  
     my $domain     = $env{'user.domain'};  
     my %userenv = &Apache::lonnet::get  
         ('environment',['icons']);  
     my $iconic='checked="checked"';  
     my $classic='';  
     my $onlyicon='';  
     if ($userenv{'icons'} eq 'classic') {  
        $classic='checked="checked"';  
        $iconic='';  
     }  
     if ($userenv{'icons'} eq 'iconsonly') {  
        $onlyicon='checked="checked"';  
        $iconic='';  
     }  
     my $useicons=&mt('Use icons and text');  
     my $usebuttons=&mt('Use buttons and text');  
     my $useicononly=&mt('Use icons only');  
     my $change=&mt('Save');  
     $r->print(<<ENDSCREEN);  
 <form name="prefs" action="/adm/preferences" method="post">  
 <input type="hidden" name="action" value="verify_and_change_icons" />  
 <label><input type="radio" name="menumode" value="iconic" $iconic /> $useicons</label><br />  
 <label><input type="radio" name="menumode" value="classic" $classic /> $usebuttons</label><br />  
 <label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $useicononly</label><br />  
 <input type="submit" value="$change" />  
 </form>  
 ENDSCREEN  
 }  
   
 sub verify_and_change_icons {  
     my $r = shift;  
     my $user       = $env{'user.name'};  
     my $domain     = $env{'user.domain'};  
     my $newicons   = $env{'form.menumode'};  
   
     &Apache::lonnet::put('environment',{'icons' => $newicons});  
     &Apache::lonnet::appenv({'environment.icons' => $newicons});  
     my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Menu Display').'</i>','<tt>'.$newicons.'</tt>'));  
     $message=&Apache::loncommon::confirmwrapper($message);  
     &print_main_menu($r, $message);  
 }  
   
 ################################################################  
 #                     Clicker Subroutines                      #  #                     Clicker Subroutines                      #
 ################################################################  ################################################################
   
Line 1842  sub verify_and_change_coursepage { Line 1790  sub verify_and_change_coursepage {
     &print_main_menu($r,$message);      &print_main_menu($r,$message);
 }  }
   
   sub lockednameschanger {
       my $r = shift;
       &Apache::lonhtmlcommon::add_breadcrumb(
               {   href => '/adm/preferences?action=changelockednames',
                   text => 'Automatic name changes'});
       $r->print(Apache::loncommon::start_page('Automatic name changes'));
       $r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates'));
       my %userenv = &Apache::lonnet::get('environment',['lockedname']);
       my $lockedname='';
       if (&can_toggle_namelocking()) {
           if ($userenv{'lockedname'}) {
               $lockedname = ' checked="checked"';
           }
           my %updateable;
           my %domconfig =
               &Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'});
           if (ref($domconfig{'autoupdate'}) eq 'HASH') {
               if ($domconfig{'autoupdate'}{'run'}) {
                   my @inststatuses = split(':',$env{'environment.inststatus'});
                   unless (@inststatuses) {
                       @inststatuses = ('default');
                   }
                   %updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses);
               }
           }
           if (keys(%updateable)) {
               my %longnames = &Apache::lonlocal::texthash (
                                   firstname  => 'First Name',
                                   middlename => 'Middle Name',
                                   lastname   => 'Last Name',
                               );
               my $text=&mt('By default, based on your institutional affiliation, your LON-CAPA account can be automatically updated nightly based on directory information from your institution.').'<br />'.&mt('The following may be updated, unless you disallow updates:').
                        '<ul>';
              foreach my $item ('firstname','middlename','lastname') {
                  if ($updateable{$item}) {
                      $text .= '<li>'.$longnames{$item}.'</li>';
                  }
              }
              $text .= '</ul>'; 
              my $locking=&mt('Disallow automatic updates to name information for your LON-CAPA account');
              my $change=&mt('Save');
              $r->print(<<ENDSCREEN);
   <form name="prefs" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_lockednames" />
   $text<br />
   <label><input type="checkbox" value="1" name="lockednames"$lockedname />$locking</label><br />
   <input type="submit" value="$change" />
   </form>
   ENDSCREEN
           } else {
               my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.');
               &print_main_menu($r,$message);
           }
       } else {
           my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.');
           &print_main_menu($r,$message);
       }
   }
   
   sub verify_and_change_lockednames {
       my $r = shift;
       my $message;
       if (&can_toggle_namelocking()) {
           my $newlockedname = $env{'form.lockednames'};
           $newlockedname =~ s/\D//g;
           my $currlockedname = $env{'environment.lockedname'};
           if ($newlockedname ne $currlockedname) {
               if ($newlockedname) {
                   if (&Apache::lonnet::put('environment',{lockedname => $newlockedname}) eq 'ok') {
                       &Apache::lonnet::appenv({'environment.lockedname' => $newlockedname});
                   }
               } elsif (&Apache::lonnet::del('environment',['lockedname']) eq 'ok') {
                   &Apache::lonnet::delenv('environment.lockedname');
               }
           }
           my $status='';
           if ($newlockedname) {
               $status=&mt('disallowed');
           } else {
               $status=&mt('allowed');
           }
           $message=&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]','<i>'.&mt('Automatic update of first, middle and last names if institutional directory information indicates changes').'</i>','<tt>'.$status.'</tt>'));
           $message=&Apache::loncommon::confirmwrapper($message);
       }
       &print_main_menu($r,$message);
   }
   
 sub print_main_menu {  sub print_main_menu {
     my ($r, $message) = @_;      my ($r, $message) = @_;
     # Determine current authentication method      # Determine current authentication method
Line 1875  my @menu= Line 1910  my @menu=
     },      },
  ]   ]
     },      },
     { categorytitle=>'Page Display Settings',  
  items =>[  
     { linktext => 'Color Scheme',  
  url => '/adm/preferences?action=changecolors',  
  permission => 'F',  
  #help => 'Change_Colors',  
  icon => 'preferences-desktop-theme.png',  
  linktitle => 'Change LON-CAPA default colors.'  
     },  
     { linktext => 'Menu Display',  
  url => '/adm/preferences?action=changeicons',  
  permission => 'F',  
  #help => '',  
  icon => 'preferences-system-windows.png',  
  linktitle => 'Change whether the menus are displayed with buttons, icons or icons and text.'  
     }  
   
  ]  
     },  
     { categorytitle=>'Content Display Settings',      { categorytitle=>'Content Display Settings',
  items =>[   items =>[
     { linktext => 'Language',      { linktext => 'Language',
Line 1907  my @menu= Line 1923  my @menu=
  url => '/adm/preferences?action=changerolespref',   url => '/adm/preferences?action=changerolespref',
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'sctr.png',   icon => 'role_hotlist.png',
  linktitle => 'Configure the roles hotlist.'   linktitle => 'Configure the roles hotlist.'
     },      },
     { linktext => 'Math display settings',      { linktext => 'Math display settings',
  url => '/adm/preferences?action=changetexenginepref',   url => '/adm/preferences?action=changetexenginepref',
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'stat.png',   icon => 'dismath.png',
  linktitle => 'Change how math is displayed.'   linktitle => 'Change how math is displayed.'
     },      },
  ]   ]
     },      },
       { categorytitle=>'Page Display Settings',
    items =>[
       { linktext => 'Color Scheme',
    url => '/adm/preferences?action=changecolors',
    permission => 'F',
    #help => 'Change_Colors',
    icon => 'preferences-desktop-theme.png',
    linktitle => 'Change LON-CAPA default colors.'
       },
    ]
       },
     { categorytitle=>'Messages &amp; Notifications',      { categorytitle=>'Messages &amp; Notifications',
  items =>[   items =>[
     { linktext => 'Messages &amp; Notifications',      { linktext => 'Messages &amp; Notifications',
Line 1962  push(@{ $menu[0]->{items} }, { Line 1989  push(@{ $menu[0]->{items} }, {
     }      }
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
 push(@{ $menu[1]->{items} }, {  push(@{ $menu[1]->{items} }, {
  linktext => 'Launch Remote Control',          linktext => 'Launch Remote Control',
  url => '/adm/remote?url=/adm/preferences&amp;action=launch',          url => '/adm/remote?url=/adm/preferences&amp;action=launch',
  permission => 'F',          permission => 'F',
  #help => '',          #help => '',
  icon => 'remotecontrol.png',          icon => 'remotecontrol.png',
  linktitle => 'Launch the remote control for LON-CAPA.',          linktitle => 'Launch the remote control for LON-CAPA.',
  });          });
     }else{      }else{
 push(@{ $menu[1]->{items} }, {  push(@{ $menu[1]->{items} }, {
  linktext => 'Collapse Remote Control',          linktext => 'Collapse Remote Control',
  url => '/adm/remote?url=/adm/preferences&amp;action=collapse',          url => '/adm/remote?url=/adm/preferences&amp;action=collapse',
  permission => 'F',          permission => 'F',
  #help => '',          #help => '',
  icon => 'remotecontrol.png',          icon => 'remotecontrol.png',
  linktitle => 'Collapse the remote control for LON-CAPA.',          linktitle => 'Collapse the remote control for LON-CAPA.',
  });          });
     }      }
   
   
       if (&can_toggle_namelocking()) {
           push(@{ $menu[0]->{items} }, {
           linktext => 'Automatic name changes',
           url => '/adm/preferences?action=changelockednames',
           permission => 'F',
           #help => '',
           icon => 'system-lock-screen.png',
           linktitle => 'Allow/disallow propagation of name changes from institutional directory service',
           });
       }
   
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[4]->{items} }, {
Line 1999  push(@{ $menu[4]->{items} }, { Line 2039  push(@{ $menu[4]->{items} }, {
  url => '/adm/preferences?action=changecourseinit',   url => '/adm/preferences?action=changecourseinit',
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'edit-copy.png',   icon => 'course_ini.png',
  linktitle => 'Set the default page to be displayed when you select a course role.',   linktitle => 'Set the default page to be displayed when you select a course role.',
  });   });
   
Line 2013  push(@{ $menu[4]->{items} }, { Line 2053  push(@{ $menu[4]->{items} }, {
  icon => 'blog.png',   icon => 'blog.png',
  linktitle => 'Toggle Debug Messages.',   linktitle => 'Toggle Debug Messages.',
  });   });
     }         }
   
     $r->print(&Apache::loncommon::start_page('My Space'));      $r->print(&Apache::loncommon::start_page('My Space'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));
Line 2084  sub handler { Line 2124  sub handler {
         &texenginechanger($r);          &texenginechanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_texengine'){      }elsif($env{'form.action'} eq 'verify_and_change_texengine'){
         &verify_and_change_texengine($r);          &verify_and_change_texengine($r);
     }elsif($env{'form.action'} eq 'changeicons'){  
         &iconchanger($r);  
     }elsif($env{'form.action'} eq 'verify_and_change_icons'){  
         &verify_and_change_icons($r);  
     }elsif($env{'form.action'} eq 'changeclicker'){      }elsif($env{'form.action'} eq 'changeclicker'){
         &clickerchanger($r);          &clickerchanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_clicker'){      }elsif($env{'form.action'} eq 'verify_and_change_clicker'){
Line 2109  sub handler { Line 2145  sub handler {
             &toggle_debug();              &toggle_debug();
         }          }
  &print_main_menu($r);   &print_main_menu($r);
       } elsif ($env{'form.action'} eq 'changelockednames') {
           &lockednameschanger($r);
       } elsif ($env{'form.action'} eq 'verify_and_change_lockednames') {
           &verify_and_change_lockednames($r);
     }      }
   
     # Properly end the HTML page of all preference pages      # Properly end the HTML page of all preference pages
Line 2141  sub can_toggle_debug { Line 2181  sub can_toggle_debug {
     return $can_toggle;      return $can_toggle;
 }  }
   
   sub can_toggle_namelocking {
       my $lockablenames;
       my %domconfig =
           &Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'});
       if (ref($domconfig{'autoupdate'}) eq 'HASH') {
           if ($domconfig{'autoupdate'}{'run'}) {
               my @inststatuses = split(':',$env{'environment.inststatus'});
               unless (@inststatuses) {
                   @inststatuses = ('default');
               }
               my %updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses);
               if ($updateable{'lastname'} || $updateable{'firstname'} ||
                   $updateable{'middlename'}) { 
                   if (ref($domconfig{'autoupdate'}{'lockablenames'}) eq 'ARRAY') {
                       unless (@inststatuses) {
                           @inststatuses = ('default');
                       }
                       foreach my $status (@inststatuses) {
                           if (grep(/^\Q$status\E$/,@{$domconfig{'autoupdate'}{'lockablenames'}})) {
                               $lockablenames = 1;
                               last;
                           }
                       }
                   }
               }
           }
       }
       return $lockablenames;
   }
   
   sub updateable_userinfo {
       my ($autoupdate,$inststatuses) = @_;
       my %updateable;
       return %updateable unless ((ref($autoupdate) eq 'HASH') && 
                                  (ref($inststatuses) eq 'ARRAY'));
       if (ref($autoupdate->{'fields'}) eq 'HASH') {
           foreach my $status (@{$inststatuses}) {
               if (ref($autoupdate->{'fields'}{$status}) eq 'ARRAY') {
                   foreach my $field (@{$autoupdate->{'fields'}{$status}}) {
                       $updateable{$field} = 1;
                   }
               }
           }
       }
       return %updateable;
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.184  
changed lines
  Added in v.1.186.2.4

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