[open-ils-commits] r15103 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-12-08 12:30:05 -0500 (Tue, 08 Dec 2009)
New Revision: 15103

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm
Log:
order bookings by start time

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm	2009-12-08 16:53:24 UTC (rev 15102)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Booking.pm	2009-12-08 17:30:05 UTC (rev 15103)
@@ -12,6 +12,8 @@
 my $U = "OpenILS::Application::AppUtils";
 
 use OpenSRF::Utils::Logger qw/$logger/;
+use DateTime;
+use DateTime::Format::ISO8601;
 
 sub prepare_new_brt {
     my ($record_id, $owning_lib, $mvr) = @_;
@@ -295,6 +297,7 @@
         'select'   => { bresv => [ 'id' ] },
         'from'     => { bresv => {} },
         'where'    => {},
+        'order_by' => [{ class => bresv => field => start_time => direction => 'asc' }]
         'distinct' => 1
     };