cgi-bin/phenome/associate_unigene.pl

   1 use strict;
   2 use warnings;
   3
   4 use CXGN::Scrap::AjaxPage;
   5 use CXGN::DB::Connection;
   6 use CXGN::Login;
   7 use CXGN::Phenome::Locus;
   8 use CXGN::Feed;
   9
  10 my $dbh = CXGN::DB::Connection->new();
  11 my($login_person_id,$login_user_type)=CXGN::Login->new($dbh)->verify_session();
  12
  13 if ($login_user_type eq 'curator' || $login_user_type eq 'submitter' || $login_user_type eq 'sequencer') {
  14
  15
  16     my $doc = CXGN::Scrap::AjaxPage->new();
  17     my ($locus_id, $unigene_id, $sp_person_id) = $doc->get_encoded_arguments("locus_id", "unigene_id", "sp_person_id");
  18
  19     eval {
  20         my $locus=CXGN::Phenome::Locus->new($dbh, $locus_id);
  21         $locus->add_unigene($unigene_id, $sp_person_id);
  22
  23     };
  24     if ($@) { warn "locus-unigene association failed! (locus_id= $locus_id, unigene_id=$unigene_id person_id=$sp_person_id)"; }
  25     else  {
  26
  27         my $subject="[New unigene associated] locus $locus_id";
  28         #my $username= $self->get_user()->get_first_name()." ".$self->get_user()->get_last_name();
  29         my $fdbk_body="user $login_person_id has associated unigene $unigene_id with locus $locus_id  \n ";
  30         CXGN::Contact::send_email($subject,$fdbk_body, 'sgn-db-curation@sgn.cornell.edu');
  31         CXGN::Feed::update_feed($subject,$fdbk_body);
  32     }
  33 }