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>'; |