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

Diff for /loncom/interface/lonpreferences.pm between versions 1.178 and 1.179.2.1

version 1.178, 2009/10/23 15:03:48 version 1.179.2.1, 2009/12/07 04:23:32
Line 166  sub languagechanger { Line 166  sub languagechanger {
                = &Apache::loncommon::plainlanguagedescription($_);                 = &Apache::loncommon::plainlanguagedescription($_);
  }   }
     }      }
     my $selectionbox=&Apache::loncommon::select_form($language,'language',      my $selectionbox=
      %langchoices);             &Apache::loncommon::select_form(
                  $language,
                  'language',
                  &Apache::lonlocal::texthash(%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 221  sub texenginechanger { Line 224  sub texenginechanger {
      'mimetex' => 'mimetex (Convert to Images)',       'mimetex' => 'mimetex (Convert to Images)',
                      'raw' => 'Raw (Screen Reader)'                       'raw' => 'Raw (Screen Reader)'
                      );                       );
     my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine',      my $selectionbox=
      %mathchoices);             &Apache::loncommon::select_form(
                  $texengine,
                  'texengine',
                  &Apache::lonlocal::texthash(%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 1877  my @menu= Line 1883  my @menu=
     },      },
     { categorytitle=>'Content Display Settings',      { categorytitle=>'Content Display Settings',
  items =>[   items =>[
     { linktext => 'Language',  
  url => '/adm/preferences?action=changelanguages',  
  permission => 'F',  
  #help => 'Prefs_Language',  
  icon => 'preferences-desktop-locale.png',  
  linktitle => 'Choose the default language for this user.'  
     },  
     { linktext => 'WYSIWYG Editor',      { linktext => 'WYSIWYG Editor',
  url => '/adm/preferences?action=changewysiwyg',   url => '/adm/preferences?action=changewysiwyg',
  permission => 'F',   permission => 'F',
Line 1891  my @menu= Line 1890  my @menu=
  icon => 'edit-select-all.png',   icon => 'edit-select-all.png',
  linktitle => 'Enable or disable the WYSIWYG-Editor.'   linktitle => 'Enable or disable the WYSIWYG-Editor.'
     },      },
     { linktext => $role.' Page',  
  url => '/adm/preferences?action=changerolespref',  
  permission => 'F',  
  #help => '',  
  icon => 'sctr.png',  
  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',
Line 1926  my @menu= Line 1918  my @menu=
  ]   ]
     },      },
     { categorytitle=>'Other',      { categorytitle=>'Other',
  items =>[   items =>[]
     { linktext => 'Register Response Devices (&quot;Clickers&quot;)',  
  url => '/adm/preferences?action=changeclicker',  
  permission => 'F',  
  #help => '',  
  icon => 'network-workgroup.png',  
  linktitle => 'Register your clicker.'  
     },  
  ]  
     },      },
     );      );
   
Line 1948  push(@{ $menu[0]->{items} }, { Line 1932  push(@{ $menu[0]->{items} }, {
  linktitle => 'Change your password.',   linktitle => 'Change your password.',
  });   });
     }      }
     if ($env{'environment.remote'} eq 'off') {  
 push(@{ $menu[1]->{items} }, {  
  linktext => 'Launch Remote Control',  
  url => '/adm/remote?url=/adm/preferences&amp;action=launch',  
  permission => 'F',  
  #help => '',  
  icon => 'remotecontrol.png',  
  linktitle => 'Launch the remote control for LON-CAPA.',  
  });  
     }else{  
 push(@{ $menu[1]->{items} }, {  
  linktext => 'Collapse Remote Control',  
  url => '/adm/remote?url=/adm/preferences&amp;action=collapse',  
  permission => 'F',  
  #help => '',  
  icon => 'remotecontrol.png',  
  linktitle => 'Collapse the remote control for LON-CAPA.',  
  });  
     }  
     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} }, {
Removed from v.1.178  
changed lines
  Added in v.1.179.2.1

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