[Octave-cvsupdate] octave-forge/admin make_index,1.58,1.59

[soren h. <ha...@us...>]

Update of /cvsroot/octave/octave-forge/admin
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv21334

Modified Files:
	make_index 
Log Message:
Fixes for IE

Index: make_index
===================================================================
RCS file: /cvsroot/octave/octave-forge/admin/make_index,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -d -r1.58 -r1.59
--- make_index	9 Jan 2007 20:08:27 -0000	1.58
+++ make_index	13 Jan 2007 00:35:53 -0000	1.59
@@ -681,6 +681,8 @@
 	# The source file
 
 	my $body = long_desc($func);
+	print $body;
+	print "\n";
 	if ($body ne "") {
 	    # XXX FIXME XXX this will die if the punctuation is too wild
 	    open FUNC, ">$catdir/f/$func.in" or die "Could not open $func.in";
@@ -827,7 +829,7 @@
     foreach my $TB (toolbox_list_sorted_by_desc()) {
 	$TB = trim($TB);
 	#print OUT "<option value=\"__BASE_ADDRESS__/doc/$TB.html\">$TB_description{$TB}</option>\n";
-        print OUT "<a href=\"__BASE_ADDRESS__/doc/$TB.html\">$TB_description{$TB}</a><br/>\n";
+        print OUT "<a href=\"__BASE_ADDRESS__/doc/$TB.html\">$TB_description{$TB}</a><br/>\\\n";
     }
     #print OUT "</select>\n";
     close OUT;
@@ -919,7 +921,7 @@
 
     my $A_to_Z     = "";
     foreach (first_letters (indexed_funcs())) {
-        $A_to_Z .= letter_option($_) . "\n";
+        $A_to_Z .= letter_option($_) . "\\\n";
     }
     #my $select = "<select name=\"dropdownalpha\" size=\"1\" onchange=\"javascript:goto_url(this)\">";
     #$select .=  "\n<option value=\"-1\">Alphabetical</option>\n";
@@ -1060,6 +1062,10 @@
     return "A.html" if $_ lt "A";
     return "Z.html";
 } # 1}}}
+sub deping { # 1{{{
+    return "\\'" if $_ eq "'";
+    return "$_";
+} # 1}}}
 sub letter_ref { # 1{{{
 # letter_ref($letter) returns a link to the letter
     return "<a href=\"" . letter_file($_) . "#$_\">$_</a>";
@@ -1067,7 +1073,7 @@
 sub letter_option { # 1{{{
 # letter_option($letter) returns a link to the letter
     #return "<option value=\"__BASE_ADDRESS__/doc/" . letter_file($_) . "#$_\">$_</option>";
-    return "<a href=\"__BASE_ADDRESS__/doc/" . letter_file($_) . "#$_\">$_</a><br/>";
+    return "<a href=\"__BASE_ADDRESS__/doc/" . letter_file($_) . "#" . deping($_) . "\">" . deping($_) . "</a><br/>";
 } # 1}}}
 sub ascii_desc { # 1{{{
 # ascii_desc($func) returns a decription of $func using ascii markup