Changeset 107

Timestamp:

12/10/10 02:36:41 (13 years ago)

Author:

nanardon

Message:

• process uniq and sort on perl side to ligth db server works

File:

• server/trunk/web/lib/Sophie/Controller/0Explorer.pm (modified) (1 diff)

server/trunk/web/lib/Sophie/Controller/0Explorer.pm

@@ -30 +30 @@
     my $rsdist = $c->forward('/search/distrib_search', [
             $c->session->{__explorer}, 1 ]);
-    $c->stash->{xmlrpc} = [ $c->model('Base')
-      ->resultset('Files')
-      ->search(
-          {
-              dirname => '/' . ($dir ? "$dir/" : ''),
-              ($rsdist 
-                ? (pkgid => { IN => $rsdist->get_column('pkgid')->as_query, },)
-                : ()),
-              ($c->req->param('filename')
-                  ? ( basename => { LIKE => $c->req->param('filename') . '%' } )
-                  : ()),
-          },
-          {
-              order_by => [ 'basename' ],
-              group_by => [ 'basename' ], 
-              select => [ 'basename' ],
-          }
-      )->get_column('basename')->all ];
+    my %uniq;
+    foreach (
+        $c->model('Base')
+        ->resultset('Files')
+        ->search(
+            {
+                dirname => '/' . ($dir ? "$dir/" : ''),
+                ($rsdist 
+                    ? (pkgid => { IN => $rsdist->get_column('pkgid')->as_query, },)
+                    : ()),
+                ($c->req->param('filename')
+                    ? ( basename => { LIKE => $c->req->param('filename') . '%' } )
+                    : ()),
+            },
+            {
+                #order_by => [ 'basename' ],
+                #group_by => [ 'basename' ], 
+                select => [ 'basename' ],
+            }
+        )->get_column('basename')->all) {
+        $uniq{$_} = 1;
+    }
+    $c->stash->{xmlrpc} = [ sort keys %uniq ]; 
 }