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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-03-02 23:09:26 -0500 (Mon, 02 Mar 2009)
New Revision: 12369

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
Log:
get the highest ID

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-03-03 02:40:52 UTC (rev 12368)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Ingest.pm	2009-03-03 04:09:26 UTC (rev 12369)
@@ -401,7 +401,7 @@
 	my $xml = OpenILS::Application::Ingest::entityize($bib->marc);
 
 	my $cstore = OpenSRF::AppSession->connect( 'open-ils.cstore' );
-	my $cn = $cstore->request( 'open-ils.cstore.direct.asset.call_number.search' => { id => { '!=' => undef } }, { limit => 1 } )->gather(1);
+	my $cn = $cstore->request( 'open-ils.cstore.direct.asset.call_number.search' => { id => { '!=' => undef } }, { limit => 1, order_by => { acn => 'id desc' } } )->gather(1);
     $cstore->disconnect;
 
     my $max_cn = int($cn->id) + 1000;