From 88fe5178c0f3b38ad07708841bb2fc5ff4de6f3d Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 26 Jun 2007 17:18:13 +0000 Subject: [PATCH] excluding deleted volumes git-svn-id: svn://svn.open-ils.org/ILS/trunk@7472 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../OpenILS/Application/Storage/Publisher/asset.pm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm index 80576d729b..b5c6dc6db0 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/asset.pm @@ -229,8 +229,8 @@ sub cn_browse_pagedown { from $table cn where - (upper(label) > ? - or ( cn.id > ? and upper(label) = ? )) + not deleted + and (upper(label) > ? or ( cn.id > ? and upper(label) = ? )) and owning_lib in ($orgs) order by upper(label), 4, 2 limit $size; @@ -284,8 +284,8 @@ sub cn_browse_pageup { from $table cn where - (upper(label) < ? - or ( cn.id < ? and upper(label) = ? )) + not deleted + and (upper(label) < ? or ( cn.id < ? and upper(label) = ? )) and owning_lib in ($orgs) order by upper(label) desc, 4 desc, 2 desc limit $size @@ -342,7 +342,8 @@ sub cn_browse_target { from $table cn where - upper(label) < ? + not deleted + and upper(label) < ? and owning_lib in ($orgs) order by upper(label) desc, 4 desc, 2 desc limit $topsize @@ -359,7 +360,8 @@ sub cn_browse_target { from $table cn where - upper(label) >= ? + not deleted + and upper(label) >= ? and owning_lib in ($orgs) order by upper(label),4,2 limit $bottomsize; -- 2.11.0