diff --git a/lib/WebGUI/Asset/Wobject/Navigation.pm b/lib/WebGUI/Asset/Wobject/Navigation.pm index c9be0f16d..75b4f29f1 100644 --- a/lib/WebGUI/Asset/Wobject/Navigation.pm +++ b/lib/WebGUI/Asset/Wobject/Navigation.pm @@ -317,8 +317,8 @@ 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)) + if (($current->getLineageLength - $self->get("startPoint") + 1) * 6); } elsif ($self->get("startPoint") > 0) { my $lineage = $current->get("lineage"); for (1..$self->get("startPoint")) { diff --git a/lib/WebGUI/Form/Group.pm b/lib/WebGUI/Form/Group.pm index 354aeb59e..c0bf288ac 100644 --- a/lib/WebGUI/Form/Group.pm +++ b/lib/WebGUI/Form/Group.pm @@ -165,7 +165,7 @@ Creates a series of hidden fields representing the data in the list. sub toHtmlAsHidden { my $self = shift; - return WebGUI::Form::hiddenList->new( + return WebGUI::Form::HiddenList->new( value=>$self->{value}, defaultValue=>$self->{defaultValue}, name=>$self->{name},