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

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 12 Mar 2007 18:09:37 -0000


albertel		Mon Mar 12 14:09:37 2007 EDT

  Modified files:              
    /loncom/interface	lonhtmlcommon.pm 
  Log:
  - fix some ' breakage
  
  
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.156 loncom/interface/lonhtmlcommon.pm:1.157
--- loncom/interface/lonhtmlcommon.pm:1.156	Fri Jan  5 12:55:41 2007
+++ loncom/interface/lonhtmlcommon.pm	Mon Mar 12 14:09:36 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.156 2007/01/05 17:55:41 albertel Exp $
+# $Id: lonhtmlcommon.pm,v 1.157 2007/03/12 18:09:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1002,13 +1002,14 @@
 		} 
 	    } else {
 		$path.='/'; 
-	    }
+	    }	    
             my $linkpath = &Apache::loncommon::escape_single($path);
             if ($form) {
 		$linkpath=
                     qq{javascript:$form.action='$linkpath';$form.submit();};
             }
-	    $output.=qq{<a href="$linkpath" $target>$dir</a>/};
+            my $href_path = &HTML::Entities::encode($path,'<>&"');
+	    $output.=qq{<a href="$path" $target>$dir</a>/};
 	}
     } else {
 	foreach my $dir (split('/',$uri)) {