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

Diff of /FigWebServices/aliases_to_pubmed.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5, Tue Nov 28 20:11:41 2006 UTC revision 1.8, Tue Mar 20 18:15:29 2007 UTC
# Line 9  Line 9 
9    
10  my $id_string = $cgi->param("ids");  my $id_string = $cgi->param("ids");
11  my $peg = $cgi->param("peg");  my $peg = $cgi->param("peg");
12    my $role;
13    
14  &print_header;  &print_header;
15  &print_verbiage;  &print_verbiage;
# Line 35  Line 36 
36  my (@show_notr_publications, @show_r_publications);  my (@show_notr_publications, @show_r_publications);
37  my ($publication_div, $publication_relevant_div, $publication_notrelevant_div);  my ($publication_div, $publication_relevant_div, $publication_notrelevant_div);
38    
39  my @pubmed_rel_attributes = $fig->get_attributes($peg,"PUBMED_CURATED_RELEVANT",undef,undef);  my @pubmed_rel_attributes = $fig->get_attributes($peg,"PUBMED_CURATED_RELEVANT");
40  my @pubmed_notrel_attributes = $fig->get_attributes($peg,"PUBMED_CURATED_NOTRELEVANT",undef,undef);  my @pubmed_notrel_attributes = $fig->get_attributes($peg,"PUBMED_CURATED_NOTRELEVANT");
41  my @pubmed_attributes = $fig->get_attributes($peg,"PUBMED",undef,undef);  my @pubmed_attributes = $fig->get_attributes($peg,"PUBMED");
42    
43  &process_attributes(\@pubmed_attributes, "pubmed_plain");  &process_attributes(\@pubmed_attributes, "pubmed_plain");
44  &process_attributes(\@pubmed_rel_attributes, "relevant");  &process_attributes(\@pubmed_rel_attributes, "relevant");
# Line 116  Line 117 
117    
118  }  }
119    
120    
121  sub print_peg_info {  sub print_peg_info {
122  my $role = $fig->function_of($peg);  $role = $fig->function_of($peg);
123  print $cgi->hr();  print $cgi->hr();
124  print "<table>";  print "<table>";
125  print "<tr><td bgcolor=#D2E6F0>Functional Role</td><td> $role</td></tr></table>";  print "<tr><td bgcolor=#D2E6F0>Functional Role</td><td> $role</td></tr></table>";
# Line 143  Line 145 
145    
146  <input type=\"hidden\" name=\"listOfItems\" value=\"\">  <input type=\"hidden\" name=\"listOfItems\" value=\"\">
147  <input type=\"hidden\" name=\"all_publications\" value=\"$publication_info\">  <input type=\"hidden\" name=\"all_publications\" value=\"$publication_info\">
 <input type=\"hidden\" name=\"listOfPeg\" value=\"$peg_list\">  
 <input type=\"hidden\" name=\"purpose\" value=\"peg\">  
148  <input type=\"hidden\" name=\"purpose_peg\" value=\"$peg\">  <input type=\"hidden\" name=\"purpose_peg\" value=\"$peg\">
149    <input type=\"hidden\" name=\"functional_role\" value=\"$role\">
150  <input type=\"textbox\" size=50 name=\"PMID\" value=\"PMID1 PMID2 PMID3\"> Publication Identifier (Multiple PMIDs should be separated by a space)  <input type=\"textbox\" size=50 name=\"PMID\" value=\"PMID1 PMID2 PMID3\"> Publication Identifier (Multiple PMIDs should be separated by a space)
151  PMID  PMID
152  </form>  </form>

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3