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

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;