[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.2, Fri Sep 8 20:37:15 2006 UTC revision 1.3, Tue Sep 12 18:07:05 2006 UTC
# Line 37  Line 37 
37  my $pmid_output = &FIG::run_gathering_output("$FIG_Config::bin/get_pubmed_journals", $id_string);  my $pmid_output = &FIG::run_gathering_output("$FIG_Config::bin/get_pubmed_journals", $id_string);
38    
39  my @journals_list = split(/ /, $pmid_output);  my @journals_list = split(/ /, $pmid_output);
40    my %journals_list_seen = ();
41    
42    foreach (@journals_list) {
43            $journals_list_seen{$_} = $_;
44            #print "journals here are $_\n";
45    }
46    
47    #Add PubMed Attributes here
48    my @pubmed_attributes = $fig->get_attributes($peg, "PUBMED");
49    foreach (@pubmed_attributes) {
50    
51            my @line = @{$_};
52            #print "id is $line[2]\n";
53            if (! $journals_list_seen{$line[2]} ) {
54                    #print "pushing\n";
55                    push (@journals_list, $line[2]);
56            }
57    }
58    
59    
60  my @new_journals = &FigWebServices::SeedComponents::PubMed::sort_journals(\@journals_list);  my @new_journals = &FigWebServices::SeedComponents::PubMed::sort_journals(\@journals_list);
61  my $journal_htmltable = &FigWebServices::SeedComponents::PubMed::journals_as_htmltable(\@new_journals);  my $journal_htmltable = &FigWebServices::SeedComponents::PubMed::journals_as_htmltable(\@new_journals);
62    
# Line 107  Line 127 
127    
128  print $journal_htmltable;  print $journal_htmltable;
129    
130  if (!$pmid_output) {  if ($#journals_list < 0) {
131          print "PubMed journals found for this peg were not specific to this functional role<p>";          print "PubMed journals found for this peg were not specific to this functional role<p>";
132          return;  
133          }          }
134    
135    
# Line 137  Line 157 
157    
158  </form>  </form>
159    
160  <li> Drag and drop the PMID to the appropriate containers (Relevant Journal(s)/ Not Relevant Journal(s)). </li>  <li> Drag and drop the PMID to the appropriate containers (Relevant Journal(s)/ Not Relevant Journal(s)).
161    Containers will be empty if there are no pmid found for this peg.</li>
162  </div>  </div>
163  <div id=\"dhtmlgoodies_dragDropContainer\">  <div id=\"dhtmlgoodies_dragDropContainer\">
164          <div id=\"topBar\">          <div id=\"topBar\">

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3