no need to warn when orgid is null in find_org(), that's not an uncommon occurrence...

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@13309 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
index 1d7895a..020e967 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/AppUtils.pm
@@ -773,13 +773,7 @@ sub fetch_stat_cat_entry {
 
 sub find_org {
        my( $self, $org_tree, $orgid )  = @_;
-       if (!$org_tree) {
-               $logger->warn("find_org() did not receive a value for \$org_tree");
-               return undef;
-       } elsif (!$orgid) {
-               $logger->warn("find_org() did not receive a value for \$orgid");
-               return undef;
-    }
+    return undef unless $org_tree and defined $orgid;
        return $org_tree if ( $org_tree->id eq $orgid );
        return undef unless ref($org_tree->children);
        for my $c (@{$org_tree->children}) {