GCMD Keywords can return their children

USGCRP · Mar 5, 2018 · 20b6dc8 · 20b6dc8
1 parent 3ab4d38
commit 20b6dc8
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/lib/Tuba.pm b/lib/Tuba.pm
@@ -447,6 +447,7 @@ sub startup {
     $r->resource('organization_alternate_name');
 
     $r->resource('gcmd_keyword');
+    $r->get('/gcmd_keyword/:gcmd_keyword/children')->to('gcmd_keyword#children');
     $r->resource('region');
     $report->get('/region')->to('region#list')->name('list_report_regions');
     $r->resource('dataset');

diff --git a/lib/Tuba/GcmdKeyword.pm b/lib/Tuba/GcmdKeyword.pm
@@ -24,6 +24,19 @@ sub show {
     $c->SUPER::show(@_);
 }
 
+sub children {
+    my $c = shift;
+    my $gcmd_keyword = $c->stash('gcmd_keyword');
+
+    my $obj = GcmdKeyword->new(
+      identifier        => $gcmd_keyword,
+      )->load(speculative => 1) or return $c->reply->not_found;
+    my $keywords = $obj->gcmd_keywords;
+    $c->stash(objects => $keywords);
+    $c->stash(extra_cols => [qw/label/]);
+    $c->SUPER::list();
+}
+
 sub _guess_object_class {
     return 'Tuba::DB::Object::GcmdKeyword';
 }