loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2007/05/13 18:03:15	version 1.160, 2007/07/11 20:32:15
Line 140 sub select_recent {	Line 140 sub select_recent {
foreach my $value (sort(keys(%recent))) {	foreach my $value (sort(keys(%recent))) {
unless ($value =~/^error\:/) {	unless ($value =~/^error\:/) {
my $escaped = &Apache::loncommon::escape_url($value);	my $escaped = &Apache::loncommon::escape_url($value);
	&Apache::loncommon::inhibit_menu_check(\$escaped);
$return.="\n<option value='$escaped'>".	$return.="\n<option value='$escaped'>".
&unescape((split(/\&/,$recent{$value}))[1]).	&unescape((split(/\&/,$recent{$value}))[1]).
'</option>';	'</option>';
Line 1003 sub crumbs {	Line 1004 sub crumbs {
} else {	} else {
$path.='/';	$path.='/';
}	}
my $linkpath = &Apache::loncommon::escape_single($path);
if ($form) {
$linkpath=
qq{javascript:$form.action='$linkpath';$form.submit();};
}
my $href_path = &HTML::Entities::encode($path,'<>&"');	my $href_path = &HTML::Entities::encode($path,'<>&"');
$output.=qq{<a href="$path" $target>$dir</a>/};	&Apache::loncommon::inhibit_menu_check(\$href_path);
	$output.=qq{<a href="$href_path" $target>$dir</a>/};
}	}
} else {	} else {
foreach my $dir (split('/',$uri)) {	foreach my $dir (split('/',$uri)) {