--- loncom/interface/lonhtmlcommon.pm 2004/11/30 18:42:09 1.101
+++ loncom/interface/lonhtmlcommon.pm 2005/02/17 08:29:42 1.103
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.101 2004/11/30 18:42:09 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.103 2005/02/17 08:29:42 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -80,7 +80,7 @@ sub authorbombs {
foreach (keys %bombs) {
if ($_=~/^$udom\/$uname\//) {
return '
'.
+ '">.')
'.
&Apache::loncommon::help_open_topic('About_Bombs');
}
}
@@ -132,9 +132,6 @@ sub select_recent {
foreach (sort keys %recent) {
unless ($_=~/^error\:/) {
my $escaped = &Apache::loncommon::escape_url($_);
- if ($_ =~ /\/$/ && $escaped !~ /\/$/) {
- $escaped .= '/';
- }
$return.="\n';
@@ -762,13 +759,14 @@ sub Create_PrgWin {
$prog_state{'type'}=$type;
if ($type eq 'popup') {
$prog_state{'window'}='popwin';
+ my $html=&Apache::lonxml::xmlbegin();
#the whole function called through timeout is due to issues
#in mozilla Read BUG #2665 if you want to know the whole story
&r_print($r,'