--- /var/www/extranet/twiki/lib/TWiki/Plugins/PollPlugin.pm.orig	2003-04-12 13:35:07.000000000 -0500
+++ /var/www/extranet/twiki/lib/TWiki/Plugins/PollPlugin.pm	2003-04-15 10:39:15.000000000 -0500
@@ -194,13 +194,18 @@
     foreach $j ( reverse sort keys %exequo ) {
 	if ( $i < $limit ) {
 	    $i++;
-	    my $items = join($aexequosep, @{$exequo{$j}});
-	    my $lf = "$lineformat";
+	    #my $items = join($aexequosep, @{$exequo{$j}});
+	    my @items = @{$exequo{$j}};
+	    #my $lf = "$lineformat";
 	    my $perc = $j*100/$total;
-	    $lf =~ s/\$items/$items/g;
-	    $lf =~ s/\$count/$j/g;
-	    $lf =~ s/\$perc/$perc/g;
-    	    $str .= "$lf\n";
+	    for my $item (@items) {
+	        my $lf = "$lineformat";
+	        #$lf =~ s/\$items/$items/g;
+	        $lf =~ s/\$items/$item/g;
+	        $lf =~ s/\$count/$j/g;
+	        $lf =~ s/\$perc/$perc/g;
+    	        $str .= "$lf\n";
+	    }
 	}
     }    
     return $str;