[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Manage/Website RemovePackage.pm,1.7,1.8

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28092

Modified Files:
	RemovePackage.pm 
Log Message:
OIN-158: add option for removing all package directories


Index: RemovePackage.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Website/RemovePackage.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** RemovePackage.pm	17 Mar 2005 14:58:04 -0000	1.7
--- RemovePackage.pm	24 Mar 2005 05:31:01 -0000	1.8
***************
*** 22,28 ****
--- 22,40 ----
          website_dir => $self->_get_website_dir_param,
          package     => $self->_get_package_param,
+         full_remove => {
+             description =>
+                 'Flag to indicate whether we should also remove package files',
+             is_required => 'no',
+             do_validate => 'no',
+             is_boolean  => 'yes',
+         },
      };
  }
  
+ sub setup_task {
+     my ( $self ) = @_;
+     $self->_setup_context({ skip => 'read packages' });
+ }
+ 
  sub run_task {
      my ( $self ) = @_;
***************
*** 34,38 ****
          next unless ( $name );
          my $package = $repository->fetch_package( $name );
!         eval { $repository->remove_package( $package ) };
          my $action = "remove package $name";
          if ( $@ ) {
--- 46,53 ----
          next unless ( $name );
          my $package = $repository->fetch_package( $name );
!         eval {
!             $repository->remove_package( $package );
!             $package->remove_files( $self->param( 'website_dir' ) );
!         };
          my $action = "remove package $name";
          if ( $@ ) {