version 1.147, 2006/07/29 00:31:58
|
version 1.151, 2006/08/08 19:02:04
|
Line 689 sub StatusOptions {
|
Line 689 sub StatusOptions {
|
$status = $env{'form.Status'} if (exists($env{'form.Status'})); |
$status = $env{'form.Status'} if (exists($env{'form.Status'})); |
} |
} |
|
|
my $OpSel1 = ''; |
|
my $OpSel2 = ''; |
|
my $OpSel3 = ''; |
|
|
|
if($status eq 'Any') { $OpSel3 = ' selected'; } |
|
elsif($status eq 'Expired' ) { $OpSel2 = ' selected'; } |
|
else { $OpSel1 = ' selected'; } |
|
|
|
my $Str = ''; |
my $Str = ''; |
$Str .= '<select name="Status"'; |
$Str .= '<select name="Status"'; |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
Line 707 sub StatusOptions {
|
Line 699 sub StatusOptions {
|
} |
} |
$Str .= ' size="'.$size.'" '; |
$Str .= ' size="'.$size.'" '; |
$Str .= '>'."\n"; |
$Str .= '>'."\n"; |
$Str .= '<option value="Active" '.$OpSel1.'>'. |
foreach my $type (['Active', &mt('Currently Enrolled')], |
&mt('Currently Enrolled').'</option>'."\n"; |
['Future', &mt('Future Enrolled')], |
$Str .= '<option value="Expired" '.$OpSel2.'>'. |
['Expired', &mt('Previously Enrolled')], |
&mt('Previously Enrolled').'</option>'."\n"; |
['Any', &mt('Any Enrollment Status')]) { |
$Str .= '<option value="Any" '.$OpSel3.'>'. |
my ($name,$label) = @$type; |
&mt('Any Enrollment Status').'</option>'."\n"; |
$Str .= '<option value="'.$name.'" '; |
|
if ($status eq $name) { |
|
$Str .= 'selected="selected" '; |
|
} |
|
$Str .= '>'.$label.'</option>'."\n"; |
|
} |
|
|
$Str .= '</select>'."\n"; |
$Str .= '</select>'."\n"; |
} |
} |
|
|
Line 1014 sub crumbs {
|
Line 1012 sub crumbs {
|
$output.=qq{<a href="$linkpath" $target>$dir</a>/}; |
$output.=qq{<a href="$linkpath" $target>$dir</a>/}; |
} |
} |
} else { |
} else { |
$output.=$uri; |
foreach my $dir (split('/',$uri)) { |
|
if (! $dir) { next; } |
|
$output.=$dir.'/'; |
|
} |
} |
} |
unless ($uri=~/\/$/) { $output=~s/\/$//; } |
if ($uri !~ m|/$|) { $output=~s|/$||; } |
return $output.'</font>'.($noformat?'':'</b></tt><br />'); |
return $output.'</font>'.($noformat?'':'</b></tt><br />'); |
} |
} |
|
|
Line 1784 sub set_form_elements {
|
Line 1785 sub set_form_elements {
|
($$elements{$name} eq 'checkbox')) { |
($$elements{$name} eq 'checkbox')) { |
$output .= qq| |
$output .= qq| |
if (courseForm.elements['$name'].value == "$value") { |
if (courseForm.elements['$name'].value == "$value") { |
courseForm.elemenst['$name'].checked = true; |
courseForm.elements['$name'].checked = true; |
}|; |
}|; |
} |
} |
} |
} |