[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.65, Fri Apr 9 15:26:05 2004 UTC revision 1.66, Mon Apr 19 11:36:39 2004 UTC
# Line 2236  Line 2236 
2236          &verify_dir("$FIG_Config::organisms/$genome/UserModels/$user");          &verify_dir("$FIG_Config::organisms/$genome/UserModels/$user");
2237      }      }
2238    
2239      if ((($user eq "master") && open(TMP,">>$FIG_Config::organisms/$genome/assigned_functions")) ||      my $file;
2240          (($user ne "master") && open(TMP,">>$FIG_Config::organisms/$genome/UserModels/$user/assigned_functions")))      if ((($user eq "master") && ($file = "$FIG_Config::organisms/$genome/assigned_functions") && open(TMP,">>$file")) ||
2241            (($user ne "master") && ($file = "$FIG_Config::organisms/$genome/UserModels/$user/assigned_functions") && open(TMP,">>$file")))
2242      {      {
2243          flock(TMP,LOCK_EX) || confess "cannot lock assigned_functions";          flock(TMP,LOCK_EX) || confess "cannot lock assigned_functions";
2244          seek(TMP,0,2)      || confess "failed to seek to the end of the file";          seek(TMP,0,2)      || confess "failed to seek to the end of the file";
2245          print TMP "$peg\t$function\t$confidence\n";          print TMP "$peg\t$function\t$confidence\n";
2246          close(TMP);          close(TMP);
2247            chmod(0777,$file);
2248          return 1;          return 1;
2249      }      }
2250      return 0;      return 0;

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3