loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.101, 2004/11/30 18:42:09	version 1.102, 2004/12/02 00:01:34
Line 132 sub select_recent {	Line 132 sub select_recent {
foreach (sort keys %recent) {	foreach (sort keys %recent) {
unless ($_=~/^error\:/) {	unless ($_=~/^error\:/) {
my $escaped = &Apache::loncommon::escape_url($_);	my $escaped = &Apache::loncommon::escape_url($_);
if ($_ =~ /\/$/ && $escaped !~ /\/$/) {
$escaped .= '/';
}
$return.="\n<option value='$escaped'>".	$return.="\n<option value='$escaped'>".
&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]).	&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]).
'</option>';	'</option>';