projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RDBO-Model von delivery_terms neu erzeugen, als Mapping hinzufügen
[kivitendo-erp.git]
/
SL
/
Dispatcher.pm
diff --git
a/SL/Dispatcher.pm
b/SL/Dispatcher.pm
index
1292f28
..
fe992ed
100644
(file)
--- a/
SL/Dispatcher.pm
+++ b/
SL/Dispatcher.pm
@@
-267,8
+267,6
@@
sub handle_request {
delete @{ $::form }{ grep { m/^\{AUTH\}/ } keys %{ $::form } } unless $auth_result{keep_auth_vars};
if ($action) {
delete @{ $::form }{ grep { m/^\{AUTH\}/ } keys %{ $::form } } unless $auth_result{keep_auth_vars};
if ($action) {
- $::instance_conf->init if $auth_result{auth_level} eq 'user';
-
$::form->set_standard_title;
if ($routing_type eq 'old') {
::call_sub('::' . $::locale->findsub($action));
$::form->set_standard_title;
if ($routing_type eq 'old') {
::call_sub('::' . $::locale->findsub($action));
@@
-352,7
+350,7
@@
sub _route_dispatcher_request {
my ($script_name, $action);
eval {
my ($script_name, $action);
eval {
- die "Unroutable request -- in
av
lid module name.\n" if !$::form->{M} || ($::form->{M} !~ m/^${name_re}$/);
+ die "Unroutable request -- in
va
lid module name.\n" if !$::form->{M} || ($::form->{M} !~ m/^${name_re}$/);
$script_name = $::form->{M} . '.pl';
if ($::form->{A}) {
$script_name = $::form->{M} . '.pl';
if ($::form->{A}) {
@@
-360,7
+358,7
@@
sub _route_dispatcher_request {
} else {
$action = first { m/^A_${name_re}$/ } keys %{ $::form };
} else {
$action = first { m/^A_${name_re}$/ } keys %{ $::form };
- die "Unroutable request -- in
av
lid action name.\n" if !$action;
+ die "Unroutable request -- in
va
lid action name.\n" if !$action;
delete $::form->{$action};
$action = substr $action, 2;
delete $::form->{$action};
$action = substr $action, 2;
@@
-381,7
+379,7
@@
sub _route_controller_request {
my ($controller, $action, $request_type);
eval {
my ($controller, $action, $request_type);
eval {
- $::form->{action} =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) / ( [a-z] [a-z0-9_]* ) ( \. [a-zA-Z]+ )? $|x || die "Unroutable request -- in
av
lid controller/action.\n";
+ $::form->{action} =~ m|^ ( [A-Z] [A-Za-z0-9_]* ) / ( [a-z] [a-z0-9_]* ) ( \. [a-zA-Z]+ )? $|x || die "Unroutable request -- in
va
lid controller/action.\n";
($controller, $action) = ($1, $2);
delete $::form->{action};
($controller, $action) = ($1, $2);
delete $::form->{action};