my $loc = $self->{ar}->location;
no warnings 'uninitialized';
$self->{path} =~ s/^($loc)?\///;
- $self->{path} ||= "frontpage";
- my @pi = split /\//, $self->{path};
- shift @pi while @pi and !$pi[0];
- $self->{table} = shift @pi;
- $self->{action} = shift @pi;
- $self->{args} = \@pi;
+ $self->parse_path;
$self->{params} = { $self->{ar}->content };
+ while (my ($key, $value) = each %{$self->{params}}) {
+ $self->{params}{$key} = '' unless defined $value;
+ }
$self->{query} = { $self->{ar}->args };
}