cgi-bin/image/index.pl

   1 use CatalystX::GlobalContext qw( $c );
   2 use strict;
   3 use warnings;
   4
   5 use CGI;
   6 use CXGN::DB::Connection;
   7 use CXGN::Login;
   8
   9 my $q = CGI->new();
  10 my $dbh = CXGN::DB::Connection->new();
  11 my $login = CXGN::Login->new($dbh);
  12
  13 my $person_id = $login->has_session();
  14
  15 my ($image_id, $size) = ($q->param("image_id"), $q->param("size"));
  16
  17 $c->forward_to_mason_view('/image/index.mas', object_id=>$image_id, size=>$size, person_id=>$person_id, dbh=>$dbh);
  18