version 1.34, 2003/12/22 19:30:25
|
version 1.37, 2003/12/29 21:17:00
|
Line 437 sub StatusOptions {
|
Line 437 sub StatusOptions {
|
$Str .= ' size="'.$size.'" '; |
$Str .= ' size="'.$size.'" '; |
$Str .= '>'."\n"; |
$Str .= '>'."\n"; |
$Str .= '<option value="Active" '.$OpSel1.'>'. |
$Str .= '<option value="Active" '.$OpSel1.'>'. |
'Currently Enrolled</option>'."\n"; |
&mt('Currently Enrolled').'</option>'."\n"; |
$Str .= '<option value="Expired" '.$OpSel2.'>'. |
$Str .= '<option value="Expired" '.$OpSel2.'>'. |
'Previously Enrolled</option>'."\n"; |
&mt('Previously Enrolled').'</option>'."\n"; |
$Str .= '<option value="Any" '.$OpSel3.'>'. |
$Str .= '<option value="Any" '.$OpSel3.'>'. |
'Any Enrollment Status</option>'."\n"; |
&mt('Any Enrollment Status').'</option>'."\n"; |
$Str .= '</select>'."\n"; |
$Str .= '</select>'."\n"; |
} |
} |
|
|
Line 841 sub Close_PrgWin {
|
Line 841 sub Close_PrgWin {
|
sub crumbs { |
sub crumbs { |
my ($uri,$target,$prefix)=@_; |
my ($uri,$target,$prefix)=@_; |
my $output='<br /><tt><b><font size="+2">'.$prefix.'/'; |
my $output='<br /><tt><b><font size="+2">'.$prefix.'/'; |
my $path=$prefix.'/'; |
if ($ENV{'user.adv'}) { |
foreach (split('/',$uri)) { |
my $path=$prefix; |
unless ($_) { next; } |
foreach (split('/',$uri)) { |
$path.=$_.'/'; |
unless ($_) { next; } |
$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/'; |
$path.='/'.$_; |
|
$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/'; |
|
} |
|
} else { |
|
$output.=$uri; |
} |
} |
|
unless ($uri=~/\/$/) { $output=~s/\/$//; } |
return $output.'</font></b></tt><br />'; |
return $output.'</font></b></tt><br />'; |
} |
} |
|
|