*** empty log message ***

This commit is contained in:
Matthew Wilson 2005-08-25 14:06:37 +00:00
parent e976bfae67
commit b8fc95d5bd

View file

@ -317,12 +317,12 @@ sub view {
} elsif ($self->get("startType") eq "relativeToCurrentUrl") {
if ($self->get("startPoint") < 0) {
$start = WebGUI::Asset->newByLineage(substr($current->get("lineage"),0,
($current->getLineageLength - $self->get("startPoint") + 1) * 6
($current->getLineageLength + $self->get("startPoint") + 1) * 6
));
} elsif ($self->get("startPoint") > 0) {
my $lineage = $current->get("lineage");
for (1..$self->get("startPoint")) {
$lineage .= $self->formatRank(1);
$lineage .= $self->formatRank($_);
}
$start = WebGUI::Asset->newByLineage($lineage);
}