]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Fix several cases of wrong cross-links, which were usually due to multiply escaping...
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 27 Jun 2000 16:41:23 +0000 (16:41 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 27 Jun 2000 16:41:23 +0000 (16:41 +0000)
git-svn-id: https://svn.dealii.org/trunk@3092 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/contrib/kdoc/src/kdocAstUtil.pm
deal.II/contrib/kdoc/src/kdocCxxHTML.pm

index 5da9647cbc9d1eeed54595bd491fd9e049274e56..9636bf23d4c4a1a6feed9cf7b5996d88f0dd8488 100644 (file)
@@ -742,7 +742,7 @@ sub refHeritage
                my @heritage;
 
                while( 1 ) {
-                               push @heritage, $node;
+                               push @heritage, $node->{Ref};
 
                                last unless defined $node->{Parent};
                                $node = $node->{Parent};
index 73ce4f8903c720d09753bf8375917ae3af9d9f61..178ebd8cc26662ab42055acffe44d7084623ff52 100644 (file)
@@ -166,7 +166,7 @@ sub writeAnnotatedList
                $col = $col ? 0 : 1;
                $colour = $col ? "" : 'bgcolor="#eeeeee"';
 
-               print CLIST "<TR $colour><TD>", refNameFull( $node ), 
+               print CLIST "<TR $colour><TD>", refNameFull( $node, $rootnode, 1 ), 
                        "</TD><TD>", $short, "</TD></TR>";
        }
 
@@ -241,7 +241,7 @@ sub writeHier
                        my $src = defined $node->{ExtSource} ?
                                " ($node->{ExtSource})" : "";
 
-                       print HIER "<LI>", refNameFull( $node )," $src\n";
+                       print HIER "<LI>", refNameFull( $node, $rootnode, 1 )," $src\n";
                },
                sub {   # up
                        if ( $_[0] == $root ) {
@@ -313,7 +313,7 @@ sub writeClassDoc
                return;
        }
 
-       my $file = "$outputdir/".join("__", kdocAstUtil::heritage($node)).".html";
+       my $file = "$outputdir/".$node->{Ref};
        my $docnode = $node->{DocNode};
        my @list = ();
        my $version = undef;
@@ -390,7 +390,7 @@ sub writeClassDoc
                                $out .= $comma.esc($name);
                        }
                        else {
-                               $out .= $comma.refNameFull( $ances );
+                               $out .= $comma.refNameFull( $ances, $rootnode, 1 );
                        }
                        
                        $out .= " &lt;".wordRef($template, $rootnode )."&gt;"
@@ -417,7 +417,7 @@ sub writeClassDoc
                sub { $comma = $out = ""; },            # start
                sub {                                   # print
                        my ( $in ) = @_;
-                       $out .= $comma.refName( $in );
+                       $out .= $comma.refName( $in, 1 );
 
                        if ( exists $in->{ExtSource} ) {
                                $short .= " <small>(".
@@ -433,7 +433,7 @@ sub writeClassDoc
        );
 
        $extra .= '<TR><TH>'.
-               hyper( encodeURL("full-list-".$node->{Ref}),
+               hyper( "full-list-".$node->{Ref},
                        "List of all Methods" )."</TH></TR>";
 
 

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.