sandbox « doc - ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

hl kwc">my $page=shift;

    my @ret;

    my $path="";

    my $title=$config{wikiname};

    my $i=0;

    my $depth=0;

    my $height=0;

    my @pagepath=(split("/", $page));

    my $pagedepth=@pagepath;

    foreach my $dir (@pagepath) {

        next if $dir eq 'index';

        $depth=$i;

        $height=($pagedepth - $depth);

        push @ret, {

            url => urlto($path, $page),

            page => $title,

            depth => $depth,

            height => $height,

            "depth_$depth" => 1,

            "height_$height" => 1,

};

        $path.="/".$dir;

        $title=pagetitle($dir);

$i++;

}

    return @ret;

} #}}}

sub pagetemplate (@) { #{{{

    my %params=@_;

        my $page=$params{page};

        my $template=$params{template};

    if ($template->query(name => "parentlinks")) {

        $template->param(parentlinks => [parentlinks($page)]);

}

} # }}}