cgi-bin/tools/networkbrowser/index.pl

   1
   2 use strict;
   3 use warnings;
   4
   5 use File::Temp;
   6 use File::Spec;
   7 use CXGN::Page;
   8 use CXGN::Sunshine::Browser;
   9 use CXGN::Sunshine::Node;
  10 use CXGN::Tools::WebImageCache;
  11
  12 my $page = CXGN::Page->new("Sunshine", "Lukas");
  13
  14 my ($name, $type, $level, $force, $hide_relationships, $hilite) = $page->get_encoded_arguments("name", "type", "level", "force", "hide", "hilite");
  15
  16 $name = $name || "0";
  17 $type = $type || "0";
  18 $level = $level || "0";
  19
  20 $page->jsan_use("MochiKit.DOM");
  21 $page->jsan_use("MochiKit.Async");
  22 $page->jsan_use("Prototype");
  23 $page->jsan_use("CXGN.Sunshine.NetworkBrowser");
  24
  25 $page->header("SGN Sunshine Browser", "SGN Network Browser");
  26
  27 print <<JAVASCRIPT;
  28
  29 <table><tr><td height="450" width="450"><div id=\"network_browser\" >\[loading...\]</div></td><td width="250"><div id="relationships_legend">[Legend]</div><br /><div id="level_selector">[Levels]</div></td></tr></table>
  30
  31     <script language="javascript" type="text/javascript">
  32
  33 //    document.write('HELLO FROM JAVASCRIPT');
  34
  35  var nb = new CXGN.Sunshine.NetworkBrowser();
  36 //nb = new CXGN.Sunshine.NetworkBrowser();
  37
  38 nb.setLevel($level);
  39 nb.setType('$type');
  40 nb.setName('$name');
  41 nb.setHilite('$hilite');
  42 nb.fetchRelationships();
  43 //nb.setHiddenRelationshipTypes('$hide_relationships');
  44 nb.initialize();
  45
  46 </script>
  47
  48 JAVASCRIPT
  49
  50 $page->footer();