From 7b3855c991e9d902dbf6690625f704db96625a06 Mon Sep 17 00:00:00 2001 From: Doug Bell Date: Wed, 4 Aug 2010 12:13:16 -0500 Subject: [PATCH] Remove old asset helpers replaced by CopyBranch --- lib/WebGUI/AssetHelper/Copy/WithChildren.pm | 58 ------------------- .../AssetHelper/Copy/WithDescendants.pm | 58 ------------------- 2 files changed, 116 deletions(-) delete mode 100644 lib/WebGUI/AssetHelper/Copy/WithChildren.pm delete mode 100644 lib/WebGUI/AssetHelper/Copy/WithDescendants.pm diff --git a/lib/WebGUI/AssetHelper/Copy/WithChildren.pm b/lib/WebGUI/AssetHelper/Copy/WithChildren.pm deleted file mode 100644 index 880a1e71b..000000000 --- a/lib/WebGUI/AssetHelper/Copy/WithChildren.pm +++ /dev/null @@ -1,58 +0,0 @@ -package WebGUI::AssetHelper::Copy::WithChildren; - -use strict; -use Class::C3; -use base qw/WebGUI::AssetHelper::Copy/; - -=head1 LEGAL - - ------------------------------------------------------------------- - WebGUI is Copyright 2001-2009 Plain Black Corporation. - ------------------------------------------------------------------- - Please read the legal notices (docs/legal.txt) and the license - (docs/license.txt) that came with this distribution before using - this software. - ------------------------------------------------------------------- - http://www.plainblack.com info@plainblack.com - ------------------------------------------------------------------- - -=head1 NAME - -Package WebGUI::AssetHelper::Copy::WithChildren - -=head1 DESCRIPTION - -Copy an Asset to the Clipboard, with children only. - -=head1 METHODS - -These methods are available from this class: - -=cut - -#------------------------------------------------------------------- - -=head2 duplicate ( $class, $asset ) - -Duplicates the asset with children, - -=cut - -sub duplicate { - my ($class, $asset) = @_; - return $asset->duplicateBranch(1); -} - -#------------------------------------------------------------------- - -=head2 getMessage ( ) - -Returns the name of the i18n message to use - -=cut - -sub getMessage { - return 'copied asset with children'; -} - -1; diff --git a/lib/WebGUI/AssetHelper/Copy/WithDescendants.pm b/lib/WebGUI/AssetHelper/Copy/WithDescendants.pm deleted file mode 100644 index b0e3600b5..000000000 --- a/lib/WebGUI/AssetHelper/Copy/WithDescendants.pm +++ /dev/null @@ -1,58 +0,0 @@ -package WebGUI::AssetHelper::Copy::WithDescendants; - -use strict; -use Class::C3; -use base qw/WebGUI::AssetHelper::Copy/; - -=head1 LEGAL - - ------------------------------------------------------------------- - WebGUI is Copyright 2001-2009 Plain Black Corporation. - ------------------------------------------------------------------- - Please read the legal notices (docs/legal.txt) and the license - (docs/license.txt) that came with this distribution before using - this software. - ------------------------------------------------------------------- - http://www.plainblack.com info@plainblack.com - ------------------------------------------------------------------- - -=head1 NAME - -Package WebGUI::AssetHelper::Copy::WithDescendants - -=head1 DESCRIPTION - -Copy an Asset to the Clipboard, with all descendants. - -=head1 METHODS - -These methods are available from this class: - -=cut - -#------------------------------------------------------------------- - -=head2 duplicate ( $class, $asset ) - -Duplicates the asset with descendants. - -=cut - -sub duplicate { - my ($class, $asset) = @_; - return $asset->duplicateBranch(); -} - -#------------------------------------------------------------------- - -=head2 getMessage ( ) - -Returns the name of the i18n message to use - -=cut - -sub getMessage { - return 'copied asset with descendants'; -} - -1;