projekt kivitendo

  my %params      = @_;

  my $controller  = delete($params{controller}) || $self->_controller_name;

  my $action      = delete($params{action})     || 'dispatch';

  my $query       = join('&', map { $::form->escape($_) . '=' . $::form->escape($params{$_}) } keys %params);

  return "controller.pl?${query}";