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

[svn at svn.open-ils.org]

Author: miker
Date: 2011-03-02 15:43:17 -0500 (Wed, 02 Mar 2011)
New Revision: 19560

Modified:
   trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/SuperCat.pm
Log:
Call number sorting "before" the context needs to be segregated based on directly on the label, "here-and-after" on the bytea version.  Testing bears this out, but more eyes would be appreciated.

Modified: trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/SuperCat.pm	2011-03-02 03:04:36 UTC (rev 19559)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/SuperCat.pm	2011-03-02 20:43:17 UTC (rev 19560)
@@ -299,7 +299,7 @@
 	if ($page <= 0) {
 		my $before = $_storage->request(
 			"open-ils.cstore.direct.asset.call_number.search.atomic",
-			{ label		=> { "<" => { transform => "oils_text_as_bytea", value => ["oils_text_as_bytea", $label] } },
+			{ label		=> { "<" => $label },
 			  owning_lib	=> \@ou_ids,
               deleted => 'f',
               @cp_filter
@@ -422,7 +422,7 @@
 	if ($page < 0) {
 		my $before = $_storage->request(
 			"open-ils.cstore.direct.asset.call_number.search.atomic",
-			{ label		=> { "<" => { transform => "oils_text_as_bytea", value => ["oils_text_as_bytea", $label] } },
+			{ label		=> { "<" => $label },
 			  owning_lib	=> \@ou_ids,
               deleted => 'f',
               @cp_filter