fix rcmd routing

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6202bb7a657cb0accbe6f9e31df00528381cc342..0f8aaebf78e65027d1ef634cf84ae9ad21116d5a 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1582,9 +1582,9 @@ sub process_rcmd
        } else {
                my $ref = DXUser->get_current($tonode);
                if ($ref && $ref->is_clx) {
-                       $self->route($tonode, pc84($tonode, $fromnode, $user, $cmd));
+                       $self->route($tonode, pc84($fromnode, $tonode, $user, $cmd));
                } else {
-                       $self->route($tonode, pc34($tonode, $fromnode, $cmd));
+                       $self->route($tonode, pc34($fromnode, $tonode, $cmd));
                }
        }
 }