mason/chado/relations.mas

   1 <%args>
   2   $principle
   3   $relationship_name
   4   $object_type_text
   5   $list_component
   6 </%args>
   7
   8 <& /util/import_javascript.mas, classes => [ 'CXGN.List' ] &>
   9
  10 <%init>
  11   use JSON::Any;
  12
  13     # make a hash of relationship_type => {
  14     #    upstream   => \@list_of_objects
  15     #    downstream => \@list_of_objects
  16     # }
  17     my %rels;
  18     push @{$rels{$_->[0]}{$_->[1]}}, $_->[2]
  19         for (
  20           ( map [ $m->scomp('/chado/cvterm_link.mas', cvterm =>  $_->type, inflect => ( $_->type->name =~ /_of$/ ? 'PL_N' : 'PL_V' ) ), 'downstream', $_->subject ], $principle->search_related("${relationship_name}_objects",undef, { prefetch => ['type','subject'] }) ),
  21           ( map [ $m->scomp('/chado/cvterm_link.mas', cvterm => $_->type ), 'upstream',   $_->object  ], $principle->search_related("${relationship_name}_subjects",undef,{ prefetch => ['type','object'] }) ),
  22         );
  23
  24     my $type = $principle->type ? $m->scomp('/chado/cvterm_link.mas', cvterm => $principle->type) : 'dataset';
  25
  26 </%init>
  27
  28 %  my $unique_num = 0;
  29 %  my $item_list_div;
  30 %  my $item_list_menu_div;
  31 %  my @item_json;
  32
  33 %  for my $reltype ( sort keys %rels ) {
  34 %    my $updown = $rels{$reltype};
  35 %       for my $direction ( 'upstream', 'downstream' ) {
  36 %         if( my $objects = $updown->{$direction} ) {
  37 %           $item_list_div = "item_list_".$unique_num;
  38 %           $item_list_menu_div = "item_list_menu_".$unique_num;
  39
  40 % my ($is,$are) = $reltype =~ /\w+[ _]of/i ? (' is a',' are') : ('','');
  41
  42 <&| /page/info_section.mas,
  43    title => $direction eq 'upstream' ? qq|$object_type_text this $type$is $reltype| : qq|$object_type_text that$are $reltype this $type|,
  44    is_subsection => 1,
  45 &>
  46   <div class="row well well-sm">
  47     <& $list_component,
  48        %ARGS,
  49        objects => $objects,
  50      &>
  51   </div>
  52   <div class="row well well-sm">
  53     <div id="<% $item_list_div %>"></div>
  54     Add items to a list:<br/><br/>
  55     <div id="<% $item_list_menu_div %>"></div>
  56   </div>
  57
  58 </&>
  59
  60
  61
  62 % my @items = map { $_->uniquename() } @$objects;
  63
  64 % push @item_json, JSON::Any->new->encode(\@items);
  65
  66 % $unique_num = $unique_num + 1;
  67
  68 %         }
  69 %       }
  70 %  }
  71
  72 % my $item_json_array = JSON::Any->new->encode(\@item_json);
  73
  74 <script>
  75
  76   jQuery(document).ready( function() {
  77     var items = eval(<% $item_json_array %>);
  78     var arrayLength = items.length;
  79
  80     for (var i = 0; i < arrayLength; i++) {
  81       var item_list = "item_list_"+i;
  82       var item_list_div = "#"+item_list;
  83       var item_list_menu = "item_list_menu_"+i;
  84       var item_list_menu_div = "#"+item_list_menu;
  85       if (jQuery.cookie("sgn_session_id") && items.length > 0) {
  86         var current_item = eval(items[i]).join("\n");
  87         jQuery(item_list_div).hide();
  88         jQuery(item_list_div).html(current_item);
  89
  90         addToListMenu(item_list_menu, item_list, 'div');
  91       }
  92       else {
  93         jQuery(item_list_menu_div).html('Log in to use lists.');
  94       }
  95     }
  96
  97   });
  98
  99 </script>