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

Diff for /loncom/interface/lonuserutils.pm between versions 1.73.2.2 and 1.73.2.3

version 1.73.2.2, 2009/01/05 17:03:13 version 1.73.2.3, 2009/03/21 06:21:55
Line 1914  sub aggregate_user_info { Line 1914  sub aggregate_user_info {
 sub process_date_info {  sub process_date_info {
     my ($userdata) = @_;      my ($userdata) = @_;
     my $now = time;      my $now = time;
     $userdata->{'status'} = &mt('Active');      $userdata->{'status'} = 'Active';
     if ($userdata->{'start'} > 0) {      if ($userdata->{'start'} > 0) {
         if ($now < $userdata->{'start'}) {          if ($now < $userdata->{'start'}) {
             $userdata->{'status'} = &mt('Future');              $userdata->{'status'} = 'Future';
         }          }
     }      }
     if ($userdata->{'end'} > 0) {      if ($userdata->{'end'} > 0) {
         if ($now > $userdata->{'end'}) {          if ($now > $userdata->{'end'}) {
             $userdata->{'status'} = &mt('Expired');              $userdata->{'status'} = 'Expired';
         }          }
     }      }
     return;      return;
Line 2309  END Line 2309  END
             $grpfilter = 'all';              $grpfilter = 'all';
         }          }
     }      }
       my %ltstatus = &Apache::lonlocal::texthash(
                                                   Active  => 'Active',
                                                   Future  => 'Future',
                                                   Expired => 'Expired',
                                                  );
     # Get groups, role, permanent e-mail so we can sort on them if      # Get groups, role, permanent e-mail so we can sort on them if
     # necessary.      # necessary.
     foreach my $user (keys(%{$userlist})) {      foreach my $user (keys(%{$userlist})) {
Line 2521  END Line 2526  END
                     $r->print('<td>'.&print_username_link($mode,\%in).'</td>');                      $r->print('<td>'.&print_username_link($mode,\%in).'</td>');
                 } elsif (($item eq 'start' || $item eq 'end') && ($actionselect)) {                  } elsif (($item eq 'start' || $item eq 'end') && ($actionselect)) {
                     $r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");                      $r->print('<td>'.$in{$item}.'<input type="hidden" name="'.$checkval.'_'.$item.'" value="'.$sdata->[$index{$item}].'" /></td>'."\n");
                   } elsif ($item eq 'status') {
                       my $showitem = $in{$item};
                       if (defined($ltstatus{$in{$item}})) {
                           $showitem = $ltstatus{$in{$item}};
                       }
                       $r->print('<td>'.$showitem.'</td>'."\n");
                 } else {                  } else {
                     $r->print('<td>'.$in{$item}.'</td>'."\n");                      $r->print('<td>'.$in{$item}.'</td>'."\n");
                 }                  }
Removed from v.1.73.2.2  
changed lines
  Added in v.1.73.2.3

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