From e51d0aa9293d8821c285ff573906a032e959d0c0 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Tue, 13 Jun 2000 23:00:34 +0000
Subject: [PATCH] fixed sh/node crash

---
 Changes        | 2 ++
 perl/DXUser.pm | 5 +++++
 2 files changed, 7 insertions(+)

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__
 
-- 
2.43.0