[Bio] / FigKernelScripts / export_ACH_resolution_DB.pl Repository:
ViewVC logotype

Annotation of /FigKernelScripts/export_ACH_resolution_DB.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (view) (download) (as text)

1 : overbeek 1.1
2 :     use FIG;
3 :     my $fig = new FIG;
4 :    
5 : overbeek 1.2 my $rdbH = $fig->db_handle;
6 : overbeek 1.1
7 :     &FIG::verify_dir("$FIG_Config::data/ACHresolution");
8 : overbeek 1.2 if (open(DIFFS,">$FIG_Config::data/ACHresolution/diffs"))
9 : overbeek 1.1 {
10 :     my $relational_db_response = $rdbH->SQL("SELECT expertF,ourF,status FROM ACHres_diffs");
11 :     foreach my $tuple (@$relational_db_response)
12 :     {
13 :     print DIFFS join("\t",@$tuple),"\n";
14 :     }
15 :     close(DIFFS);
16 :     }
17 :    
18 : overbeek 1.2 if (open(COMMENTS,">$FIG_Config::data/ACHresolution/comments"))
19 : overbeek 1.1 {
20 : overbeek 1.2 my $relational_db_response = $rdbH->SQL("SELECT peg,func,who,comment FROM ACHres_comments");
21 : overbeek 1.1 foreach my $tuple (@$relational_db_response)
22 :     {
23 : overbeek 1.2 my($peg,$func,$who,$comment) = @$tuple;
24 :     print COMMENTS join("\t",($peg,$func,$who)),"\n$comment\n//\n";
25 : overbeek 1.1 }
26 :     close(COMMENTS);
27 :     }
28 :    

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3