[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.7, Tue Jan 16 23:34:26 2007 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 118  Line 119 
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 144  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.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3