version 1.151, 2006/08/08 19:02:04
|
version 1.153, 2006/08/18 15:15:38
|
Line 699 sub StatusOptions {
|
Line 699 sub StatusOptions {
|
} |
} |
$Str .= ' size="'.$size.'" '; |
$Str .= ' size="'.$size.'" '; |
$Str .= '>'."\n"; |
$Str .= '>'."\n"; |
foreach my $type (['Active', &mt('Currently Enrolled')], |
foreach my $type (['Active', &mt('Currently Has Access')], |
['Future', &mt('Future Enrolled')], |
['Future', &mt('Will Have Future Access')], |
['Expired', &mt('Previously Enrolled')], |
['Expired', &mt('Previously Had Access')], |
['Any', &mt('Any Enrollment Status')]) { |
['Any', &mt('Any Access Status')]) { |
my ($name,$label) = @$type; |
my ($name,$label) = @$type; |
$Str .= '<option value="'.$name.'" '; |
$Str .= '<option value="'.$name.'" '; |
if ($status eq $name) { |
if ($status eq $name) { |