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

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.9, Mon Dec 22 21:34:15 2003 UTC revision 1.10, Tue Dec 23 17:38:35 2003 UTC
# Line 747  Line 747 
747    
748  =head1 install_translation_rules  =head1 install_translation_rules
749    
750  usage: &install_translation_rules($fig_disk,$package)  usage: &install_translation_rules($fig_disk,$from,$package)
751    
752  $fig_disk must be an absolute filename (begins with "/") giving the FIG to be updated.  $fig_disk must be an absolute filename (begins with "/") giving the FIG to be updated.
753    
# Line 757  Line 757 
757  =cut  =cut
758    
759  sub install_translation_rules {  sub install_translation_rules {
760      my($fig_disk,$package) = @_;      my($fig_disk,$from,$package) = @_;
761    
762      my $file = "$fig_disk/FIG/Data/Global/function.synonyms";      my $file = "$fig_disk/FIG/Data/Global/function.synonyms";
763      &force_absolute($fig_disk);      &force_absolute($fig_disk);
     &force_absolute($package);  
764      if (-d "$fig_disk/BackupTranslation_Rules") { system "rm -rf $fig_disk/BackupTranslation_Rules" }      if (-d "$fig_disk/BackupTranslation_Rules") { system "rm -rf $fig_disk/BackupTranslation_Rules" }
765      mkdir("$fig_disk/BackupTranslation_Rules",0777);      mkdir("$fig_disk/BackupTranslation_Rules",0777);
766      if (-s $file)      if (-s $file)
767      {      {
768          &FIG::run("cp $file $fig_disk/BackupTranslation_Rules");          &FIG::run("cp $file $fig_disk/BackupTranslation_Rules");
769      }      }
770      &FIG::run("$FIG_Config::bin/merge_translation_rules $fig_disk/BackupTranslation_Rules/function.synonyms $package > $file 2> $fig_disk/BackupTranslation_Rules/conflicts");      &FIG::run("$FIG_Config::bin/merge_translation_rules $fig_disk/BackupTranslation_Rules/function.synonyms $package $from > $file");
771      chmod 0777,$file;      chmod 0777,$file;
772  }  }
773    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3