loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.93, 2004/10/12 23:26:48	version 1.94, 2004/10/21 11:18:06
Line 131 sub select_recent {	Line 131 sub select_recent {
">\n<option value=''>--- ".&mt('Recent')." ---</option>";	">\n<option value=''>--- ".&mt('Recent')." ---</option>";
foreach (sort keys %recent) {	foreach (sort keys %recent) {
unless ($_=~/^error\:/) {	unless ($_=~/^error\:/) {
$return.="\n<option value='$_'>".	my $escaped = &Apache::loncommon::escape_url($_);
	$return.="\n<option value='$escaped'>".
&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]).	&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]).
'</option>';	'</option>';
}	}
Line 887 sub crumbs {	Line 888 sub crumbs {
unless ($path eq $uri) { $path.='/'; }	unless ($path eq $uri) { $path.='/'; }
my $linkpath=$path;	my $linkpath=$path;
if ($form) {	if ($form) {
$linkpath="javascript:$form.action='$path';$form.submit();";	my $escaped_path = &Apache::loncommon::escape_single($path);
	$linkpath="javascript:$form.action='$escaped_path';$form.submit();";
}	}
$output.='<a href="'.$linkpath.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/';	my $escaped_linkpath = &Apache::loncommon::escape_single($linkpath);
	my $escaped_target = &Apache::loncommon::escape_single($target);
	$output.='<a href="'.$escaped_linkpath.'"'.($target?' target="'.$escaped_target.'"':'').'>'.$_.'</a>/';
}	}
} else {	} else {
$output.=$uri;	$output.=$uri;