--- loncom/interface/lonindexer.pm	2004/10/20 10:51:50	1.125
+++ loncom/interface/lonindexer.pm	2004/10/21 09:53:44	1.127
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.125 2004/10/20 10:51:50 foxr Exp $
+# $Id: lonindexer.pm,v 1.127 2004/10/21 09:53:44 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -74,31 +74,6 @@ my @Omit = ();
 
 
 
-#
-#    Escapes strings that may have embedded 's that will be put into
-#    javascript strings as 'strings'.
-#    The assumptions are:
-#       There has been no effort to escape ' with \'
-#       Any \'s in the string are intended to be there as part of the URL
-#        and must also be escaped.
-# Parameters:
-#     input     - The string to escape.
-# Returns:
-#     The escaped string (' replaced by \' and \ replaced by \\).
-#
-sub javascript_escape {
-    my ($input) = @_;
-
-    #  I imagine a regexp wizard could combine the two expressions below.
-    #  If you do you might want to comment the result.
-
-    $input =~ s/\\/\\\\/g;	# Escape the /'s..(must be first)>
-    $input =~ s/\'/\\\'/g;	# Esacpe the 's....
-
-    return $input;
-}
-
-
 
 # ----------------------------- Handling routine called via Apache and mod_perl
 sub handler {
@@ -871,7 +846,7 @@ sub display_line {
 		   $diropen.'.gif"'); 
 	$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.
 		   "\n");
-	my $quotable_filecom = &javascript_escape($filecom[0]);
+	my $quotable_filecom = &Apache::loncommon::javascript_escape($filecom[0]);
 	$r->print ('<a href="javascript:gothere(\''.$quotable_filecom.
 		   '\')"><img src="'.$iconpath.'server.gif"');
 	$r->print (' border="0" /></a>'."\n");
@@ -899,7 +874,7 @@ sub display_line {
 		   '.gif"'); 
 	$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.
 		   "\n");
-	my $quotable_curdir = &javascript_escape($curdir);
+	my $quotable_curdir = &Apache::loncommon::javascript_escape($curdir);
 	$r->print ('<a href="javascript:gothere(\''.$quotable_curdir
 		   .'\')"><img src='.
 		   $iconpath.'quill.gif border="0" name="'.$msg.
@@ -930,7 +905,7 @@ sub display_line {
 	$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='1' align='top'>");
 	
         if ($ENV{'form.catalogmode'} eq 'interactive') {
-	    my $quotable_filelink = &javascript_escape($filelink);
+	    my $quotable_filelink = &Apache::loncommon::javascript_escape($filelink);
             $r->print("<a href=\"javascript:select_data(\'",
                       $quotable_filelink,"')\">");
 	    $r->print("<img src='",$iconpath,"select.gif' border='0' /></a>".
@@ -991,7 +966,7 @@ sub display_line {
 	if ($filelink=~/\.(page|sequence)$/) {
 	    $r->print('</form>');
 	}
-	my $quotable_filelink = &javascript_escape($filelink);
+	my $quotable_filelink = &Apache::loncommon::javascript_escape($filelink);
 
 
 	$r->print (" <a href=\"javascript:openWindow('".$quotable_filelink.
@@ -1058,7 +1033,7 @@ sub display_line {
 	    my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
 	    if($source eq 'open') {
 		my $sourcelink = &Apache::lonsource::make_link($filelink,$listname);
-		my $quotable_sourcelink = &javascript_escape($sourcelink);
+		my $quotable_sourcelink = &Apache::loncommon::javascript_escape($sourcelink);
 		$r->print('<td>'."<a href=\"javascript:openWindow('"
 			  .$quotable_sourcelink.
 			  "', 'previewsource', '700', '700', 'no', 'yes','yes')\";".
@@ -1137,7 +1112,7 @@ sub display_line {
 		   'folder_pointer_'.$diropen.'.gif"');
 	$r->print (' name="'.$msg.'" height="22" type="image" border="0">'.
 		   "\n");
-	my $quotable_curdir = &javascript_escape($curdir);
+	my $quotable_curdir = &Apache::loncommon::javascript_escape($curdir);
 	$r->print ('<a href="javascript:gothere(\''
 		   .$quotable_curdir.'\')"><img src="'.
 		   $iconpath.'folder_'.$diropen.'.gif" border="0" /></a>'.
@@ -1257,6 +1232,10 @@ sub cleanup {
     }
 }
 
+
+
+
+
 =head1 NAME
 
 Apache::lonindexer - mod_perl module for cross server filesystem browsing