From 34d412e86242d791c32b10240b846415e7731155 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 13 Jan 2006 22:19:57 +0000 Subject: [PATCH] sanity checks and server side sorting when fetching all stat cats git-svn-id: svn://svn.open-ils.org/ILS/trunk@2710 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Circ/StatCat.pm | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/StatCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/StatCat.pm index 57a357b32f..fa83ccfc28 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/StatCat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/StatCat.pm @@ -45,9 +45,10 @@ sub retrieve_stat_cats { my $user_obj = $apputils->check_user_session($user_session); if(!$orgid) { $orgid = $user_obj->home_ou; } - - return $apputils->simple_scalar_request( + my $cats = $apputils->simple_scalar_request( "open-ils.storage", $method, $orgid ); + + return [ sort { $a->name cmp $b->name } @$cats ]; } @@ -132,9 +133,11 @@ sub stat_cat_create { my $session = $apputils->start_db_session(); my $newid = _create_stat_cat($session, $stat_cat, $method); - for my $entry (@{$stat_cat->entries}) { - $entry->stat_cat($newid); - _create_stat_entry($session, $entry, $entry_create); + if( ref($stat_cat->entries) ) { + for my $entry (@{$stat_cat->entries}) { + $entry->stat_cat($newid); + _create_stat_entry($session, $entry, $entry_create); + } } $apputils->commit_db_session($session); -- 2.43.2