[Bio] / FigWebServices / save_roles_to_attributes.cgi Repository:
ViewVC logotype

View of /FigWebServices/save_roles_to_attributes.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Mon Mar 19 21:21:39 2007 UTC (12 years, 8 months ago) by hwang
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, rast_rel_2008_06_18, myrast_rel40, rast_rel_2008_06_16, mgrast_dev_05262011, rast_rel_2008_12_18, mgrast_dev_04082011, rast_rel_2008_07_21, rast_rel_2010_0928, rast_2008_0924, mgrast_version_3_2, mgrast_dev_12152011, rast_rel_2008_04_23, mgrast_dev_06072011, rast_rel_2008_09_30, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, mgrast_rel_2008_0924, mgrast_rel_2008_1110_v2, rast_rel_2009_02_05, rast_rel_2011_0119, mgrast_rel_2008_0625, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, rast_rel_2008_10_09, mgrast_dev_04012011, rast_release_2008_09_29, mgrast_rel_2008_0806, mgrast_rel_2008_0923, mgrast_rel_2008_0919, rast_rel_2009_07_09, rast_rel_2010_0827, mgrast_rel_2008_1110, myrast_33, rast_rel_2011_0928, rast_rel_2008_09_29, mgrast_rel_2008_0917, rast_rel_2008_10_29, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, rast_rel_2008_11_24, rast_rel_2008_08_07, HEAD
Added files to display and show precomputed literature for functional roles within subsystem

#/usr/bin/perl
use FIG;
use strict;
use CGI;
use FigWebServices::SeedComponents::PubMed;

my $cgi =  new CGI;
my $fig =  new FIG;

print $cgi->header;
my @params = $cgi->param;
my $role = $cgi->param("role");
my $curator = $cgi->param("curator");
my $subsystem = $cgi->param("subsystem");

my @all_pmids;
my @delete_pmid;

if((!$curator ) || ($curator eq 'your name')) {
	
	print "You did not specify your name. Press the back button<p>";
	exit;
}

foreach (@params) {
	if ($_ =~ m/not/) {
	  $_ =~ s/not-//;	
	  push (@delete_pmid, $_);
	}
	else {
	  next if ($_ !~ m/\d+/);
	  my $pmid = $cgi->param($_);
 	  push (@all_pmids, $pmid);
	  
	}
}

my $curator_list = $cgi->param("PMID");
my @curator_pmids = split(/\s/,$curator_list);
foreach (@curator_pmids) {
	next if ($_ =~ m/PMID/);
	$_ =~ s/://;
	push (@all_pmids, $_);
	
}

foreach (@delete_pmid) {
	$fig->delete_matching_attributes("Role:$role", "ROLE_PUBMED_CURATED_RELEVANT", "$_%");
	$fig->delete_matching_attributes("Role:$role", "ROLE_FROM_PEG_RELEVANT", "$_%");
}

#Add relevant pmids to the attribute database
foreach (@all_pmids) {
	my $pmid = $_;		
	$fig->delete_matching_attributes("Role:$role", "ROLE_PUBMED_CURATED_RELEVANT", "$pmid%");
	
	my $pmid_author_date_title_output = &FigWebServices::SeedComponents::PubMed::get_author_date_title($pmid);

	my ($add_pmid, $add_author, $add_date, $add_title) = split(/;/,$pmid_author_date_title_output);
	my $add_value = "$add_pmid\;$curator\;$add_author\;$add_date\;$add_title";
	print "Add Role:$role $add_value<p>";
	$fig->add_attribute("Role:$role", "ROLE_PUBMED_CURATED_RELEVANT", "$add_value");
	$fig->delete_matching_attributes("Role:$role", "ROLE_PUBMED_NOTCURATED", "$pmid%");
}
print "Information have been updated. Go to <a href=\"display_role_literature.cgi?subsys=$subsystem&role=$role\">functional role page</a><p>";






MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3