From: djk <djk>
Date: Tue, 13 Jun 2000 23:00:34 +0000 (+0000)
Subject: fixed sh/node crash
X-Git-Tag: R_1_42~14
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e51d0aa9293d8821c285ff573906a032e959d0c0;p=spider.git

fixed sh/node crash
---

diff --git a/Changes b/Changes
index 77571734..7d060d2e 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+14Jun00=======================================================================
+1. fixed sh/node crash
 13Jun00=======================================================================
 1. fixed looping bug in C client on ending.
 12Jun00=======================================================================
diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 65aab42b..e2efad56 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -425,6 +425,11 @@ sub is_arcluster
 	return $self->{sort} eq 'R';
 }
 
+sub is_ak1a
+{
+	my $self = shift;
+	return $self->{sort} eq 'A';
+}
 1;
 __END__