X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=efa5ff9b57d5e058eb3ac64c3a727e4296044bda;hb=6a13b9579ce372473e3c7f6347413a4eb1780248;hp=5f910bbbc4cc6ffd99ef40426f447797ce6b49b8;hpb=e8df1ab836f28cc7a703c524af0410070d4258cb;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5f910bbb..efa5ff9b 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -911,6 +911,7 @@ sub normal
 						my $new = Route->new($call);          # throw away
 						if ($self->in_filter_route($new)) {
 							my $ar = $parent->add($call, $ver, $flags);
+							$user->wantroutepc19(1) unless defined $user->wantroutepc19;
 							push @rout, $ar if $ar;
 						} else {
 							next;