X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0f8aaebf78e65027d1ef634cf84ae9ad21116d5a;hb=618c97014cb5398a847da35ad2d41c7ee0b0a2ae;hp=6202bb7a657cb0accbe6f9e31df00528381cc342;hpb=234277129947277869ddb9cadd853e42b9ffd3f5;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6202bb7a..0f8aaebf 100644
--- 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));
 		}
 	}
 }