order_by update
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 22 Aug 2006 15:34:08 +0000 (15:34 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 22 Aug 2006 15:34:08 +0000 (15:34 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5640 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm

index 5108505..81daf3b 100644 (file)
@@ -497,12 +497,11 @@ sub recent_changes {
 
        my $_storage = OpenSRF::AppSession->create( 'open-ils.cstore' );
 
-       return $_storage
-               ->request(
-                       "open-ils.cstore.direct.$type.record_entry.id_list.atomic",
-                       { $axis => { ">" => $when }, id => { '>' => 0 } },
-                       { order_by => "$axis desc", limit => $limit } )
-               ->gather(1);
+       return $_storage->request(
+               "open-ils.cstore.direct.$type.record_entry.id_list.atomic",
+               { $axis => { ">" => $when }, id => { '>' => 0 } },
+               { order_by => { bre => "$axis desc" }, limit => $limit }
+       )->gather(1);
 }
 
 for my $t ( qw/biblio authority/ ) {
@@ -519,7 +518,7 @@ for my $t ( qw/biblio authority/ ) {
                                        [
                                                { name => 'when',
                                                  desc => "Date to start looking for ${a}ed records",
-                                                 default => 'today',
+                                                 default => '1-01-01',
                                                  type => 'string' },
 
                                                { name => 'limit',