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

Diff of /FigKernelScripts/export_ACH_resolution_DB.pl

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

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

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3