version 1.35, 2003/12/29 17:11:53
|
version 1.38, 2004/01/01 20:13:17
|
Line 91 sub textbox {
|
Line 91 sub textbox {
|
############################################## |
############################################## |
############################################## |
############################################## |
sub checkbox { |
sub checkbox { |
my ($name) = @_; |
my ($name,$value) = @_; |
my $Str = '<input type="checkbox" name="'.$name.'" />'; |
my $Str = '<input type="checkbox" name="'.$name.'"'. |
|
($value?' checked="1"':'').' />'; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 437 sub StatusOptions {
|
Line 438 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 842 sub crumbs {
|
Line 843 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.'/'; |
if ($ENV{'user.adv'}) { |
if ($ENV{'user.adv'}) { |
my $path=$prefix.'/'; |
my $path=$prefix; |
foreach (split('/',$uri)) { |
foreach (split('/',$uri)) { |
unless ($_) { next; } |
unless ($_) { next; } |
$path.=$_.'/'; |
$path.='/'.$_; |
$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/'; |
$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/'; |
} |
} |
} else { |
} else { |
$output.=$uri; |
$output.=$uri; |
} |
} |
|
unless ($uri=~/\/$/) { $output=~s/\/$//; } |
return $output.'</font></b></tt><br />'; |
return $output.'</font></b></tt><br />'; |
} |
} |
|
|