added check for usage of show group carts

1 files changed, 15 insertions, 0 deletions

diff --git a/utils/rhrd-sanity-check b/utils/rhrd-sanity-check
index 9a698d8..a64a5b7 100755
--- a/utils/rhrd-sanity-check
+++ b/utils/rhrd-sanity-check
@@ -49,6 +49,12 @@ sub check_groups
 
   print "groups:\n";
 
+  my ($shows_low_cart, $shows_high_cart, $shows_chunk_size) = RHRD::rddb::get_shows_cart_range($ctx);
+  if(!$shows_low_cart) {
+    print "$shows_high_cart: $shows_chunk_size\n";
+    return 1;
+  }
+
   my @groups = RHRD::rddb::list_groups($ctx);
   if(!defined $groups[0] && defined $groups[1]) {
     print STDERR "$groups[1]: $groups[2]";
@@ -69,6 +75,15 @@ sub check_groups
     if(scalar @users == 0) {
       print " group: '" . $group . "' has no members\n";
     }
+
+    my @carts = RHRD::rddb::get_show_group_carts_used($ctx, $group);
+    if(!defined $carts[0] && defined $carts[1]) {
+      print STDERR "$carts[2]\n";
+      return 1;
+    }
+    if(scalar @carts == 0) {
+      print " group: '" . $group . "' no carts of range are used\n";
+    }
   }
   return 0;
 }