cgi-bin/cview_old/view_maps.pl

   1 use CatalystX::GlobalContext qw( $c );
   2
   3 use strict;
   4
   5 use CXGN::Page;
   6 use CXGN::DB::Connection;
   7
   8 print STDERR "Create page object...\n";
   9 my $page = CXGN::Page->new("", "");
  10
  11 my $dbh;
  12 print STDERR "Creating DB connection...\n";
  13 my $dbh = CXGN::DB::Connection->new();
  14
  15 print STDERR "Retrieving page arguments...\n";
  16  my ($center_map, $center_map_version_id, $show_physical, $show_ruler, $show_IL, $left_map, $left_map_version_id, $right_map, $right_map_version_id, $color_model)
  17      = $page->get_encoded_arguments("center_map", "center_map_version_id", "show_physical", "show_ruler", "show_IL", "left_map", "left_map_version_id",  "right_map", "right_map_version_id", "color_model");
  18
  19 print STDERR "Marker 2\n";
  20
  21 print STDERR "forwarding to mason view...\n";
  22 $c->forward_to_mason_view('/cview/map/comparison.mas',
  23                           dbh=>$dbh,
  24                           center_map=>$center_map,
  25                           center_map_version_id=>$center_map_version_id,
  26                           show_physical=>$show_physical,
  27                           show_ruler=>$show_ruler,
  28                           show_IL=>$show_IL,
  29                           left_map=>$left_map,
  30                           left_map_version_id=>$left_map_version_id,
  31                           right_map=>$right_map,
  32                           right_map_version_id=>$right_map_version_id,
  33                           color_model=>$color_model,
  34     );
  35
  36 print STDERR "This statement is never executed.\n";
  37
  38