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

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

version 1.119, 2008/05/14 18:21:40 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 618  sub domcoordchanger { Line 618  sub domcoordchanger {
     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      my %userenv = &Apache::lonnet::get
         ('environment',['domcoord.author','domcoord.cc']);          ('environment',['domcoord.author']);
     my $constchecked='';      my $constchecked='';
     my $courseschecked='';  
     if ($userenv{'domcoord.author'} eq 'blocked') {      if ($userenv{'domcoord.author'} eq 'blocked') {
        $constchecked='checked="checked"';         $constchecked='checked="checked"';
     }      }
     if ($userenv{'domcoord.cc'} eq 'blocked') {      my $text=&mt('By default, the Domain Coordinator can enter your construction space.');
        $courseschecked='checked="checked"';  
     }  
     my $text=&mt('By default, the Domain Coordinator can enter your courses and construction space.');  
     my $construction=&mt('Block access to construction space');      my $construction=&mt('Block access to construction space');
     my $courses=&mt('Block access to courses');  
     my $change=&mt('Change');      my $change=&mt('Change');
     $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="action" value="verify_and_change_domcoord" />  <input type="hidden" name="action" value="verify_and_change_domcoord" />
 $text<br />  $text<br />
 <label><input type="checkbox" name="construction" $constchecked />$construction</label><br />  <label><input type="checkbox" name="construction" $constchecked />$construction</label><br />
 <label><input type="checkbox" name="courses" $courseschecked />$courses</label><br />  
 <input type="submit" value="$change" />  <input type="submit" value="$change" />
 </form>  </form>
 ENDSCREEN  ENDSCREEN
Line 646  sub verify_and_change_domcoord { Line 640  sub verify_and_change_domcoord {
     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 %domcoord=('domcoord.author' => '','domcoord.cc' => '');      my %domcoord=('domcoord.author' => '');
     if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }      if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }
     if ($env{'form.courses'}) { $domcoord{'domcoord.cc'}='blocked'; }  
     &Apache::lonnet::put('environment',\%domcoord);      &Apache::lonnet::put('environment',\%domcoord);
     &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'},      &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}});
                              'environment.domcoord.cc' => $domcoord{'domcoord.cc'}});  
     $r->print(&mt('Registering Domain Coordinator access restrictions.'));      $r->print(&mt('Registering Domain Coordinator access restrictions.'));
 }  }
   
Removed from v.1.119  
changed lines
  Added in v.1.122

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