X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;fp=perl%2FDXUser.pm;h=d2a0a12a31d51b4a519bbd6e4283dac8a0818c2b;hb=87b2f58b1b0df6c0cb5c5f0070db554ec2d2a961;hp=62f262907fc6fa0ba6a48750766d95632e555b8f;hpb=b045cd59e152bf125fb32d3c28cc49cf659b8a4d;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 62f26290..d2a0a12a 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -726,6 +726,12 @@ sub is_node
 	return $self->{sort} =~ /[ACRSX]/;
 }
 
+sub is_aranea
+{
+	my $self = shift;
+	return $self->{sort} eq 'W';
+}
+
 sub is_user
 {
 	my $self = shift;