From 077c3e3a30c07735968cedd5d9da3ac0b51a7f42 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Thu, 4 Mar 1999 22:26:29 +0000
Subject: [PATCH] added code to cope with disappearing records

---
 perl/export_user.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/perl/export_user.pl b/perl/export_user.pl
index 2b21466b..3157d21a 100755
--- a/perl/export_user.pl
+++ b/perl/export_user.pl
@@ -40,9 +40,13 @@ package DXUser;
 
 for $a (@all) {
 	my $ref = DXUser->get($a);
-	my $s = $ref->encode();
+	if (ref $ref) {
+		my $s = $ref->encode();
 	
-	print "'$a' => qq{ $s },\n";
+		print "'$a' => q{ $s },\n";
+	} else {
+		print "# $a has gorn missing\n";
+	}
 	$count++;
 }
 print ");\n
-- 
2.34.1