fetchrow_array returns an array. duh.

diff --git a/gen/events.gen b/gen/events.gen
index 84b09fc2552958f5194750bc2527df9a7f0ee547..34dc4427ae5d2106e8cc37f91289c5473a984004 100755 (executable)
--- a/gen/events.gen
+++ b/gen/events.gen
@@ -22,8 +22,8 @@ $sth->execute || exit $MR_DBMS_ERR;
 umask 022;
 open(OUT, ">$outfile") || exit $MR_OCONFIG;
 
-while ($name = $sth->fetchrow_array) {
-    
+while (($name) = $sth->fetchrow_array) {
+
     $sth2 = $dbh->prepare("SELECT UNIQUE u.login FROM users u, imembers i, " .
                          "list l WHERE l.name = " . $dbh->quote($name) .
                          "AND l.list_id = i.list_id " .
@@ -37,7 +37,7 @@ while ($name = $sth->fetchrow_array) {
     print OUT $row;
     $maybecomma = "";
 
-    while ($member = $sth2->fetchrow_array) {
+    while (($member) = $sth2->fetchrow_array) {
        $row = "$maybecomma$member";
        $row =~ s/\0//g;
        print OUT $row;