Mercurial > hg > soundsoftware-site

changeset 388:dad587ecb8d0 feature_113

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use mixed-case version (not lower-case function name key) for link target
author Chris Cannam <chris.cannam@soundsoftware.ac.uk>
date Wed, 06 Apr 2011 17:49:54 +0100
parents f89765996ef9
children 0bc92382a86b
files extra/soundsoftware/matlab-docs.pl
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/extra/soundsoftware/matlab-docs.pl	Wed Apr 06 12:39:38 2011 +0100
+++ b/extra/soundsoftware/matlab-docs.pl	Wed Apr 06 17:49:54 2011 +0100
@@ -75,7 +75,7 @@
 
 $VERSION  = '1.23';
 ($PROGRAM = $0) =~ s@.*/@@; $PROGRAM = "\U$PROGRAM\E";
-$debug = 0;
+$debug = 2;
 
 #------------------------------------------------------------------------
 # Define platform specific things
@@ -372,7 +372,7 @@
                # Contents file in unix must start with a capital letter (Contents.m)
                # ensure, that m-file name is lower case, except the contents file
                if (! ($filewosuffix =~ /^contents$/i)) {
-                  # if ($var{'links2filescase'}  eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
+		   # if ($var{'links2filescase'}  eq 'low') { $filewosuffix = "\L$filewosuffix\E"; }
                   $filewosuffixlow = "\L$filewosuffix\E";
                }
                else { $contentsname{$dirname} = $filewosuffix; }
@@ -1144,7 +1144,7 @@
    # Look for something matching in the line
    if ( /(\W+)($funname)(\W+)/i ) {
       $reffound = $2;
-      $refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$funname$var{'exthtml'}\">";
+      $refstr1 = "<a class=\"mfun\" href=\"$hfileindexpath{$name}$hfilerelpath{$funname}$mfilename{$funname}$var{'exthtml'}\">";
       $refstr2 = "<\/a>";
       # Do links only for exact case match
       if ( ($var{'links2filescase'}  eq 'exact') || ($var{'links2filescase'}  eq 'exactvery') ) {