version 1.161, 2007/09/05 05:00:24
|
version 1.165, 2007/10/01 18:45:40
|
Line 682 Returns: a perl string as described.
|
Line 682 Returns: a perl string as described.
|
############################################## |
############################################## |
############################################## |
############################################## |
sub StatusOptions { |
sub StatusOptions { |
my ($status, $formName,$size,$onchange)=@_; |
my ($status, $formName,$size,$onchange,$mult)=@_; |
$size = 1 if (!defined($size)); |
$size = 1 if (!defined($size)); |
if (! defined($status)) { |
if (! defined($status)) { |
$status = 'Active'; |
$status = 'Active'; |
Line 691 sub StatusOptions {
|
Line 691 sub StatusOptions {
|
|
|
my $Str = ''; |
my $Str = ''; |
$Str .= '<select name="Status"'; |
$Str .= '<select name="Status"'; |
|
if (defined($mult)){ |
|
$Str .= ' multiple="multiple" '; |
|
} |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
$Str .= ' onchange="document.'.$formName.'.submit()"'; |
$Str .= ' onchange="document.'.$formName.'.submit()"'; |
} |
} |
Line 1006 sub crumbs {
|
Line 1009 sub crumbs {
|
} |
} |
my $href_path = &HTML::Entities::encode($path,'<>&"'); |
my $href_path = &HTML::Entities::encode($path,'<>&"'); |
&Apache::loncommon::inhibit_menu_check(\$href_path); |
&Apache::loncommon::inhibit_menu_check(\$href_path); |
$output.=qq{<a href="$href_path" $target>$dir</a>/}; |
if ($form) { |
|
my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();'; |
|
$output.=qq{<a href="$href" $target>$dir</a>/}; |
|
} else { |
|
$output.=qq{<a href="$href_path" $target>$dir</a>/}; |
|
} |
} |
} |
} else { |
} else { |
foreach my $dir (split('/',$uri)) { |
foreach my $dir (split('/',$uri)) { |