[open-ils-commits] r16468 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-05-21 09:02:19 -0400 (Fri, 21 May 2010)
New Revision: 16468

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
allow caller to define the sort field/direction in PL retrieval call.  by default, sort most recently edited PLs to the front

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2010-05-21 13:02:18 UTC (rev 16467)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2010-05-21 13:02:19 UTC (rev 16468)
@@ -198,10 +198,10 @@
     # don't grab the PL with name == "", because that is the designated temporary picklist
     my $list = $e->search_acq_picklist([
             {
-                owner=>$e->requestor->id, 
-                name=>{'!='=>''}
+                owner => $e->requestor->id, 
+                name => {'!=' => ''}
             }, {
-                order_by => {acqpl => 'name'},
+                order_by => $$options{order_by} || {acqpl => 'edit_time DESC'},
                 limit => $$options{limit} || 10,
                 offset => $$options{offset} || 0,
             }