Changeset 264 for server

Timestamp:

01/02/11 01:54:09 (13 years ago)

Author:

nanardon

Message:

• fix q command with only one line results

File:

• server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm (modified) (2 diffs)

server/trunk/web/lib/Sophie/Controller/Chat/Cmd.pm

@@ -193 +193 @@
 
     my $res = $c->forward('/search/tags/name_regexp', $reqspec, $args[0]);
+    warn join(' ', @{ $res });
     if (!@{ $res }) {
         return $c->stash->{xmlrpc} = {
@@ -201 +202 @@
         while (@{ $res }) {
             my $str = '';
-            do {
+            while (length($str) < 70) {
                 my $item = shift(@{ $res }) or last;
                 $str .= ', ' if ($str);
                 $str .= $item->{name};
-            } while (length($str) < 70);
+            }
             push(@message, $str);
         }