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

Diff for /loncom/interface/lonpreferences.pm between versions 1.90 and 1.91

version 1.90, 2006/06/14 19:13:11 version 1.91, 2006/06/22 23:22:41
Line 304  sub rolesprefchanger { Line 304  sub rolesprefchanger {
     if ($env{'environment.recentroles'}) {      if ($env{'environment.recentroles'}) {
         my %recent_roles =          my %recent_roles =
                &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});                 &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});
           my %frozen_roles =
                  &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});
                   
         $roles_check_list .=          $roles_check_list .=
     &Apache::loncommon::start_data_table().      &Apache::loncommon::start_data_table().
Line 316  sub rolesprefchanger { Line 318  sub rolesprefchanger {
         foreach $role_key (sort(keys(%recent_roles))) {          foreach $role_key (sort(keys(%recent_roles))) {
             my $checked = "";              my $checked = "";
             my $value = $recent_roles{$role_key};              my $value = $recent_roles{$role_key};
             if ($value eq 'role_frozen') {              if ($frozen_roles{$role_key}) {
                 $checked = "checked=\"checked\"";                  $checked = "checked=\"checked\"";
             }              }
 # get course information  # get course information
Line 400  sub verify_and_change_rolespref { Line 402  sub verify_and_change_rolespref {
     my @freeze_list = &Apache::loncommon::get_env_multiple('form.freezeroles');      my @freeze_list = &Apache::loncommon::get_env_multiple('form.freezeroles');
     my %freeze = ();      my %freeze = ();
     foreach my $key (@freeze_list) {      foreach my $key (@freeze_list) {
         $freeze{$key}='role_frozen';          $freeze{$key}='1';
     }      }
           
     my %recent_roles =      my %recent_roles =
         &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});          &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});
       my %frozen_roles =
           &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});
   
 # Unset any roles that were previously frozen but aren't in list  # Unset any roles that were previously frozen but aren't in list
   
     foreach my $role_key (sort(keys(%recent_roles))) {      foreach my $role_key (sort(keys(%recent_roles))) {
         if (($recent_roles{$role_key} eq 'role_frozen') &&          if (($frozen_roles{$role_key}) && (!exists($freeze{$role_key}))) {
                      (!exists($freeze{$role_key}))) {  
     $message .= "<br />".&mt('Unfreezing Role: [_1]',$role_key)."\n";      $message .= "<br />".&mt('Unfreezing Role: [_1]',$role_key)."\n";
     &Apache::lonhtmlcommon::store_recent('roles',$role_key,' ');      &Apache::lonhtmlcommon::store_recent('roles',$role_key,' ',0);
         }          }
     }      }
   
 # Freeze selected roles  # Freeze selected roles
     foreach my $role_key (@freeze_list) {      foreach my $role_key (@freeze_list) {
         $message .= "<br />".&mt('Freezing Role: [_1]',$role_key)."\n";          if (!$frozen_roles{$role_key}) {
         if ($recent_roles{$role_key} ne 'role_frozen') {               $message .= "<br />".&mt('Freezing Role: [_1]',$role_key)."\n";
              &Apache::lonhtmlcommon::store_recent('roles',               &Apache::lonhtmlcommon::store_recent('roles',
                                           $role_key,'role_frozen');                                            $role_key,' ',1);
         }          }
     }      }
     $message .= "<hr /><br />\n";      $message .= "<hr /><br />\n";
Removed from v.1.90  
changed lines
  Added in v.1.91

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