[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.120

version 1.119, 2008/05/14 18:21:40 version 1.120, 2008/05/20 18:19:31
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.120

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