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

Diff for /loncom/interface/lonpreferences.pm between versions 1.117 and 1.122

version 1.117, 2008/03/24 04:56:22 version 1.122, 2008/05/28 01:45:48
Line 210  sub texenginechanger { Line 210  sub texenginechanger {
 </form>  </form>
 Examples:  Examples:
 <p> TeX to HTML <br />   <p> TeX to HTML <br /> 
 <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=tth" width="400" hieght="200"></iframe>  <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=tth" width="400" height="200"></iframe>
 </p>  </p>
 <p>jsMath <br />   <p>jsMath <br /> 
 $jsMath_start  $jsMath_start
Line 230  if (jsMath.nofonts == 1) { Line 230  if (jsMath.nofonts == 1) {
  +'</font></small></div></center>');   +'</font></small></div></center>');
 }  }
 </script>  </script>
 <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=jsMath" width="400" hieght="200"></iframe>  <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=jsMath" width="400" height="120"></iframe>
   
 </p>  </p>
 <p> Convert to Images <br />  <p> Convert to Images <br />
 <br />  <br />
 <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=mimetex" width="400" hieght="200"></iframe>  <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=mimetex" width="400" height="100"></iframe>
 </p>  </p>
 ENDLSCREEN  ENDLSCREEN
     if ($env{'environment.texengine'} ne 'jsMath') {      if ($env{'environment.texengine'} ne 'jsMath') {
Line 610  sub verify_and_change_clicker { Line 610  sub verify_and_change_clicker {
 }  }
   
 ################################################################  ################################################################
   #               Domcoord Access Subroutines                    #
   ################################################################
   
   sub domcoordchanger {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %userenv = &Apache::lonnet::get
           ('environment',['domcoord.author']);
       my $constchecked='';
       if ($userenv{'domcoord.author'} eq 'blocked') {
          $constchecked='checked="checked"';
       }
       my $text=&mt('By default, the Domain Coordinator can enter your construction space.');
       my $construction=&mt('Block access to construction space');
       my $change=&mt('Change');
       $r->print(<<ENDSCREEN);
   <form name="prefs" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_domcoord" />
   $text<br />
   <label><input type="checkbox" name="construction" $constchecked />$construction</label><br />
   <input type="submit" value="$change" />
   </form>
   ENDSCREEN
   }
   
   sub verify_and_change_domcoord {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %domcoord=('domcoord.author' => '');
       if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }
       &Apache::lonnet::put('environment',\%domcoord);
       &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}});
       $r->print(&mt('Registering Domain Coordinator access restrictions.'));
   }
   
   #################################################################
   ##                      Lock Subroutines                        #
   #################################################################
   
   sub lockwarning {
       my $r = shift;
       my $title=&mt('Action locked');
       my $texttop=&mt('LON-CAPA is currently performing the following actions:');
       my $textbottom=&mt('Changing roles or logging out may result in data corruption.');
       my ($num,%which)=&Apache::lonnet::get_locks();
       my $which='';
       foreach my $id (keys %which) {
          $which.='<li>'.$which{$id}.'</li>';
       }
       my $change=&mt('Override');
       $r->print(<<ENDSCREEN);
   <form name="prefs" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_locks" />
   <h1>$title</h1>
   $texttop
   <ul>
   $which
   </ul>
   $textbottom
   <input type="submit" value="$change" />
   </form>
   ENDSCREEN
   }
   
   sub verify_and_change_lockwarning {
       my $r = shift;
       &Apache::lonnet::remove_all_locks();
       $r->print(&mt('Cleared locks.'));
   }
   
   
   ################################################################
 #         Message Forward                                      #  #         Message Forward                                      #
 ################################################################  ################################################################
   
Line 1825  sub handler { Line 1899  sub handler {
                       href     => '/adm/preferences',                        href     => '/adm/preferences',
                       subroutine => \&clickerchanger,                        subroutine => \&clickerchanger,
                       breadcrumb =>                        breadcrumb =>
                           { href => '/adm/preferences?action=changeicons',                            { href => '/adm/preferences?action=changeclicker',
                             text => 'Register Clicker'},                              text => 'Register Clicker'},
                       },                        },
                     { action   => 'verify_and_change_clicker',                      { action   => 'verify_and_change_clicker',
Line 1835  sub handler { Line 1909  sub handler {
                             text => 'Register Clicker'},                              text => 'Register Clicker'},
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
      if ($env{'user.adv'}) {
         push (@Options,({ action   => 'changedomcoord',
                           linktext => 'Restrict Domain Coordinator Access',
                           href     => '/adm/preferences',
                           subroutine => \&domcoordchanger,
                           breadcrumb =>
                               { href => '/adm/preferences?action=changedomcoord',
                                 text => 'Restrict Domain Coordinator Access'},
                         },
                         { action   => 'verify_and_change_domcoord',
                           subroutine => \&verify_and_change_domcoord,
                           breadcrumb =>
                               { href => '/adm/preferences?action=changedomcoord',
                                 text => 'Restrict Domain Coordinator Access'},
                           printmenu => 'yes',
                         }));
       }
   
       push (@Options,({ action   => 'lockwarning',
                         subroutine => \&lockwarning,
                         breadcrumb =>
                             { href => '/adm/preferences?action=lockwarning',
                               text => 'Lock Warnings'},
                         },
                       { action   => 'verify_and_change_locks',
                         subroutine => \&verify_and_change_lockwarning,
                         breadcrumb =>
                             { href => '/adm/preferences?action=lockwarning',
                               text => 'Lockwarnings'},
                         printmenu => 'yes',
                         }));
   
   
     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})      if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
Line 1856  sub handler { Line 1961  sub handler {
                        }));                         }));
     }      }
   
     if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle|raeburn)$/) {      if ($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/) {
         push (@Options,({ action => 'debugtoggle',          push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',                            printmenu => 'yes',
                           subroutine => \&toggle_debug,                            subroutine => \&toggle_debug,
Removed from v.1.117  
changed lines
  Added in v.1.122

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