From d080e054a6b4eae34bc3b6a5f093653af328e545 Mon Sep 17 00:00:00 2001
From: jlb <jlb>
Date: Thu, 9 Jan 2003 16:34:34 +0000
Subject: [PATCH] bug fix

---
 scripts/adherents/adh2list.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/adherents/adh2list.pl b/scripts/adherents/adh2list.pl
index ed8d4732f59..686088e3b69 100755
--- a/scripts/adherents/adh2list.pl
+++ b/scripts/adherents/adh2list.pl
@@ -49,7 +49,7 @@ $sth->execute;
 
 # get emails of adherents
 while (my @row = $sth->fetchrow_array ){
-    print int($row[0]);
+    print "$row[0]\n";
     push (@adh,$row[0]);
 }