[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.662, Thu Feb 21 16:36:23 2008 UTC revision 1.663, Thu Feb 21 16:39:57 2008 UTC
# Line 16629  Line 16629 
16629  sub delete_subsystem {  sub delete_subsystem {
16630      my($self,$sub) = @_;      my($self,$sub) = @_;
16631    
16632      if (my $subF = $fig->get_subsystem($sub))      if (my $subF = $self->get_subsystem($sub))
16633      {      {
16634          $subF->delete_indices();          $subF->delete_indices();
16635          &FIG::run("rm -r \"$FIG_Config::data/Subsystems/$sub\"");          &FIG::run("rm -r \"$FIG_Config::data/Subsystems/$sub\"");
# Line 16639  Line 16639 
16639  sub rename_subsystem {  sub rename_subsystem {
16640      my($self,$from,$to) = @_;      my($self,$from,$to) = @_;
16641    
16642      if (my $subF = $fig->get_subsystem($from))      if (my $subF = $self->get_subsystem($from))
16643      {      {
16644          $subF->delete_indices();          $subF->delete_indices();
16645          if (rename("$FIG_Config::data/Subsystems/$from","$FIG_Config::data/Subsystems/$to"))          if (rename("$FIG_Config::data/Subsystems/$from","$FIG_Config::data/Subsystems/$to"))

Legend:
Removed from v.1.662  
changed lines
  Added in v.1.663

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3