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

Diff for /loncom/interface/lonpreferences.pm between versions 1.196.4.28.2.6 and 1.196.4.29

version 1.196.4.28.2.6, 2024/03/03 01:57:35 version 1.196.4.29, 2024/07/04 23:13:07
Line 31 Line 31
 package Apache::lonpreferences;  package Apache::lonpreferences;
   
 use strict;  use strict;
   use LONCAPA;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::File;  use Apache::File;
 use Apache::loncommon();  use Apache::loncommon();
Line 39  use Apache::lonlocal; Line 40  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
 use LONCAPA::lonauthcgi();  use LONCAPA::lonauthcgi();
 use LONCAPA();  use LONCAPA();
 use DateTime::TimeZone();  
   
 ################################################################  ################################################################
 #                       Handler subroutines                    #  #                       Handler subroutines                    #
Line 2043  sub author_space_settings { Line 2043  sub author_space_settings {
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
         my ($showdomdefs,$js,$args,@items);              $r->print(Apache::loncommon::start_page('Authoring Space Settings'));
         my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');              $r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings'));
         if (&expanded_authoring_settings()) {              my %userenv = &Apache::lonnet::get('environment',['nocodemirror']);
             @items = ('nocodemirror');  
             if (&daxe_permitted(\%author_roles)) {  
                 push(@items,'daxecollapse');  
             }  
             push(@items,('copyright','sourceavail'));  
             $showdomdefs = 1;  
             $js = &toggle_options_js();  
             my $onload;  
             foreach my $item (@items) {  
                 $onload .= "javascript:toggleOptions(document.prefs,'$item','user_$item');"  
             }  
             $args = { 'add_entries' => { 'onload' => $onload } };  
         }  
         $r->print(Apache::loncommon::start_page('Authoring Space Settings',$js,$args));  
         $r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings'));  
         if ($showdomdefs) {  
             my %userenv = &Apache::lonnet::get('environment',\@items);  
             my %domdefs = &Apache::lonnet::get_domain_defaults($domain);  
             my %staticdefaults = (  
                             'nocodemirror'  => '0',  
                             'daxecollapse'  => '0',  
                             'copyright'     => 'default',  
                             'sourceavail'   => 'closed',  
             );  
             my %lt = &authoring_settings_text();  
             my %titles = &authoring_settings_titles();  
             $r->print("<h3>$lt{'auss'}</h3>".  
                       '<form name="prefs" action="/adm/preferences" method="post">'."\n".  
                       '<input type="submit" value="'.$lt{'save'}.'" /><br /><hr />'."\n".  
                       '<input type="hidden" name="returnurl" value="'.$returnurl.'" />'."\n".  
                       '<input type="hidden" name="action" value="change_authoring_settings" />'."\n");  
             foreach my $item (@items) {  
                 my ($domdef,$checkeddom,$checkeduser,$domdefdisplay,$divsty,$userelem);  
                 $checkeddom = ' checked="checked"';  
                 $divsty = 'display:none';  
                 if (exists($domdefs{$item})) {  
                     $domdef = $domdefs{$item};  
                 } else {  
                     $domdef = $staticdefaults{$item};  
                 }  
                 if ($item eq 'copyright') {  
                     $domdefdisplay = &Apache::loncommon::copyrightdescription($domdef);  
                     $userelem = &selectbox('userchoice_'.$item,$userenv{$item},'',  
                                            \&Apache::loncommon::copyrightdescription,  
                                            (grep !/^priv|custom$/,(&Apache::loncommon::copyrightids)));  
                 } elsif ($item eq 'sourceavail') {  
                     $domdefdisplay = &Apache::loncommon::source_copyrightdescription($domdef);  
                     $userelem = &selectbox('userchoice_'.$item,$userenv{$item},'',  
                                            \&Apache::loncommon::source_copyrightdescription,  
                                            (&Apache::loncommon::source_copyrightids));  
                 } elsif (($item eq 'nocodemirror') || ($item eq 'daxecollapse')) {  
                     if ($domdef) {  
                         if ($item eq 'daxecollapse') {  
                             $domdefdisplay = $lt{'coll'};  
                         } else {  
                             $domdefdisplay = $lt{'yes'};  
                         }  
                     } else {  
                         if ($item eq 'daxecollapse') {  
                             $domdefdisplay = $lt{'expa'};  
                         } else {  
                             $domdefdisplay = $lt{'no'};  
                         }  
                     }  
                     my (%checked,%text);  
                     $checked{'no'} = ' checked="checked"';  
                     if ($userenv{$item} eq 'yes') {  
                         $checked{'yes'} = $checked{'no'};  
                         $checked{'no'} = '';  
                     }  
                     if ($item eq 'daxecollapse') {  
                         %text = (  
                                  yes => $lt{'coll'},  
                                  no  => $lt{'expa'},  
                                );  
                     } else {  
                         %text = (  
                                  yes => $lt{'yes'},  
                                  no  => $lt{'no'},  
                                );  
                     }  
                     $userelem = '<span class="LC_nobreak">';  
                     foreach my $choice ('yes','no') {  
                         $userelem .= '<label><input type="radio" name="userchoice_'.$item.'" value="'.$choice.'"'.  
                                      $checked{$choice}.' />'.$text{$choice}.'</label>&nbsp;&nbsp;&nbsp;';  
                     }  
                     $userelem .= '</span>';  
                 }  
                 if ($userenv{$item} ne '') {  
                     $checkeduser = $checkeddom;  
                     $checkeddom = '';  
                     $divsty = 'display:inline-block';  
                 }  
                 $r->print(<<"END");  
 <h4><span class="LC_nobreak">$titles{$item}</span></h4>  
 <p class="LC_nobreak">$lt{'curd'}: <span style="font-style:italic">$domdefdisplay</span></p>  
 <p class="LC_nobreak">  
 <label><input type="radio" name="$item" value="dom" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeddom />$lt{'used'}</label>&nbsp;&nbsp;&nbsp;  
 <label><input type="radio" name="$item" value="user" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeduser />$lt{'usyo'}</label></p>  
 <fieldset id="user_$item" style="$divsty">  
 <legend style="font-weight:normal;font-style:italic;">$lt{'ousv'}</legend>  
 $userelem  
 </fieldset><br /><hr />  
 END  
             }  
             $r->print('<input type="submit" value="'.$lt{'save'}.'" />'.  
                       '</form>'."\n");  
         } else {  
             my $constchecked='';              my $constchecked='';
             if ($env{'environment.nocodemirror'}) {              if ($env{'environment.nocodemirror'}) {
                $constchecked=' checked="checked"';                 $constchecked=' checked="checked"';
Line 2161  END Line 2053  END
             my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.');              my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.');
             my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.');              my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.');
             my $change=&mt('Save');              my $change=&mt('Save');
               my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');
             $r->print(<<ENDSCREEN);              $r->print(<<ENDSCREEN);
         <form name="prefs" action="/adm/preferences" method="post">          <form name="prefs" action="/adm/preferences" method="post">
         <input type="hidden" name="returnurl" value="$returnurl" />          <input type="hidden" name="returnurl" value="$returnurl" />
Line 2170  END Line 2063  END
         <input type="submit" value="$change" />          <input type="submit" value="$change" />
         </form>          </form>
 ENDSCREEN  ENDSCREEN
         }  
     }      }
 }  }
   
Line 2180  sub change_authoring_settings { Line 2072  sub change_authoring_settings {
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
         my $message;  
         if (!&expanded_authoring_settings()) {  
             my %ausettings=('environment.nocodemirror' => '');              my %ausettings=('environment.nocodemirror' => '');
             if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }              if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }
             &Apache::lonnet::put('environment',\%ausettings);              &Apache::lonnet::put('environment',\%ausettings);
Line 2192  sub change_authoring_settings { Line 2082  sub change_authoring_settings {
             } else {              } else {
                 $status=&mt('off');                  $status=&mt('off');
             }              }
             $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>'));              my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>'));
             $message=&Apache::loncommon::confirmwrapper($message);              $message=&Apache::loncommon::confirmwrapper($message);
         } else {              if ($env{'form.returnurl'}) {
             my @items = ('nocodemirror');                  &do_redirect($r,$env{'form.returnurl'},$message);
             if (&daxe_permitted(\%author_roles)) {  
                 push(@items,'daxecollapse');  
             }  
             push(@items,('copyright','sourceavail'));  
             my %oldsettings = &Apache::lonnet::get('environment',\@items);  
             my %domdefs = &Apache::lonnet::get_domain_defaults($domain);  
             my %lt = &authoring_settings_text();  
             my %titles = &authoring_settings_titles();  
             my ($result,%newsettings,%changes,@delete,@unchanged,@delerrors,@adderrors);  
             foreach my $item (@items) {  
                 if ($env{'form.'.$item} eq 'dom') {  
                     if ($oldsettings{$item} eq '') {  
                         push(@unchanged,$item);  
                     } else {  
                         push(@delete,$item);  
                     }  
                 } elsif ($env{'form.'.$item} eq 'user') {  
                     my $newval = $env{'form.userchoice_'.$item};  
                     my @possibles;  
                     if (($item eq 'nocodemirror') || ($item eq 'daxecollapse')) {  
                         if ($newval =~ /^yes|no$/) {  
                             $newsettings{$item} = $newval;  
                         }  
                     } elsif ($item eq 'copyright') {  
                         @possibles = (grep !/^priv|custom$/,(&Apache::loncommon::copyrightids));  
                         if (grep(/^\Q$newval\E$/,@possibles)) {  
                             $newsettings{$item} = $newval;  
                         }  
                     } elsif ($item eq 'sourceavail') {  
                         @possibles = (&Apache::loncommon::source_copyrightids);  
                         if (grep(/^\Q$newval\E$/,@possibles)) {  
                             $newsettings{$item} = $newval;  
                         }  
                     }  
                     if ($oldsettings{$item} eq $newsettings{$item}) {  
                         push(@unchanged,$item);  
                     } else {  
                         $changes{$item} = $newsettings{$item};  
                     }  
                 }  
             }  
             if (@delete) {  
                 if (&Apache::lonnet::del('environment',\@delete) eq 'ok') {  
                     foreach my $key (@delete) {  
                         &Apache::lonnet::delenv('environment.'.$key);  
                     }  
                 } else {  
                     @delerrors = @delete;  
                 }  
             }  
             if (keys(%changes)) {  
                 if (&Apache::lonnet::put('environment',\%changes) eq 'ok') {  
                     my %newenvhash;  
                     map {$newenvhash{'environment.'.$_} = $changes{$_}; } (keys(%changes));  
                     &Apache::lonnet::appenv(\%newenvhash);  
                 } else {  
                     foreach my $item (@items) {  
                         if (exists($changes{$item})) {  
                             push(@adderrors,$item);  
                         }  
                     }  
                 }  
             }  
             if (@adderrors) {  
                 $result = &mt('An error occurred when saving user-specific settings for').': '.  
                           join(', ', map { $titles{$_} } @adderrors);  
                 $message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1));  
             } elsif (keys(%changes)) {  
                 $result = &mt('User-specific settings saved:').'<ul>';  
                 foreach my $item (@items) {  
                     next unless (exists($changes{$item}));  
                     my $value = $changes{$item};  
                     if ($item eq 'nocodemirror') {  
                         $value = $lt{$changes{$item}};  
                     } elsif ($item eq 'daxecollapse') {  
                         if ($value eq 'yes') {  
                             $value = $lt{'coll'};  
                         } else {  
                             $value = $lt{'expa'};  
                         }  
                     } elsif ($item eq 'copyright') {  
                         $value = &Apache::loncommon::copyrightdescription($changes{$item});  
                     } elsif ($item eq 'sourceavail') {  
                         $value = &Apache::loncommon::source_copyrightdescription($changes{$item});  
                     }  
                     $result .= '<li>'.  
                                &mt('[_1] set to [_2]',  
                                    $titles{$item},  
                                    '<span style="font-style:italic">'.$value.'</span>').  
                                '</li>';  
                 }  
                 $result .= '</ul>';  
                 $message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));  
             }  
             if (@delerrors) {  
                 $result = &mt('An error occurred when deleting user-specific settings for').':<ul><li>'.  
                           join('</li><li>', map { $titles{$_} } @delerrors).'</li></ul>';  
                 $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1));  
             } elsif (@delete) {  
                 $result = &mt('Set use of domain default for').':<ul><li>'.  
                           join('</li><li>', map { $titles{$_} } @delete).'</li></ul>';  
                 $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));  
             }  
             if (@unchanged) {  
                 $result = &mt('No changes made for').':<ul><li>'.  
                           join('</li><li>', map { $titles{$_} } @unchanged).'</li></ul>';  
                 $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));  
             }  
         }  
         if ($env{'form.returnurl'}) {  
             &do_redirect($r,$env{'form.returnurl'},$message);  
         } else {  
             &print_main_menu($r,$message);  
         }  
     }  
 }  
   
 sub authoring_settings_text {  
     return &Apache::lonlocal::texthash(  
                'auss' => 'Authoring Space Settings',  
                'used' => 'Use domain default',  
                'usyo' => 'Use your own user-specific setting',  
                'curd' => 'Current domain default is',  
                'ousv' => 'Own user-specific value',  
                'save' => 'Save',  
                'yes'  => 'Deactivated',  
                'no'   => 'Activated',  
                'expa' => 'Start Expanded',  
                'coll' => 'Start Collapsed',  
      );  
 }  
   
 sub authoring_settings_titles {  
     return &Apache::lonlocal::texthash(  
                'nocodemirror' => 'CodeMirror for EditXML editor',  
                'daxecollapse' => 'Daxe editor: collapsible standard LON-CAPA menus',  
                'copyright'    => 'Default Copyright/Distribution in new metadata file',  
                'sourceavail'  => 'Default Source Available in new metadata file',  
     );  
 }  
   
 sub daxe_permitted {  
     my ($aurolesref) = @_;  
     my $hasdaxe;  
     if (ref($aurolesref) eq 'HASH') {  
         my %editors;  
         foreach my $key (keys(%{$aurolesref})) {  
             if ($key =~ /^:$LONCAPA::match_domain:au$/) {  
                 if (exists($env{'environment.editors'})) {  
                     if (grep(/^daxe$/,split(/,/,$env{'environment.editors'}))) {  
                         $hasdaxe = 1;  
                         last;  
                     }  
                 }  
             } else {              } else {
                 my ($auname,$audom) = ($key =~ /^($LONCAPA::match_username):($LONCAPA::match_domain):(ca|aa)$/);                  &print_main_menu($r,$message);
                 if (exists($env{"environment.internal.editors./$audom/$auname"})) {  
                     if (grep(/^daxe$/,split(/,/,$env{"environment.internal.editors./$audom/$auname"}))) {  
                         $hasdaxe = 1;  
                         last;  
                     }  
                 }  
             }              }
         }  
     }      }
     return $hasdaxe;  
 }  
   
 sub expanded_authoring_settings {  
     my $reqdmajor = 2;  
     my $reqdminor = 11;  
     my $reqddotnum = 4;  
     my $reqddotlett= 'B';  
     my $reqdreldate = '2024030109';  
     my $reqletterfail;  
     my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'});  
     my ($major,$minor,$dotrel,$reldate) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.([\w.]+)\-(\d+)\'?$/);  
     my ($dotnum,$dotlett) = split(/\./,$dotrel);  
     my %lettdig = &Apache::lonnet::letter_to_digits();  
     if ((exists($lettdig{$dotlett})) && (exists($lettdig{$reqddotlett}))) {  
         if ($lettdig{$reqddotlett} > $lettdig{$dotlett}) {  
             $reqletterfail = 1;  
         }  
     }  
     unless (($major eq '' && $minor eq '') ||  
         ($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor)) ||  
         (($reqdmajor == $major) && ($reqdminor == $minor) && ($reqddotnum > $dotnum)) ||  
         (($reqdmajor == $major) && ($reqdminor == $minor) && ($reqddotnum == $dotnum) && $reqletterfail) ||  
         (($reqdmajor == $major) && ($reqdminor == $minor) && ($reqddotnum == $dotnum) && ($reqdreldate > $reldate))) {  
         return 1;  
     }  
     return;  
 }  }
   
 sub lockednameschanger {  sub lockednameschanger {
Line 2481  sub verify_and_change_lockednames { Line 2183  sub verify_and_change_lockednames {
     &print_main_menu($r,$message);      &print_main_menu($r,$message);
 }  }
   
 sub timezonechanger {  
     my $r = shift;  
     my $uname = $env{'user.name'};  
     my $udom = $env{'user.domain'};  
     if (&Apache::lonnet::usertools_access($uname,$udom,'timezone')) {  
         my $js = &toggle_options_js();  
         my %loaditems = (  
                            onload => "javascript:toggleOptions(document.prefs,'settimezone','LC_timezone_selector');",  
                         );  
         my $args = { 'add_entries' => \%loaditems };  
         &Apache::lonhtmlcommon::add_breadcrumb(  
                 {   href => '/adm/preferences?action=',  
                     text => 'Set Your Time Zone'});  
         $r->print(Apache::loncommon::start_page('Set Your Time Zone',$js,$args));  
         $r->print(Apache::lonhtmlcommon::breadcrumbs('Set Your Time Zone'));  
         my %userenv = &Apache::lonnet::get('environment',['timezone']);  
         my $timezone = $userenv{'timezone'};  
         my %lt = &Apache::lonlocal::texthash(  
                      lctz  => 'Use Time Zone set by LON-CAPA',  
                      owntz => 'Use Time Zone set by you',  
                      save  => 'Save',  
         );  
         my (%checked,$tzsty);  
         if ($userenv{'timezone'} ne '') {  
             $checked{'owntz'} = ' checked="checked"';  
             $tzsty = 'inline-block';  
         } else {  
             $checked{'lctz'} = ' checked="checked"';  
             $tzsty = 'none';  
         }  
         my $onclick = ' onclick="javascript:toggleOptions(this.form,'."'settimezone','LC_timezone_selector'".');"';  
         my $selector = &Apache::loncommon::select_timezone('timezone',$timezone,undef,1);  
         $r->print(<<"END");  
 <form name="prefs" action="/adm/preferences" method="post">  
 <input type="hidden" name="action" value="verify_and_change_timezone" />  
 <span class="LC_nobreak">  
 <label><input type="radio" name="settimezone" value="0"$checked{'lctz'}$onclick />  
 $lt{'lctz'}</label>&nbsp;&nbsp;&nbsp;&nbsp;  
 <label><input type="radio" name="settimezone" value="1"$checked{'owntz'}$onclick />  
 $lt{'owntz'}</label><div style="display:$tzsty" id="LC_timezone_selector">&nbsp;  
 $selector  
 </div></span><br /><br />  
 <input type="submit" value="$lt{'save'}" />  
 </form>  
 END  
     }  
     return;  
 }  
   
 sub verify_and_change_timezone {  
     my $r = shift;  
     my $currtimezone = $env{'environment.timezone'};  
     my $newtimezone;  
     if ($env{'form.settimezone'}) {  
         $newtimezone = $env{'form.timezone'};  
         if (DateTime::TimeZone->is_valid_name($env{'form.timezone'})) {  
             $newtimezone = $env{'form.timezone'};  
         }  
     }  
     my $message='';  
     if ($newtimezone) {  
         if ($newtimezone eq $currtimezone) {  
             $message = &mt('Time Zone settings unchanged');  
         } else {  
             &Apache::lonnet::put('environment',{'timezone' => $newtimezone});  
             &Apache::lonnet::appenv({'environment.timezone' => $newtimezone});  
             $message=&Apache::lonhtmlcommon::confirm_success(  
                 &mt('Set [_1] to [_2]',  
                     '<i>'.&mt('Your Time Zone').'</i>',  
                     '<tt>"'.$newtimezone.'"</tt>.')).  
                '<br />';  
         }  
     } elsif ($currtimezone) {  
         &Apache::lonnet::del('environment',['timezone']);  
         &Apache::lonnet::delenv('environment.timezone');  
         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Time Zone now set by LON-CAPA'));  
     } else {  
         $message = &mt('Time Zone settings unchanged');  
     }  
     $message=&Apache::loncommon::confirmwrapper($message);  
     &print_main_menu($r,$message);  
     return;  
 }  
   
 sub print_main_menu {  sub print_main_menu {
     my ($r, $message) = @_;      my ($r, $message) = @_;
     # Determine current authentication method      # Determine current authentication method
Line 2579  my %permissions; Line 2197  my %permissions;
 if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {  if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {
     $permissions{'aboutme'} = 'F';      $permissions{'aboutme'} = 'F';
 }  }
 if (&Apache::lonnet::usertools_access($user,$domain,'timezone')) {  
     $permissions{'timezone'} = 'F';  
 }  
 my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);  
 my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);  
 my @menu=  my @menu=
     ({ categorytitle=>'Personal Data',      ({ categorytitle=>'Personal Data',
  items =>[   items =>[
Line 2626  my @menu= Line 2239  my @menu=
  icon => 'dismath.png',   icon => 'dismath.png',
  linktitle => 'Change how math is displayed.'   linktitle => 'Change how math is displayed.'
     },      },
             {  
                 linktext => 'Time Zone',  
                 url => '/adm/preferences?action=changetimezone',  
                 permission => $permissions{'timezone'},  
                 #help => '',  
                 icon => 'timezone.png',  
                 linktitle => 'Set your time zone.',  
              }  
  ]   ]
     },      },
     { categorytitle=>'Page Display Settings',      { categorytitle=>'Page Display Settings',
Line 2672  my @menu= Line 2277  my @menu=
     },      },
  ]   ]
     },      },
     );  
 if (keys(%author_coauthor_roles) > 0) {  
     push(@menu,  
     {    categorytitle=>'Authoring Settings',  
          items => [  
              {  
                   linktext => 'Authoring Space Configuration',  
                   url => '/adm/preferences?action=authorsettings',  
                   permission => 'F',  
                   icon => 'codemirror.png',  
                   linktitle => 'Settings for your authoring space.',  
              },  
                   ]  
     },  
     );  
     if (keys(%author_roles) > 0) {  
         push(@{ $menu[4]->{items} }, {  
         linktext => 'Restrict Domain Coordinator Access',  
         url => '/adm/preferences?action=changedomcoord',  
         permission => 'F',  
         #help => '',  
         icon => 'system-lock-screen.png',  
         linktitle => 'Restrict domain coordinator access.',  
         });  
     }  
 }  
 push(@menu,  
     { categorytitle=>'Other',      { categorytitle=>'Other',
  items =>[   items =>[
     { linktext => 'Register Response Devices (&quot;Clickers&quot;)',      { linktext => 'Register Response Devices (&quot;Clickers&quot;)',
Line 2713  push(@menu, Line 2291  push(@menu,
     );      );
   
     if ($currentauth =~ /^(unix|internal):/) {      if ($currentauth =~ /^(unix|internal):/) {
         push(@{ $menu[0]->{items} }, {  push(@{ $menu[0]->{items} }, {
  linktext => 'Password',   linktext => 'Password',
  url => '/adm/preferences?action=changepass',   url => '/adm/preferences?action=changepass',
  permission => 'F',   permission => 'F',
Line 2723  push(@menu, Line 2301  push(@menu,
  });   });
     }      }
     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',
Line 2753  push(@{ $menu[1]->{items} }, { Line 2331  push(@{ $menu[1]->{items} }, {
         });          });
     }      }
   
       my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
       if (keys(%author_roles) > 0) {
   push(@{ $menu[4]->{items} }, {
    linktext => 'Restrict Domain Coordinator Access',
    url => '/adm/preferences?action=changedomcoord',
    permission => 'F',
    #help => '',
    icon => 'system-lock-screen.png',
    linktitle => 'Restrict domain coordinator access.',
    });
       }
   
     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})      if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
  || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'   || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
     .$env{'request.course.sec'})) {      .$env{'request.course.sec'})) {
 push(@{ $menu[-1]->{items} }, {  push(@{ $menu[4]->{items} }, {
  linktext => 'Course Initialization',   linktext => 'Course Initialization',
  url => '/adm/preferences?action=changecourseinit',   url => '/adm/preferences?action=changecourseinit',
  permission => 'F',   permission => 'F',
Line 2767  push(@{ $menu[-1]->{items} }, { Line 2357  push(@{ $menu[-1]->{items} }, {
   
     }      }
   
       my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
       if (keys(%author_coauthor_roles) > 0) {
           push(@{ $menu[4]->{items} }, {
               linktext => 'Authoring Space Configuration',
               url => '/adm/preferences?action=authorsettings',
               permission => 'F',
               icon => 'codemirror.png',
               linktitle => 'Settings for your authoring space.',
           });
       }
   
     if (&can_toggle_debug()) {      if (&can_toggle_debug()) {
 push(@{ $menu[-1]->{items} }, {  push(@{ $menu[4]->{items} }, {
  linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'),   linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'),
  url => '/adm/preferences?action=debugtoggle',   url => '/adm/preferences?action=debugtoggle',
  permission => 'F',   permission => 'F',
Line 2915  sub handler { Line 2516  sub handler {
     } elsif ($env{'form.action'} eq 'verify_and_change_lockednames') {      } elsif ($env{'form.action'} eq 'verify_and_change_lockednames') {
         &verify_and_change_lockednames($r);          &verify_and_change_lockednames($r);
         $ended = 1;          $ended = 1;
     } elsif ($env{'form.action'} eq 'changetimezone') {  
         &timezonechanger($r);  
     } elsif ($env{'form.action'} eq 'verify_and_change_timezone') {  
         &verify_and_change_timezone($r);  
     }      }
   
     # Properly end the HTML page of all preference pages      # Properly end the HTML page of all preference pages
Line 3000  sub updateable_userinfo { Line 2597  sub updateable_userinfo {
 sub do_redirect {  sub do_redirect {
     my ($r,$url,$msg) = @_;      my ($r,$url,$msg) = @_;
     $r->print(      $r->print(
         &Apache::loncommon::start_page('Loading ...',undef,          &Apache::loncommon::start_page('Switching Server ...',undef,
                                        {'redirect'       => [2,$url]}).                                         {'redirect'       => [0.5,$url]}).
         '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".          '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".
         "$msg\n".          "$msg\n".
         &Apache::loncommon::end_page());          &Apache::loncommon::end_page());
     return;      return;
 }  }
   
 sub toggle_options_js {  
     return <<"ENDSCRIPT";  
 <script type="text/javascript">  
 // <![CDATA[  
 function toggleOptions(form,radioname,divid) {  
     var num = form.elements[radioname].length;  
     if (num) {  
         var setvis = '';  
         var onvalue = 'user';  
         if (radioname == 'settimezone') {  
             onvalue = '1';  
         }  
         for (var i=0; i<num; i++) {  
             if (form.elements[radioname][i].checked) {  
                 if (form.elements[radioname][i].value == onvalue) {  
                     if (document.getElementById(divid)) {  
                         document.getElementById(divid).style.display = 'inline-block';  
                     }  
                     setvis = 1;  
                 }  
                 break;  
             }  
         }  
         if (!setvis) {  
             if (document.getElementById(divid)) {  
                 document.getElementById(divid).style.display = 'none';  
             }  
         }  
     }  
     return;  
 }  
 // ]]>  
 </script>  
 ENDSCRIPT  
 }  
   
 sub selectbox {  
     my ($name,$value,$readonly,$functionref,@idlist)=@_;  
     my $selout = '<select name="'.$name.'">';  
     foreach my $id (@idlist) {  
         $selout.='<option value="'.$id.'"';  
         if ($id eq $value) {  
             $selout.=' selected="selected"';  
         }  
         if ($readonly) {  
             $selout .= ' disabled="disabled"';  
         }  
         $selout.='>'.&{$functionref}($id).'</option>';  
     }  
     $selout.='</select>';  
     return $selout;  
 }  
   
 1;  1;
 __END__  __END__
Removed from v.1.196.4.28.2.6  
changed lines
  Added in v.1.196.4.29

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