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

Diff of /FigKernelScripts/initialize_ann_and_ev.pl

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

revision 1.2, Mon Feb 18 21:31:38 2008 UTC revision 1.3, Mon Feb 18 21:37:12 2008 UTC
# Line 11  Line 11 
11      &create_ann($dir,"assigned_functions","from original annotations",0);      &create_ann($dir,"assigned_functions","from original annotations",0);
12  }  }
13    
14  if (-s "$dir/proposed_non_ff_functions")  if (-s "$dir/proposed_functions")
15  {  {
16      &create_ann($dir,"proposed_non_ff_functions","based on unreliable automated assignments",2);      &create_ann($dir,"proposed_functions","based on FIGfams",1);
17  }  }
18    
19  if (-s "$dir/proposed_functions")  if (-s "$dir/proposed_non_ff_functions")
20  {  {
21      &create_ann($dir,"proposed_functions","based on FIGfams",1);      &create_ann($dir,"proposed_non_ff_functions","based on unreliable automated assignments",2);
22  }  }
23    
24  &create_ev_attributes($dir);  &create_ev_attributes($dir);
# Line 27  Line 27 
27  {  {
28      my($dir,$file,$note,$delta) = @_;      my($dir,$file,$note,$delta) = @_;
29    
     warn "Creating annotations \"$note\" from $file\n";  
   
30      if (open(ANN,">>$dir/annotations") && open(ASSIGN,"<$dir/$file"))      if (open(ANN,">>$dir/annotations") && open(ASSIGN,"<$dir/$file"))
31      {      {
32          $now = time;          $now = time;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3