[LON-CAPA-cvs] cvs: loncom /interface lonhtmlcommon.pm

[raeburn]

raeburn		Tue Nov 30 13:42:09 2004 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  If trailing / was removed, add it back.  Fix error caused when selecting /priv/$username (result of 1.94 change). 
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.100 loncom/interface/lonhtmlcommon.pm:1.101
--- loncom/interface/lonhtmlcommon.pm:1.100	Tue Nov 30 03:06:38 2004
+++ loncom/interface/lonhtmlcommon.pm	Tue Nov 30 13:42:09 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.100 2004/11/30 08:06:38 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.101 2004/11/30 18:42:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -132,6 +132,9 @@
     foreach (sort keys %recent) {
 	unless ($_=~/^error\:/) {
 	    my $escaped = &Apache::loncommon::escape_url($_);
+            if ($_ =~ /\/$/ && $escaped !~ /\/$/) {
+                $escaped .= '/';
+            }
 	    $return.="\n<option value='$escaped'>".
 		&Apache::lonnet::unescape((split(/\&/,$recent{$_}))[1]).
 		'</option>';