Trennzeichen für Controller-Routing von :: auf / geändert

Conflicts:

	templates/webpages/messages/form.html
	templates/webpages/messages/list.html

diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm
index 06fd7fb..d9b1783 100644 (file)
--- a/SL/Controller/Base.pm
+++ b/SL/Controller/Base.pm
@@ -19,7 +19,7 @@ sub url_for {
   my %params      = @_;
   my $controller  = delete($params{controller}) || $self->_controller_name;
   my $action      = delete($params{action})     || 'dispatch';
-  $params{action} = "${controller}::${action}";
+  $params{action} = "${controller}/${action}";
   my $query       = join('&', map { $::form->escape($_) . '=' . $::form->escape($params{$_}) } keys %params);
 
   return "controller.pl?${query}";

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index c412f64..cc886d8 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -282,7 +282,7 @@ sub _route_controller_request {
   my ($controller, $action);
 
   eval {
-    $::form->{action}      =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) :: ( [a-z] [a-z0-9_]* ) $|x || die "Unroutable request -- inavlid controller/action.\n";
+    $::form->{action}      =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) / ( [a-z] [a-z0-9_]* ) $|x || die "Unroutable request -- inavlid controller/action.\n";
     ($controller, $action) =  ($1, $2);
     delete $::form->{action};