loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.100, 2004/11/30 08:06:38	version 1.101, 2004/11/30 18:42:09
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>';