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

change aspect to define

Browse source
This commit is contained in:
Graham Knop 2010-02-17 16:25:13 -06:00
parent 57484beb66
commit 20ee527dbd
68 changed files with 218 additions and 218 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Asset.pm
View file

@ -21,10 +21,10 @@ use JSON;
use HTML::Packer;
use WebGUI::Definition::Asset;
aspect assetName => 'asset';
aspect tableName => 'assetData';
aspect icon => 'assets.gif';
aspect uiLevel => 1;
define assetName => 'asset';
define tableName => 'assetData';
define icon => 'assets.gif';
define uiLevel => 1;
property title => (
tab => "properties",
label => ['99','Asset'],

6
lib/WebGUI/Asset/Event.pm
View file

@ -29,9 +29,9 @@ use Storable;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_Event'];
aspect icon => 'calendar.gif';
aspect tableName => 'Event';
define assetName => ['assetName', 'Asset_Event'];
define icon => 'calendar.gif';
define tableName => 'Event';
property description => (
label => ['description', 'Asset_Event'],
fieldType => "HTMLArea",

4
lib/WebGUI/Asset/File.pm
View file

@ -21,8 +21,8 @@ use Carp;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_File'];
aspect tableName => 'FileAsset';
define assetName => ['assetName', 'Asset_File'];
define tableName => 'FileAsset';
property cacheTimeout => (
tab => "display",
fieldType => "interval",

4
lib/WebGUI/Asset/File/GalleryFile.pm
View file

@ -17,8 +17,8 @@ package WebGUI::Asset::File::GalleryFile;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::File';
aspect assetName => ['assetName', 'Asset_GalleryFile'];
aspect tableName => 'GalleryFile';
define assetName => ['assetName', 'Asset_GalleryFile'];
define tableName => 'GalleryFile';
property views => (
noFormPost => 1,
default => 0,

6
lib/WebGUI/Asset/File/GalleryFile/Photo.pm
View file

@ -17,9 +17,9 @@ package WebGUI::Asset::File::GalleryFile::Photo;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::File::GalleryFile';
aspect assetName => ['assetName', 'Asset_Photo'];
aspect icon => 'photo.gif';
aspect tableName => 'Photo';
define assetName => ['assetName', 'Asset_Photo'];
define icon => 'photo.gif';
define tableName => 'Photo';
property exifData => (
fieldType => 'text',
noFormPost => 1,

6
lib/WebGUI/Asset/File/Image.pm
View file

@ -22,9 +22,9 @@ use WebGUI::Form::Image;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::File';
aspect assetName => ['assetName', 'Asset_Image'];
aspect tableName => 'ImageAsset';
aspect icon => 'image.gif';
define assetName => ['assetName', 'Asset_Image'];
define tableName => 'ImageAsset';
define icon => 'image.gif';
property thumbnailSize => (
label => ['thumbnail size', 'Asset_Image'],
hoverHelp => ['Thumbnail size description', 'Asset_Image'],

6
lib/WebGUI/Asset/File/ZipArchive.pm
View file

@ -18,9 +18,9 @@ use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::File';
aspect assetName => ['assetName', 'Asset_ZipArchive'];
aspect tableName => 'ZipArchiveAsset';
aspect icon => 'ziparchive.gif';
define assetName => ['assetName', 'Asset_ZipArchive'];
define tableName => 'ZipArchiveAsset';
define icon => 'ziparchive.gif';
property showPage => (
tab => "properties",
label => ['show page', 'Asset_ZipArchive'],

6
lib/WebGUI/Asset/MapPoint.pm
View file

@ -18,9 +18,9 @@ use strict;
use Tie::IxHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_MapPoint'];
aspect icon => 'MapPoint.gif';
aspect tableName => 'MapPoint';
define assetName => ['assetName', 'Asset_MapPoint'];
define icon => 'MapPoint.gif';
define tableName => 'MapPoint';
property latitude => (
tab => "properties",
fieldType => "float",

4
lib/WebGUI/Asset/MatrixListing.pm
View file

@ -19,8 +19,8 @@ use Tie::IxHash;
#use base qw(WebGUI::AssetAspect::Comments WebGUI::Asset);
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_MatrixListing'];
aspect tableName => 'MatrixListing';
define assetName => ['assetName', 'Asset_MatrixListing'];
define tableName => 'MatrixListing';
property screenshots => (
tab => "properties",
fieldType => "image",

6
lib/WebGUI/Asset/Post.pm
View file

@ -14,9 +14,9 @@ use strict;
use Tie::CPHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_Post'];
aspect icon => 'post.gif';
aspect tableName => 'Post';
define assetName => ['assetName', 'Asset_Post'];
define icon => 'post.gif';
define tableName => 'Post';
property storageId => (
fieldType => "image",
default => '',

6
lib/WebGUI/Asset/Post/Thread.pm
View file

@ -13,9 +13,9 @@ package WebGUI::Asset::Post::Thread;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Post';
aspect assetName => ['assetName', 'Asset_Thread'];
aspect icon => 'thread.gif';
aspect tableName => 'Thread';
define assetName => ['assetName', 'Asset_Thread'];
define icon => 'thread.gif';
define tableName => 'Thread';
property subscriptionGroupId => (
noFormPost => 1,
fieldType => "hidden",

8
lib/WebGUI/Asset/Redirect.pm
View file

@ -19,10 +19,10 @@ use WebGUI::Macro;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_Redirect'];
aspect uiLevel => 9;
aspect icon => 'redirect.gif';
aspect tableName => 'redirect';
define assetName => ['assetName', 'Asset_Redirect'];
define uiLevel => 9;
define icon => 'redirect.gif';
define tableName => 'redirect';
property redirectUrl => (
tab => "properties",
label => ['redirect url', 'Asset_Redirect'],

8
lib/WebGUI/Asset/RichEdit.pm
View file

@ -22,10 +22,10 @@ use JSON;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_RichEdit'];
aspect icon => 'richEdit.gif';
aspect uiLevel => 5;
aspect tableName => 'RichEdit';
define assetName => ['assetName', 'Asset_RichEdit'];
define icon => 'richEdit.gif';
define uiLevel => 5;
define tableName => 'RichEdit';
property disableRichEditor => (
fieldType => 'yesNo',
default => 0,

6
lib/WebGUI/Asset/Shortcut.pm
View file

@ -16,9 +16,9 @@ use Tie::IxHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_Shortcut'];
aspect icon => 'shortcut.gif';
aspect tableName => 'Shortcut';
define assetName => ['assetName', 'Asset_Shortcut'];
define icon => 'shortcut.gif';
define tableName => 'Shortcut';
property shortcutToAssetId => (
noFormPost => 1,

6
lib/WebGUI/Asset/Sku.pm
View file

@ -23,9 +23,9 @@ use WebGUI::Inbox;
use WebGUI::Shop::Cart;
use JSON qw{ from_json to_json };
aspect assetName => ['assetName', 'Asset_Sku'];
aspect icon => 'Sku.gif';
aspect tableName => 'sku';
define assetName => ['assetName', 'Asset_Sku'];
define icon => 'Sku.gif';
define tableName => 'sku';
property description => (
tab => "properties",

6
lib/WebGUI/Asset/Sku/Ad.pm
View file

@ -18,9 +18,9 @@ use strict;
use Tie::IxHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_WikiMaster'];
aspect icon => 'adsku.gif';
aspect tableName => 'AdSku';
define assetName => ['assetName', 'Asset_WikiMaster'];
define icon => 'adsku.gif';
define tableName => 'AdSku';
property purchaseTemplate => (
tab => "display",

6
lib/WebGUI/Asset/Sku/Donation.pm
View file

@ -19,9 +19,9 @@ use Tie::IxHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_Donation'];
aspect icon => 'Donation.gif';
aspect tableName => 'donation';
define assetName => ['assetName', 'Asset_Donation'];
define icon => 'Donation.gif';
define tableName => 'donation';
property templateId => (
tab => "display",
fieldType => "template",

6
lib/WebGUI/Asset/Sku/EMSBadge.pm
View file

@ -17,9 +17,9 @@ package WebGUI::Asset::Sku::EMSBadge;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['ems badge', 'Asset_EMSBadge'];
aspect icon => 'EMSBadge.gif';
aspect tableName => 'EMSBadge';
define assetName => ['ems badge', 'Asset_EMSBadge'];
define icon => 'EMSBadge.gif';
define tableName => 'EMSBadge';
property price => (
tab => "shop",
fieldType => "float",

6
lib/WebGUI/Asset/Sku/EMSRibbon.pm
View file

@ -17,9 +17,9 @@ package WebGUI::Asset::Sku::EMSRibbon;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['ems ribbon', 'Asset_EMSRibbon'];
aspect icon => 'EMSRibbon.gif';
aspect tableName => 'EMSRibbon';
define assetName => ['ems ribbon', 'Asset_EMSRibbon'];
define icon => 'EMSRibbon.gif';
define tableName => 'EMSRibbon';
property price => (
tab => "shop",
fieldType => "float",

6
lib/WebGUI/Asset/Sku/EMSTicket.pm
View file

@ -17,9 +17,9 @@ package WebGUI::Asset::Sku::EMSTicket;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['ems ticket', 'Asset_EMSTicket'];
aspect icon => 'EMSTicket.gif';
aspect tableName => 'EMSTicket';
define assetName => ['ems ticket', 'Asset_EMSTicket'];
define icon => 'EMSTicket.gif';
define tableName => 'EMSTicket';
property price => (
tab => "shop",
fieldType => "float",

6
lib/WebGUI/Asset/Sku/EMSToken.pm
View file

@ -17,9 +17,9 @@ package WebGUI::Asset::Sku::EMSToken;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['ems token', 'Asset_EMSToken'];
aspect icon => 'EMSToken.gif';
aspect tableName => 'EMSToken';
define assetName => ['ems token', 'Asset_EMSToken'];
define icon => 'EMSToken.gif';
define tableName => 'EMSToken';
property price => (
tab => "shop",
fieldType => "float",

6
lib/WebGUI/Asset/Sku/FlatDiscount.pm
View file

@ -18,9 +18,9 @@ use strict;
use Tie::IxHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_FlatDiscount'];
aspect icon => 'FlatDiscount.gif';
aspect tableName => 'FlatDiscount';
define assetName => ['assetName', 'Asset_FlatDiscount'];
define icon => 'FlatDiscount.gif';
define tableName => 'FlatDiscount';
property templateId => (
tab => "display",
fieldType => "template",

6
lib/WebGUI/Asset/Sku/Product.pm
View file

@ -22,9 +22,9 @@ use JSON;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_Product'];
aspect icon => 'product.gif';
aspect tableName => 'Product';
define assetName => ['assetName', 'Asset_Product'];
define icon => 'product.gif';
define tableName => 'Product';
property cacheTimeout => (
tab => "display",

6
lib/WebGUI/Asset/Sku/Subscription.pm
View file

@ -18,9 +18,9 @@ use strict;
use Tie::IxHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_Subscription'];
aspect icon => 'subscription.gif';
aspect tableName => 'Subscription';
define assetName => ['assetName', 'Asset_Subscription'];
define icon => 'subscription.gif';
define tableName => 'Subscription';
property templateId => (
tab => "display",
fieldType => "template",

6
lib/WebGUI/Asset/Sku/ThingyRecord.pm
View file

@ -18,9 +18,9 @@ use strict;
use Tie::IxHash;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku';
aspect assetName => ['assetName', 'Asset_ThingyRecord'];
aspect icon => 'thingyRecord.gif';
aspect tableName => 'ThingyRecord';
define assetName => ['assetName', 'Asset_ThingyRecord'];
define icon => 'thingyRecord.gif';
define tableName => 'ThingyRecord';
property templateIdView => (
tab => "display",
fieldType => "template",

8
lib/WebGUI/Asset/Snippet.pm
View file

@ -23,10 +23,10 @@ use HTML::Packer;
use JavaScript::Packer;
use CSS::Packer;
aspect assetName => ['assetName','Asset_Snippet'];
aspect uiLevel => 5;
aspect icon => 'snippet.gif';
aspect tableName => 'snippet';
define assetName => ['assetName','Asset_Snippet'];
define uiLevel => 5;
define icon => 'snippet.gif';
define tableName => 'snippet';
property snippet => (
fieldType => 'codearea',

6
lib/WebGUI/Asset/Story.pm
View file

@ -17,9 +17,9 @@ package WebGUI::Asset::Story;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_Story'];
aspect icon => 'story.gif';
aspect tableName => 'Story';
define assetName => ['assetName', 'Asset_Story'];
define icon => 'story.gif';
define tableName => 'Story';
property headline => (
fieldType => 'text',
label => ['headline', 'Asset_Story'],

6
lib/WebGUI/Asset/Template.pm
View file

@ -19,9 +19,9 @@ use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect assetName => ['assetName', 'Asset_Template'];
aspect icon => 'template.gif';
aspect tableName => 'template';
define assetName => ['assetName', 'Asset_Template'];
define icon => 'template.gif';
define tableName => 'template';
property template => (
fieldType => 'codearea',

4
lib/WebGUI/Asset/Wobject.pm
View file

@ -25,8 +25,8 @@ use WebGUI::SQL;
use WebGUI::Utility;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset';
aspect tableName => 'wobject';
aspect assetName => 'Wobject';
define tableName => 'wobject';
define assetName => 'Wobject';
property description => (
fieldType => 'HTMLArea',
default => undef,

6
lib/WebGUI/Asset/Wobject/Article.pm
View file

@ -17,9 +17,9 @@ use WebGUI::Paginator;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Article'];
aspect icon => 'article.gif';
aspect tableName => 'Article';
define assetName => ['assetName', 'Asset_Article'];
define icon => 'article.gif';
define tableName => 'Article';
property cacheTimeout => (
tab => "display",
fieldType => "interval",

6
lib/WebGUI/Asset/Wobject/Calendar.pm
View file

@ -16,9 +16,9 @@ use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Calendar'];
aspect icon => 'calendar.gif';
aspect tableName => 'Calendar';
define assetName => ['assetName', 'Asset_Calendar'];
define icon => 'calendar.gif';
define tableName => 'Calendar';
property defaultView => (
fieldType => "SelectBox",
default => "month",

6
lib/WebGUI/Asset/Wobject/Carousel.pm
View file

@ -19,9 +19,9 @@ use WebGUI::International;
use WebGUI::Utility;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => [ 'assetName', 'Asset_Carousel' ];
aspect icon => 'Carousel.png';
aspect tableName => 'Carousel';
define assetName => [ 'assetName', 'Asset_Carousel' ];
define icon => 'Carousel.png';
define tableName => 'Carousel';
property templateId => (
fieldType => "template",
default => 'CarouselTmpl0000000001',

6
lib/WebGUI/Asset/Wobject/Collaboration.pm
View file

@ -13,9 +13,9 @@ package WebGUI::Asset::Wobject::Collaboration;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Collaboration'];
aspect icon => 'collaboration.gif';
aspect tableName => 'Collaboration';
define assetName => ['assetName', 'Asset_Collaboration'];
define icon => 'collaboration.gif';
define tableName => 'Collaboration';
property visitorCacheTimeout => (
tab => "display",
fieldType => "interval",

6
lib/WebGUI/Asset/Wobject/Collaboration/Newsletter.pm
View file

@ -13,9 +13,9 @@ package WebGUI::Asset::Wobject::Collaboration::Newsletter;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject::Collaboration';
aspect assetName => ['assetName', 'Asset_Newsletter'];
aspect icon => 'newsletter.gif';
aspect tableName => 'Newsletter';
define assetName => ['assetName', 'Asset_Newsletter'];
define icon => 'newsletter.gif';
define tableName => 'Newsletter';
property newsletterHeader => (
default => undef,
fieldType => "HTMLArea",

6
lib/WebGUI/Asset/Wobject/Dashboard.pm
View file

@ -19,9 +19,9 @@ use WebGUI::Asset::Wobject;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => [ 'assetName', 'Asset_Dashboard' ];
aspect icon => 'dashboard.gif';
aspect tableName => 'Dashboard';
define assetName => [ 'assetName', 'Asset_Dashboard' ];
define icon => 'dashboard.gif';
define tableName => 'Dashboard';
property templateId => (
fieldType => "template",
default => 'DashboardViewTmpl00001',

8
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -28,10 +28,10 @@ use JSON ();
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_DataForm'];
aspect uiLevel => 5;
aspect tableName => 'DataForm';
aspect icon => 'dataForm.gif';
define assetName => ['assetName', 'Asset_DataForm'];
define uiLevel => 5;
define tableName => 'DataForm';
define icon => 'dataForm.gif';
property templateId => (
fieldType => 'template',
default => 'PBtmpl0000000000000141',

6
lib/WebGUI/Asset/Wobject/DataTable.pm
View file

@ -15,9 +15,9 @@ $VERSION = "1.0.0";
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_EMSRibbon'];
aspect icon => 'DataTable.gif';
aspect tableName => 'DataTable';
define assetName => ['assetName', 'Asset_EMSRibbon'];
define icon => 'DataTable.gif';
define tableName => 'DataTable';
property data => (
fieldType => 'DataTable',
default => undef,

6
lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
View file

@ -17,9 +17,9 @@ package WebGUI::Asset::Wobject::EventManagementSystem;
use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_EventManagementSystem'];
aspect icon => 'ems.gif';
aspect tableName => 'EventManagementSystem';
define assetName => ['assetName', 'Asset_EventManagementSystem'];
define icon => 'ems.gif';
define tableName => 'EventManagementSystem';
property timezone => (
fieldType => 'TimeZone',
default => 'America/Chicago',

8
lib/WebGUI/Asset/Wobject/Folder.pm
View file

@ -18,10 +18,10 @@ use strict;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ["assetName", 'Asset_Folder'];
aspect uiLevel => 5;
aspect icon => 'folder.gif';
aspect tableName => 'Folder';
define assetName => ["assetName", 'Asset_Folder'];
define uiLevel => 5;
define icon => 'folder.gif';
define tableName => 'Folder';
property visitorCacheTimeout => (
tab => "display",

6
lib/WebGUI/Asset/Wobject/Gallery.pm
View file

@ -15,9 +15,9 @@ use strict;
#use base qw(WebGUI::AssetAspect::RssFeed WebGUI::Asset::Wobject);
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Gallery'];
aspect icon => 'photoGallery.gif';
aspect tableName => 'Gallery',
define assetName => ['assetName', 'Asset_Gallery'];
define icon => 'photoGallery.gif';
define tableName => 'Gallery',
property groupIdAddComment => (
tab => "security",
fieldType => "group",

6
lib/WebGUI/Asset/Wobject/GalleryAlbum.pm
View file

@ -14,9 +14,9 @@ use strict;
#use Class::C3;
#use base qw(WebGUI::AssetAspect::RssFeed WebGUI::Asset::Wobject);
use WebGUI::Definition::Asset;
aspect assetName => ['assetName', 'Asset_GalleryAlbum'];
aspect icon => 'photoAlbum.gif';
aspect tableName => 'GalleryAlbum';
define assetName => ['assetName', 'Asset_GalleryAlbum'];
define icon => 'photoAlbum.gif';
define tableName => 'GalleryAlbum';
property allowComments => ( ##Note, there's no UI for this feature. There's just the framework for it.
noFormPost => 1,

8
lib/WebGUI/Asset/Wobject/HttpProxy.pm
View file

@ -24,10 +24,10 @@ use Apache2::Upload;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_HttpProxy'];
aspect uiLevel => 5;
aspect icon => 'httpProxy.gif';
aspect tableName => 'HttpProxy';
define assetName => ['assetName', 'Asset_HttpProxy'];
define uiLevel => 5;
define icon => 'httpProxy.gif';
define tableName => 'HttpProxy';
property templateId => (
fieldType => "template",
default => 'PBtmpl0000000000000033',

6
lib/WebGUI/Asset/Wobject/InOutBoard.pm
View file

@ -9,9 +9,9 @@ use WebGUI::SQL;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect tableName => 'InOutBoard';
aspect assetName => ['assetName', 'Asset_MapPoint'];
aspect icon => 'iob.gif';
define tableName => 'InOutBoard';
define assetName => ['assetName', 'Asset_MapPoint'];
define icon => 'iob.gif';
property statusList => (
tab => 'properties',
fieldType => "textarea",

6
lib/WebGUI/Asset/Wobject/Layout.pm
View file

@ -19,9 +19,9 @@ use WebGUI::AdSpace;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ["assetName", 'Asset_Layout'];
aspect icon => 'layout.gif';
aspect tableName => 'Layout';
define assetName => ["assetName", 'Asset_Layout'];
define icon => 'layout.gif';
define tableName => 'Layout';
property templateId => (
fieldType => "template",

6
lib/WebGUI/Asset/Wobject/Map.pm
View file

@ -19,9 +19,9 @@ use WebGUI::Utility;
use HTML::Entities qw(encode_entities);
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Map'];
aspect icon => 'maps.png';
aspect tableName => 'Map';
define assetName => ['assetName', 'Asset_Map'];
define icon => 'maps.png';
define tableName => 'Map';
property groupIdAddPoint => (
tab => "security",
fieldType => "group",

6
lib/WebGUI/Asset/Wobject/Matrix.pm
View file

@ -20,9 +20,9 @@ use WebGUI::Utility;
use WebGUI::Definition::Asset;
use feature ":5.10";
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Matrix'];
aspect icon => 'matrix.gif';
aspect tableName => 'Matrix';
define assetName => ['assetName', 'Asset_Matrix'];
define icon => 'matrix.gif';
define tableName => 'Matrix';
property templateId => (
fieldType => "template",
default => 'matrixtmpl000000000001',

6
lib/WebGUI/Asset/Wobject/MessageBoard.pm
View file

@ -18,9 +18,9 @@ use WebGUI::SQL;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_MessageBoard'];
aspect icon => 'messageBoard.gif';
aspect tableName => 'MessageBoard';
define assetName => ['assetName', 'Asset_MessageBoard'];
define icon => 'messageBoard.gif';
define tableName => 'MessageBoard';
property templateId => (
tab => "display",
fieldType => "template",

6
lib/WebGUI/Asset/Wobject/MultiSearch.pm
View file

@ -29,9 +29,9 @@ use WebGUI::Utility;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect tableName => 'MultiSearch';
aspect assetName => ['assetName', 'Asset_MultiSearch'];
aspect icon => 'multiSearch.gif';
define tableName => 'MultiSearch';
define assetName => ['assetName', 'Asset_MultiSearch'];
define icon => 'multiSearch.gif';
property cacheTimeout => (
tab => "display",
fieldType => "interval",

6
lib/WebGUI/Asset/Wobject/Navigation.pm
View file

@ -20,9 +20,9 @@ use WebGUI::Utility;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ["assetName", 'Asset_Navigation'];
aspect icon => 'navigation.gif';
aspect tableName => 'Navigation';
define assetName => ["assetName", 'Asset_Navigation'];
define icon => 'navigation.gif';
define tableName => 'Navigation';
property templateId => (
label => ['1096', 'Asset_Navigation'],

6
lib/WebGUI/Asset/Wobject/Poll.pm
View file

@ -25,9 +25,9 @@ use JSON;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Poll'];
aspect tableName => 'Poll';
aspect icon => 'poll.gif';
define assetName => ['assetName', 'Asset_Poll'];
define tableName => 'Poll';
define icon => 'poll.gif';
property templateId => (
tab => 'display',
fieldType => "template",

6
lib/WebGUI/Asset/Wobject/ProjectManager.pm
View file

@ -21,9 +21,9 @@ use WebGUI::HTML;
use POSIX qw(ceil floor);
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_ProjectManager'];
aspect icon => 'projManagement.gif';
aspect tableName => 'PM_wobject';
define assetName => ['assetName', 'Asset_ProjectManager'];
define icon => 'projManagement.gif';
define tableName => 'PM_wobject';
property projectDashboardTemplateId => (
fieldType => "template",
default => 'ProjectManagerTMPL0001',

8
lib/WebGUI/Asset/Wobject/SQLReport.pm
View file

@ -22,10 +22,10 @@ use WebGUI::Text qw(:csv);
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_SQLReport'];
aspect uiLevel => 5;
aspect icon => 'sqlReport.gif';
aspect tableName => 'SQLReport';
define assetName => ['assetName', 'Asset_SQLReport'];
define uiLevel => 5;
define icon => 'sqlReport.gif';
define tableName => 'SQLReport';
property templateId => (
fieldType => "template",
default => 'PBtmpl0000000000000059',

6
lib/WebGUI/Asset/Wobject/Search.pm
View file

@ -13,9 +13,9 @@ package WebGUI::Asset::Wobject::Search;
use strict;
use WebGUI::Definition::Asset;
extends "WebGUI::Asset::Wobject";
aspect assetName => ['assetName', 'Asset_Search'];
aspect icon => 'search.gif';
aspect tableName => 'search';
define assetName => ['assetName', 'Asset_Search'];
define icon => 'search.gif';
define tableName => 'search';
property templateId => (
fieldType => "template",
default => 'PBtmpl0000000000000200',

6
lib/WebGUI/Asset/Wobject/Shelf.pm
View file

@ -21,9 +21,9 @@ use WebGUI::Storage;
use WebGUI::Exception::Shop;
use WebGUI::Asset::Sku::Product;
aspect assetName => ['assetName', 'Asset_Shelf'];
aspect icon => 'Shelf.gif';
aspect tableName => 'Shelf';
define assetName => ['assetName', 'Asset_Shelf'];
define icon => 'Shelf.gif';
define tableName => 'Shelf';
property templateId => (
fieldType => "template",

6
lib/WebGUI/Asset/Wobject/StockData.pm
View file

@ -18,9 +18,9 @@ use Finance::Quote;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect tableName => 'StockData';
aspect icon => 'stockData.gif';
aspect assetName => ["assetName", 'Asset_StockData'];
define tableName => 'StockData';
define icon => 'stockData.gif';
define assetName => ["assetName", 'Asset_StockData'];
property templateId => (
fieldType => "template",
default => 'StockDataTMPL000000001',

6
lib/WebGUI/Asset/Wobject/StoryArchive.pm
View file

@ -18,9 +18,9 @@ use strict;
#use base qw/WebGUI::AssetAspect::RssFeed WebGUI::Asset::Wobject/;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_StoryArchive'];
aspect icon => 'storyarchive.gif';
aspect tableName => 'StoryArchive';
define assetName => ['assetName', 'Asset_StoryArchive'];
define icon => 'storyarchive.gif';
define tableName => 'StoryArchive';
property storiesPerPage => (
tab => 'display',
fieldType => 'integer',

6
lib/WebGUI/Asset/Wobject/StoryTopic.pm
View file

@ -17,9 +17,9 @@ use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
#use Class::C3;
#use base qw/WebGUI::AssetAspect::RssFeed WebGUI::Asset::Wobject/;
aspect assetName => ['assetName', 'Asset_StoryTopic'];
aspect icon => 'storytopic.gif';
aspect tableName => 'StoryTopic';
define assetName => ['assetName', 'Asset_StoryTopic'];
define icon => 'storytopic.gif';
define tableName => 'StoryTopic';
property storiesPer => (
tab => 'display',
fieldType => 'integer',

6
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -18,9 +18,9 @@ use WebGUI::Form::File;
use WebGUI::Utility;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Survey'];
aspect icon => 'survey.gif';
aspect tableName => 'Survey';
define assetName => ['assetName', 'Asset_Survey'];
define icon => 'survey.gif';
define tableName => 'Survey';
property exitURL => (
fieldType => 'text',
default => undef,

8
lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
View file

@ -20,10 +20,10 @@ use WebGUI::International;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName','Asset_SyndicatedContent'];
aspect uiLevel => 6;
aspect icon => 'syndicatedContent.gif';
aspect tableName => 'SyndicatedContent';
define assetName => ['assetName','Asset_SyndicatedContent'];
define uiLevel => 6;
define icon => 'syndicatedContent.gif';
define tableName => 'SyndicatedContent';
property cacheTimeout => (
tab => "display",
fieldType => "interval",

6
lib/WebGUI/Asset/Wobject/Thingy.pm
View file

@ -21,9 +21,9 @@ use WebGUI::DateTime;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_Thingy'];
aspect icon => 'thingy.gif';
aspect tableName => 'Thingy';
define assetName => ['assetName', 'Asset_Thingy'];
define icon => 'thingy.gif';
define tableName => 'Thingy';
property templateId => (
fieldType => "template",
default => 'ThingyTmpl000000000001',

6
lib/WebGUI/Asset/Wobject/TimeTracking.pm
View file

@ -20,9 +20,9 @@ use WebGUI::Utility;
use POSIX qw(ceil floor);
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_TimeTracking'];
aspect icon => 'timetrack.gif';
aspect tableName => 'TT_wobject';
define assetName => ['assetName', 'Asset_TimeTracking'];
define icon => 'timetrack.gif';
define tableName => 'TT_wobject';
property userViewTemplateId => (
fieldType => "template",
default => 'TimeTrackingTMPL000001',

6
lib/WebGUI/Asset/Wobject/UserList.pm
View file

@ -24,9 +24,9 @@ use WebGUI::Form::File;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_UserList'];
aspect icon => 'userlist.gif';
aspect tableName => 'UserList';
define assetName => ['assetName', 'Asset_UserList'];
define icon => 'userlist.gif';
define tableName => 'UserList';
property templateId => (
fieldType => "template",
default => 'UserListTmpl0000000001',

6
lib/WebGUI/Asset/Wobject/WeatherData.pm
View file

@ -30,9 +30,9 @@ BEGIN {
use WebGUI::International;
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect tableName => 'WeatherData';
aspect assetName => ["assetName", 'Asset_WeatherData'];
aspect icon => 'weatherData.gif';
define tableName => 'WeatherData';
define assetName => ["assetName", 'Asset_WeatherData'];
define icon => 'weatherData.gif';
property partnerId => (
fieldType => "text",
tab => "properties",

6
lib/WebGUI/Asset/Wobject/WikiMaster.pm
View file

@ -18,9 +18,9 @@ package WebGUI::Asset::Wobject::WikiMaster;
#);
use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Wobject';
aspect assetName => ['assetName', 'Asset_RichEdit'];
aspect icon => 'wikiMaster.gif';
aspect tableName => 'WikiMaster';
define assetName => ['assetName', 'Asset_RichEdit'];
define icon => 'wikiMaster.gif';
define tableName => 'WikiMaster';
property groupToEditPages => (
fieldType => 'group',

12
lib/WebGUI/Definition.pm
View file

@ -47,7 +47,7 @@ These methods are available from this class:
my ($import, $unimport, $init_meta) = Moose::Exporter->build_import_methods(
install => [ 'unimport' ],
with_meta => [ 'property', 'aspect' ],
with_meta => [ 'property', 'define' ],
also => 'Moose',
);
@ -89,15 +89,15 @@ sub init_meta {
#-------------------------------------------------------------------
=head2 aspect ( )
=head2 define ( )
An aspect of the definition is typically static data which is never processed from a form
or persisted to the database. In an Asset-style definition, an aspect would
be the table name, the asset's name, or the path to the asset's icon.
Defines a piece static data for the class which is never processed from a form
or persisted to the database. In an Asset-style definition, this would be
used for the table name, the asset's name, or the path to the asset's icon.
=cut
sub aspect {
sub define {
my ($meta, $name, $value) = @_;
if ($meta->can($name)) {
$meta->$name($value);

2
lib/WebGUI/Definition/Asset.pm
View file

@ -72,7 +72,7 @@ sub init_meta {
=head2 property ( $name, %options )
Extends WebGUI::Definition::property to copy the tableName aspect from the
Extends WebGUI::Definition::property to copy the tableName from the
meta class into the options for each property.
=head3 $name

16
t/Definition.t
View file

@ -27,7 +27,7 @@ my $called_getProperties;
package WGT::Class;
use WebGUI::Definition;
aspect 'aspect1' => 'aspect1 value';
define 'define1' => 'define1 value';
property 'property1' => (
arbitrary_key => 'arbitrary_value',
label => 'property1',
@ -37,10 +37,10 @@ my $called_getProperties;
label => 'property2',
);
# aspects create methods
::can_ok +__PACKAGE__, 'aspect1';
# define creates methods
::can_ok +__PACKAGE__, 'define1';
# propeties create methods
# properties create methods
::can_ok +__PACKAGE__, 'property1';
# role applied
@ -60,7 +60,7 @@ my $called_getProperties;
package WGT::Class2;
use WebGUI::Definition;
aspect 'aspect1' => 'aspect1 value';
define 'define1' => 'define1 value';
property 'property3' => ( label => 'label' );
property 'property1' => ( label => 'label' );
property 'property2' => ( label => 'label' );
@ -102,7 +102,7 @@ my $called_getProperties;
package WGT::Class3;
use WebGUI::Definition;
aspect 'aspect1' => 'aspect1 value';
define 'define1' => 'define1 value';
property 'property1' => (
label => ['webgui', 'WebGUI'],
hoverHelp => ['webgui help %s', 'WebGUI', 'extra'],
@ -145,7 +145,7 @@ my $called_getProperties;
use WebGUI::Definition;
extends 'WGT::Class3';
aspect 'aspect41' => 'aspect41 value';
define 'define41' => 'define41 value';
property 'property41' => (
label => ['webgui', 'WebGUI'],
);
@ -159,7 +159,7 @@ my $called_getProperties;
::cmp_bag (
[WGT::Class3->meta->get_all_attributes_list],
[qw/ property1 session /],
'get_all_aspects_list returns all aspects in all metaclasses for the class'
'get_all_attributes_list returns all attributes in all metaclasses for the class'
);
::cmp_bag (

12
t/Definition/Asset.t
View file

@ -24,7 +24,7 @@ use WebGUI::Test;
package WGT::Class::Atset;
use WebGUI::Definition::Asset;
aspect tableName => 'asset';
define tableName => 'asset';
::dies_ok { property 'property1' => (); } 'must have a fieldType';
::dies_ok { property 'property1' => (fieldType => 'text'); } 'must pass either a label or noFormPost flag';
::lives_ok { property 'property1' => (
@ -44,7 +44,7 @@ use WebGUI::Test;
package WGT::Class::Asset;
use WebGUI::Definition::Asset;
aspect tableName => 'asset';
define tableName => 'asset';
property 'property2' => (
fieldType => 'text',
label => 'property2',
@ -138,7 +138,7 @@ use WebGUI::Test;
package WGT::Class::AlsoAsset;
use WebGUI::Definition::Asset;
aspect tableName => 'asset';
define tableName => 'asset';
property 'property1' => (
fieldType => 'text',
label => 'property1',
@ -156,7 +156,7 @@ use WebGUI::Test;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
aspect tableName => 'snippet';
define tableName => 'snippet';
property 'property10' => (
fieldType => 'text',
label => 'property10',
@ -211,7 +211,7 @@ use WebGUI::Test;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
aspect tableName => 'snippet';
define tableName => 'snippet';
property 'property10' => (
fieldType => 'text',
label => 'property10',
@ -237,7 +237,7 @@ use WebGUI::Test;
use WebGUI::Definition::Asset;
extends 'WGT::Class::AlsoAsset';
aspect tableName => 'tertius';
define tableName => 'tertius';
property 'defaulted' => (
fieldType => 'text',
label => 'defaulted',