oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

operations now dynamically loaded

Browse source
This commit is contained in:
Len Kranendonk 2004-10-28 10:42:31 +00:00
parent ea9a3d5bfc
commit c01f16a27f
28 changed files with 244 additions and 180 deletions
Download patch file Download diff file Expand all files Collapse all files

267
lib/WebGUI/Operation.pm
View file

@ -11,30 +11,247 @@ package WebGUI::Operation;
#-------------------------------------------------------------------
use strict;
use WebGUI::Operation::Auth;
use WebGUI::Operation::Admin;
use WebGUI::Operation::Clipboard;
use WebGUI::Operation::Collateral;
use WebGUI::Operation::DatabaseLink;
use WebGUI::Operation::Group;
use WebGUI::Operation::Help;
use WebGUI::Operation::MessageLog;
use WebGUI::Operation::Package;
use WebGUI::Operation::Page;
use WebGUI::Operation::Profile;
use WebGUI::Operation::ProfileSettings;
use WebGUI::Operation::Replacements;
use WebGUI::Operation::Root;
use WebGUI::Operation::Scratch;
use WebGUI::Operation::Settings;
use WebGUI::Operation::Statistics;
use WebGUI::Operation::Style;
use WebGUI::Operation::Template;
use WebGUI::Operation::Theme;
use WebGUI::Operation::Trash;
use WebGUI::Operation::User;
use WebGUI::Operation::WebGUI;
use WebGUI::Operation::Navigation;
use WebGUI::Operation::MetaData;
use WebGUI::ErrorHandler;
=head1 NAME
Package WebGUI::Operation
=head1 DESCRIPTION
This package is provides dynamic loading capabilities for the WebGUI operations.
B<NOTE:>After adding a new operation, the operation / package name must be added to WebGUI::Operation::getOperations.
=head1 SYNOPSIS
use WebGUI::Operation;
$html = WebGUI::Operation::execute("switchAdminOn");
$hashRef = WebGUI::Operation::getOperations();
=head1 METHODS
These functions are available from this package:
=cut
#-------------------------------------------------------------------
=head2 execute ( name )
Loads the corresponding module for operation <name> and executes the operation.
Returns html in most cases.
=head3 name
The name of the operation to execute.
=cut
sub execute {
my $op = shift;
my ($output, $cmd);
my $operation = getOperations();
if ($operation->{$op}) {
# Load the module
$cmd = 'use '.$operation->{$op};
eval ($cmd);
WebGUI::ErrorHandler::fatalError("Couldn't compile operation: ".$operation->{$op}.". Root cause: ".$@) if ($@);
# Call the method
$cmd = $operation->{$op} . '::www_'.$op;
$output = eval($cmd);
WebGUI::ErrorHandler::fatalError("Couldn't execute operation : ".$cmd.". Root cause: ".$@) if ($@);
} else {
WebGUI::ErrorHandler::security("execute an invalid operation: ".$op);
}
return $output;
}
#-------------------------------------------------------------------
=head2 getOperations ( )
Returns a hash reference containing operation and package names.
=cut
sub getOperations {
return {
'switchOffAdmin' => 'WebGUI::Operation::Admin',
'switchOnAdmin' => 'WebGUI::Operation::Admin',
'auth' => 'WebGUI::Operation::Auth',
'displayLogin' => 'WebGUI::Operation::Auth',
'login' => 'WebGUI::Operation::Auth',
'displayAccount' => 'WebGUI::Operation::Auth',
'createAccount' => 'WebGUI::Operation::Auth',
'deactivateAccount' => 'WebGUI::Operation::Auth',
'logout' => 'WebGUI::Operation::Auth',
'recoverPassword' => 'WebGUI::Operation::Auth',
'init' => 'WebGUI::Operation::Auth',
'deleteClipboardItem' => 'WebGUI::Operation::Clipboard',
'deleteClipboardItemConfirm' => 'WebGUI::Operation::Clipboard',
'emptyClipboard' => 'WebGUI::Operation::Clipboard',
'emptyClipboardConfirm' => 'WebGUI::Operation::Clipboard',
'manageClipboard' => 'WebGUI::Operation::Clipboard',
'editCollateral' => 'WebGUI::Operation::Collateral',
'editCollateralSave' => 'WebGUI::Operation::Collateral',
'deleteCollateral' => 'WebGUI::Operation::Collateral',
'deleteCollateralConfirm' => 'WebGUI::Operation::Collateral',
'listCollateral' => 'WebGUI::Operation::Collateral',
'deleteCollateralFile' => 'WebGUI::Operation::Collateral',
'editCollateralFolder' => 'WebGUI::Operation::Collateral',
'editCollateralFolderSave' => 'WebGUI::Operation::Collateral',
'deleteCollateralFolder' => 'WebGUI::Operation::Collateral',
'deleteCollateralFolderConfirm' => 'WebGUI::Operation::Collateral',
'emptyCollateralFolder' => 'WebGUI::Operation::Collateral',
'emptyCollateralFolderConfirm' => 'WebGUI::Operation::Collateral',
'htmlArealistCollateral' => 'WebGUI::Operation::Collateral',
'htmlAreaviewCollateral' => 'WebGUI::Operation::Collateral',
'htmlAreaUpload' => 'WebGUI::Operation::Collateral',
'htmlAreaDelete' => 'WebGUI::Operation::Collateral',
'htmlAreaCreateFolder' => 'WebGUI::Operation::Collateral',
'copyDatabaseLink' => 'WebGUI::Operation::DatabaseLink',
'deleteDatabaseLink' => 'WebGUI::Operation::DatabaseLink',
'deleteDatabaseLinkConfirm' => 'WebGUI::Operation::DatabaseLink',
'editDatabaseLink' => 'WebGUI::Operation::DatabaseLink',
'editDatabaseLinkSave' => 'WebGUI::Operation::DatabaseLink',
'listDatabaseLinks' => 'WebGUI::Operation::DatabaseLink',
'manageUsersInGroup' => 'WebGUI::Operation::Group',
'deleteGroup' => 'WebGUI::Operation::Group',
'deleteGroupConfirm' => 'WebGUI::Operation::Group',
'editGroup' => 'WebGUI::Operation::Group',
'editGroupSave' => 'WebGUI::Operation::Group',
'listGroups' => 'WebGUI::Operation::Group',
'emailGroup' => 'WebGUI::Operation::Group',
'emailGroupSend' => 'WebGUI::Operation::Group',
'manageGroupsInGroup' => 'WebGUI::Operation::Group',
'addGroupsToGroupSave' => 'WebGUI::Operation::Group',
'deleteGroupGrouping' => 'WebGUI::Operation::Group',
'autoAddToGroup' => 'WebGUI::Operation::Group',
'autoDeleteFromGroup' => 'WebGUI::Operation::Group',
'listGroupsSecondary' => 'WebGUI::Operation::Group',
'manageUsersInGroupSecondary' => 'WebGUI::Operation::Group',
'addUsersToGroupSave' => 'WebGUI::Operation::Group',
'addUsersToGroupSecondarySave' => 'WebGUI::Operation::Group',
'deleteGroupingSecondary' => 'WebGUI::Operation::Group',
'viewHelp' => 'WebGUI::Operation::Help',
'viewHelpIndex' => 'WebGUI::Operation::Help',
'viewMessageLog' => 'WebGUI::Operation::MessageLog',
'viewMessageLogMessage' => 'WebGUI::Operation::MessageLog',
'editMetaDataField' => 'WebGUI::Operation::MetaData',
'manageMetaData' => 'WebGUI::Operation::MetaData',
'editMetaDataFieldSave' => 'WebGUI::Operation::MetaData',
'deleteMetaDataField' => 'WebGUI::Operation::MetaData',
'deleteMetaDataFieldConfirm' => 'WebGUI::Operation::MetaData',
'saveMetaDataSettings' => 'WebGUI::Operation::MetaData',
'listNavigation' => 'WebGUI::Operation::Navigation',
'editNavigation' => 'WebGUI::Operation::Navigation',
'editNavigationSave' => 'WebGUI::Operation::Navigation',
'copyNavigation' => 'WebGUI::Operation::Navigation',
'deleteNavigation' => 'WebGUI::Operation::Navigation',
'deployPackage' => 'WebGUI::Operation::Package',
'viewPageTree' => 'WebGUI::Operation::Page',
'movePageUp' => 'WebGUI::Operation::Page',
'movePageDown' => 'WebGUI::Operation::Page',
'cutPage' => 'WebGUI::Operation::Page',
'deletePage' => 'WebGUI::Operation::Page',
'deletePageConfirm' => 'WebGUI::Operation::Page',
'editPage' => 'WebGUI::Operation::Page',
'editPageSave' => 'WebGUI::Operation::Page',
'exportPage' => 'WebGUI::Operation::Page',
'exportPageStatus' => 'WebGUI::Operation::Page',
'pastePage' => 'WebGUI::Operation::Page',
'moveTreePageUp' => 'WebGUI::Operation::Page',
'rearrangeWobjects' => 'WebGUI::Operation::Page',
'moveTreePageDown' => 'WebGUI::Operation::Page',
'moveTreePageLeft' => 'WebGUI::Operation::Page',
'moveTreePageRight' => 'WebGUI::Operation::Page',
'editProfile' => 'WebGUI::Operation::Profile',
'editProfileSave' => 'WebGUI::Operation::Profile',
'viewProfile' => 'WebGUI::Operation::Profile',
'deleteProfileCategoryConfirm' => 'WebGUI::Operation::ProfileSettings',
'deleteProfileFieldConfirm' => 'WebGUI::Operation::ProfileSettings',
'editProfileCategorySave' => 'WebGUI::Operation::ProfileSettings',
'editProfileFieldSave' => 'WebGUI::Operation::ProfileSettings',
'deleteProfileCategory' => 'WebGUI::Operation::ProfileSettings',
'deleteProfileField' => 'WebGUI::Operation::ProfileSettings',
'editProfileCategory' => 'WebGUI::Operation::ProfileSettings',
'editProfileField' => 'WebGUI::Operation::ProfileSettings',
'moveProfileCategoryDown' => 'WebGUI::Operation::ProfileSettings',
'moveProfileCategoryUp' => 'WebGUI::Operation::ProfileSettings',
'moveProfileFieldDown' => 'WebGUI::Operation::ProfileSettings',
'moveProfileFieldUp' => 'WebGUI::Operation::ProfileSettings',
'editProfileSettings' => 'WebGUI::Operation::ProfileSettings',
'deleteReplacement' => 'WebGUI::Operation::Replacements',
'editReplacement' => 'WebGUI::Operation::Replacements',
'editReplacementSave' => 'WebGUI::Operation::Replacements',
'listReplacements' => 'WebGUI::Operation::Replacements',
'listRoots' => 'WebGUI::Operation::Root',
'setScratch' => 'WebGUI::Operation::Scratch',
'deleteScratch' => 'WebGUI::Operation::Scratch',
'saveSettings' => 'WebGUI::Operation::Settings',
'editUserSettings' => 'WebGUI::Operation::Settings',
'editCompanyInformation' => 'WebGUI::Operation::Settings',
'editPrivilegeSettings' => 'WebGUI::Operation::Settings',
'editMessagingSettings' => 'WebGUI::Operation::Settings',
'editMiscSettings' => 'WebGUI::Operation::Settings',
'editContentSettings' => 'WebGUI::Operation::Settings',
'manageSettings' => 'WebGUI::Operation::Settings',
'viewPageReport' => 'WebGUI::Operation::Statistics',
'viewStatistics' => 'WebGUI::Operation::Statistics',
'viewTrafficReport' => 'WebGUI::Operation::Statistics',
'killSession' => 'WebGUI::Operation::Statistics',
'viewLoginHistory' => 'WebGUI::Operation::Statistics',
'viewActiveSessions' => 'WebGUI::Operation::Statistics',
'makePrintable' => 'WebGUI::Operation::Style',
'setPersonalStyle' => 'WebGUI::Operation::Style',
'unsetPersonalStyle' => 'WebGUI::Operation::Style',
'copyTemplate' => 'WebGUI::Operation::Template',
'deleteTemplate' => 'WebGUI::Operation::Template',
'deleteTemplateConfirm' => 'WebGUI::Operation::Template',
'editTemplate' => 'WebGUI::Operation::Template',
'editTemplateSave' => 'WebGUI::Operation::Template',
'listTemplates' => 'WebGUI::Operation::Template',
'viewTheme' => 'WebGUI::Operation::Theme',
'deleteThemeComponent' => 'WebGUI::Operation::Theme',
'deleteThemeComponentConfirm' => 'WebGUI::Operation::Theme',
'importTheme' => 'WebGUI::Operation::Theme',
'importThemeValidate' => 'WebGUI::Operation::Theme',
'importThemeSave' => 'WebGUI::Operation::Theme',
'exportTheme' => 'WebGUI::Operation::Theme',
'addThemeComponent' => 'WebGUI::Operation::Theme',
'addThemeComponentSave' => 'WebGUI::Operation::Theme',
'deleteTheme' => 'WebGUI::Operation::Theme',
'deleteThemeConfirm' => 'WebGUI::Operation::Theme',
'editTheme' => 'WebGUI::Operation::Theme',
'editThemeSave' => 'WebGUI::Operation::Theme',
'listThemes' => 'WebGUI::Operation::Theme',
'cutTrashItem' => 'WebGUI::Operation::Trash',
'deleteTrashItem' => 'WebGUI::Operation::Trash',
'deleteTrashItemConfirm' => 'WebGUI::Operation::Trash',
'emptyTrash' => 'WebGUI::Operation::Trash',
'emptyTrashConfirm' => 'WebGUI::Operation::Trash',
'manageTrash' => 'WebGUI::Operation::Trash',
'editUserKarma' => 'WebGUI::Operation::User',
'editUserKarmaSave' => 'WebGUI::Operation::User',
'editUserGroup' => 'WebGUI::Operation::User',
'editUserProfile' => 'WebGUI::Operation::User',
'editUserProfileSave' => 'WebGUI::Operation::User',
'addUserToGroupSave' => 'WebGUI::Operation::User',
'deleteGrouping' => 'WebGUI::Operation::User',
'editGrouping' => 'WebGUI::Operation::User',
'editGroupingSave' => 'WebGUI::Operation::User',
'becomeUser' => 'WebGUI::Operation::User',
'addUser' => 'WebGUI::Operation::User',
'addUserSave' => 'WebGUI::Operation::User',
'deleteUser' => 'WebGUI::Operation::User',
'deleteUserConfirm' => 'WebGUI::Operation::User',
'editUser' => 'WebGUI::Operation::User',
'editUserSave' => 'WebGUI::Operation::User',
'listUsers' => 'WebGUI::Operation::User',
'theWg' => 'WebGUI::Operation::WebGUI',
'genesis' => 'WebGUI::Operation::WebGUI'
};
}
1;

4
lib/WebGUI/Operation/Admin.pm
View file

@ -10,15 +10,11 @@ package WebGUI::Operation::Admin;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Grouping;
use WebGUI::Session;
use WebGUI::SQL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_switchOffAdmin &www_switchOnAdmin);
#-------------------------------------------------------------------
sub www_switchOffAdmin {
return "" unless (WebGUI::Grouping::isInGroup(12));

3
lib/WebGUI/Operation/Auth.pm
View file

@ -13,7 +13,6 @@ package WebGUI::Operation::Auth;
# and calling methods in the Auth Module. This method also has some core
# logic that defines how Authentication should happen
use Exporter;
use strict qw(vars subs);
use URI;
use WebGUI::ErrorHandler;
@ -23,8 +22,6 @@ use WebGUI::URL;
use WebGUI::User;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_auth &www_displayLogin &www_login &www_displayAccount &www_createAccount &www_deactivateAccount &www_logout &www_recoverPassword &www_init);
#-------------------------------------------------------------------
=head2 getInstance ( )

5
lib/WebGUI/Operation/Clipboard.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Clipboard;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::DateTime;
use WebGUI::Grouping;
@ -27,10 +26,6 @@ use WebGUI::TabForm;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_deleteClipboardItem &www_deleteClipboardItemConfirm
&www_emptyClipboard &www_emptyClipboardConfirm &www_manageClipboard);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

9
lib/WebGUI/Operation/Collateral.pm
View file

@ -17,7 +17,6 @@ my $hasImageMagick=1;
eval " use Image::Magick; "; $hasImageMagick=0 if $@;
use Exporter;
use strict;
use WebGUI::Collateral;
use WebGUI::CollateralFolder;
@ -36,14 +35,6 @@ use Tie::IxHash;
use WebGUI::URL;
use WebGUI::HTML;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_editCollateral &www_editCollateralSave &www_deleteCollateral
&www_deleteCollateralConfirm &www_listCollateral
&www_deleteCollateralFile &www_editCollateralFolder &www_editCollateralFolderSave &www_deleteCollateralFolder
&www_deleteCollateralFolderConfirm &www_emptyCollateralFolder &www_emptyCollateralFolderConfirm
&www_htmlArealistCollateral &www_htmlAreaviewCollateral &www_htmlAreaUpload
&www_htmlAreaDelete &www_htmlAreaCreateFolder);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

5
lib/WebGUI/Operation/DatabaseLink.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::DatabaseLink;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::CPHash;
use WebGUI::DatabaseLink;
@ -25,10 +24,6 @@ use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_copyDatabaseLink &www_deleteDatabaseLink &www_deleteDatabaseLinkConfirm
&www_editDatabaseLink &www_editDatabaseLinkSave &www_listDatabaseLinks);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

9
lib/WebGUI/Operation/Group.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Group;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::CPHash;
use WebGUI::DatabaseLink;
@ -32,14 +31,6 @@ use WebGUI::SQL;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_manageUsersInGroup &www_deleteGroup &www_deleteGroupConfirm &www_editGroup
&www_editGroupSave &www_listGroups &www_emailGroup &www_emailGroupSend &www_manageGroupsInGroup
&www_addGroupsToGroupSave &www_deleteGroupGrouping &www_autoAddToGroup &www_autoDeleteFromGroup
&www_listGroupsSecondary &www_manageUsersInGroupSecondary &www_addUsersToGroupSave &www_addUsersToGroupSecondarySave
&www_deleteGroupingSecondary);
#-------------------------------------------------------------------
sub _hasSecondaryPrivilege {
return 0 unless (WebGUI::Grouping::isInGroup(11));

4
lib/WebGUI/Operation/Help.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Help;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::IxHash;
use WebGUI::International;
@ -19,9 +18,6 @@ use WebGUI::Session;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_viewHelp &www_viewHelpIndex);
#-------------------------------------------------------------------
sub _get {
my $id = shift;

4
lib/WebGUI/Operation/MessageLog.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::MessageLog;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict qw(vars subs);
use URI;
use WebGUI::DateTime;
@ -26,9 +25,6 @@ use WebGUI::User;
use WebGUI::Utility;
use WebGUI::Operation::Shared;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_viewMessageLog &www_viewMessageLogMessage);
#-------------------------------------------------------------------
sub _status {
return {"notice"=>WebGUI::International::get(551),"pending"=>WebGUI::International::get(552),"completed"=>WebGUI::International::get(350)};

5
lib/WebGUI/Operation/MetaData.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::MetaData;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::IxHash;
use WebGUI::Icon;
@ -25,10 +24,6 @@ use WebGUI::SQL;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_editMetaDataField &www_manageMetaData &www_editMetaDataFieldSave &www_deleteMetaDataField
&www_deleteMetaDataFieldConfirm &www_saveMetaDataSettings);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

6
lib/WebGUI/Operation/Navigation.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Navigation;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::IxHash;
use Tie::CPHash;
@ -24,6 +23,7 @@ use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Navigation;
use WebGUI::Operation::Shared;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
@ -32,10 +32,6 @@ use WebGUI::Utility;
use WebGUI::TabForm;
use WebGUI::Cache;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_listNavigation &www_editNavigation &www_editNavigationSave &www_copyNavigation
&www_deleteNavigation www_deleteNavigationConfirm www_previewNavigation);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

4
lib/WebGUI/Operation/Package.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Package;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict qw(vars subs);
use WebGUI::Icon;
use WebGUI::Id;
@ -20,9 +19,6 @@ use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_deployPackage );
#-------------------------------------------------------------------
sub _duplicateWobjects {
my (%properties);

8
lib/WebGUI/Operation/Page.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Page;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use File::Path;
use WebGUI::DateTime;
@ -29,13 +28,6 @@ use WebGUI::URL;
use WebGUI::Utility;
use WebGUI::Export;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_viewPageTree &www_movePageUp &www_movePageDown
&www_cutPage &www_deletePage &www_deletePageConfirm &www_editPage
&www_editPageSave &www_exportPage &www_exportPageStatus www_exportPageGenerate
&www_pastePage &www_moveTreePageUp &www_rearrangeWobjects &www_moveTreePageDown
&www_moveTreePageLeft &www_moveTreePageRight);
#-------------------------------------------------------------------
=head2 _changeWobjectPrivileges ( page )

4
lib/WebGUI/Operation/Profile.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Profile;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict qw(vars subs);
use URI;
use WebGUI::Operation::Auth;
@ -30,9 +29,6 @@ use WebGUI::URL;
use WebGUI::User;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_editProfile &www_editProfileSave &www_viewProfile);
#-------------------------------------------------------------------
# Builds Extra form requirements for anonymous registration.
sub getRequiredProfileFields {

4
lib/WebGUI/Operation/ProfileSettings.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::ProfileSettings;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::CPHash;
use Tie::IxHash;
@ -24,9 +23,6 @@ use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_deleteProfileCategoryConfirm &www_deleteProfileFieldConfirm &www_editProfileCategorySave &www_editProfileFieldSave &www_deleteProfileCategory &www_deleteProfileField &www_editProfileCategory &www_editProfileField &www_moveProfileCategoryDown &www_moveProfileCategoryUp &www_moveProfileFieldDown &www_moveProfileFieldUp &www_editProfileSettings);
#-------------------------------------------------------------------
sub _reorderCategories {
my ($sth, $i, $id);

4
lib/WebGUI/Operation/Replacements.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Replacements;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Grouping;
use WebGUI::Icon;
@ -21,9 +20,6 @@ use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_deleteReplacement &www_editReplacement &www_editReplacementSave &www_listReplacements);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

4
lib/WebGUI/Operation/Root.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Root;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::CPHash;
use WebGUI::Grouping;
@ -23,9 +22,6 @@ use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_listRoots);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

4
lib/WebGUI/Operation/Scratch.pm
View file

@ -10,13 +10,9 @@ package WebGUI::Operation::Scratch;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Session;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_setScratch &www_deleteScratch);
#-------------------------------------------------------------------
sub www_deleteScratch {
WebGUI::Session::deleteScratch("www_".$session{form}{scratchName});

6
lib/WebGUI/Operation/Settings.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Settings;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict qw(vars subs);
use WebGUI::DateTime;
use WebGUI::Grouping;
@ -24,11 +23,6 @@ use WebGUI::Style;
use WebGUI::SQL;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_saveSettings &www_editUserSettings &www_editCompanyInformation
&www_editPrivilegeSettings &www_editMessagingSettings &www_editMiscSettings
&www_editContentSettings &www_manageSettings);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

5
lib/WebGUI/Operation/Statistics.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Statistics;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Cache;
use WebGUI::DateTime;
@ -23,10 +22,6 @@ use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_viewPageReport &www_viewStatistics &www_viewTrafficReport &www_killSession
&www_viewLoginHistory &www_viewActiveSessions);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

4
lib/WebGUI/Operation/Style.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Style;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Grouping;
use WebGUI::Paginator;
@ -18,9 +17,6 @@ use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_makePrintable &www_setPersonalStyle &www_unsetPersonalStyle);
#-------------------------------------------------------------------
sub www_makePrintable {
if ($session{form}{styleId} ne "") {

4
lib/WebGUI/Operation/Template.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Template;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::CPHash;
use WebGUI::Grouping;
@ -27,9 +26,6 @@ use WebGUI::Template;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_copyTemplate &www_deleteTemplate &www_deleteTemplateConfirm &www_editTemplate &www_editTemplateSave &www_listTemplates);
#-------------------------------------------------------------------
sub _submenu {
my (%menu);

4
lib/WebGUI/Operation/Theme.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Theme;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use Tie::IxHash;
use Tie::CPHash;
@ -31,9 +30,6 @@ use WebGUI::SQL;
use WebGUI::URL;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_viewTheme &www_deleteThemeComponent &www_deleteThemeComponentConfirm &www_importTheme &www_importThemeValidate &www_importThemeSave &www_exportTheme &www_addThemeComponent &www_addThemeComponentSave &www_deleteTheme &www_deleteThemeConfirm &www_editTheme &www_editThemeSave &www_listThemes);
#-------------------------------------------------------------------
sub _getComponentTypes {
my %components;

5
lib/WebGUI/Operation/Trash.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::Trash;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict qw(vars subs);
use Tie::CPHash;
use WebGUI::DateTime;
@ -23,10 +22,6 @@ use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_cutTrashItem &www_deleteTrashItem &www_deleteTrashItemConfirm
&www_emptyTrash &www_emptyTrashConfirm &www_manageTrash);
#-------------------------------------------------------------------
sub _purgeUserTrash {
my (%properties, $base, $extended, $b, $wobjectId, $namespace, $w, $cmd, $userId, $bufferId, $page, $currentPage, $currentWobjectPage);

4
lib/WebGUI/Operation/User.pm
View file

@ -10,7 +10,6 @@ package WebGUI::Operation::User;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict qw(vars subs);
use Tie::CPHash;
use Tie::IxHash;
@ -32,9 +31,6 @@ use WebGUI::URL;
use WebGUI::User;
use WebGUI::Utility;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_editUserKarma &www_editUserKarmaSave &www_editUserGroup &www_editUserProfile &www_editUserProfileSave &www_addUserToGroupSave &www_deleteGrouping &www_editGrouping &www_editGroupingSave &www_becomeUser &www_addUser &www_addUserSave &www_deleteUser &www_deleteUserConfirm &www_editUser &www_editUserSave &www_listUsers);
#-------------------------------------------------------------------
sub _submenu {

4
lib/WebGUI/Operation/WebGUI.pm
View file

@ -10,13 +10,9 @@ package WebGUI::Operation::WebGUI;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use Exporter;
use strict;
use WebGUI::Session;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_theWg &www_genesis);
#-------------------------------------------------------------------
sub www_genesis {
$session{page}{useEmptyStyle} = 1;