Move AssetRole to Role::Asset, and update all client modules.

This commit is contained in:
Colin Kuskie 2010-02-16 11:00:47 -08:00
parent 90facc46a9
commit 7caa3e3738
10 changed files with 15 additions and 15 deletions

View file

@ -133,7 +133,7 @@ property userDefined5 => (
default => '', default => '',
); );
with 'WebGUI::AssetRole::AlwaysHidden'; with 'WebGUI::Role::Asset::AlwaysHidden';
use WebGUI::DateTime; use WebGUI::DateTime;

View file

@ -56,7 +56,7 @@ property templateId => (
namespace => "FileAsset", namespace => "FileAsset",
); );
with 'WebGUI::AssetRole::SetStoragePermissions'; with 'WebGUI::Role::Asset::SetStoragePermissions';
use WebGUI::Storage; use WebGUI::Storage;
use WebGUI::SQL; use WebGUI::SQL;

View file

@ -39,7 +39,7 @@ for my $i ( 1 .. 5 ) {
); );
} }
with 'WebGUI::AssetRole::AlwaysHidden'; with 'WebGUI::Role::Asset::AlwaysHidden';
use Carp qw( croak confess ); use Carp qw( croak confess );
use URI::Escape; use URI::Escape;

View file

@ -73,9 +73,9 @@ property content => (
default => undef, default => undef,
); );
with 'WebGUI::AssetRole::AlwaysHidden'; with 'WebGUI::Role::Asset::AlwaysHidden';
with 'WebGUI::AssetRole::SetStoragePermissions'; with 'WebGUI::Role::Asset::SetStoragePermissions';
use WebGUI::Asset::Template; use WebGUI::Asset::Template;

View file

@ -67,7 +67,7 @@ property photo => (
noFormPost => 1, noFormPost => 1,
); );
with 'WebGUI::AssetRole::AlwaysHidden'; with 'WebGUI::Role::Asset::AlwaysHidden';
use WebGUI::Utility; use WebGUI::Utility;
use WebGUI::International; use WebGUI::International;

View file

@ -55,7 +55,7 @@ property isFeatured => (
noFormPost => 1, noFormPost => 1,
); );
with 'WebGUI::AssetRole::AlwaysHidden'; with 'WebGUI::Role::Asset::AlwaysHidden';
use WebGUI::International; use WebGUI::International;
use WebGUI::Utility; use WebGUI::Utility;

View file

@ -73,7 +73,7 @@ sub _storageid_deleteFileUrl {
return shift->session->url->page("func=deleteFile;filename="); return shift->session->url->page("func=deleteFile;filename=");
} }
with 'WebGUI::AssetRole::SetStoragePermissions'; with 'WebGUI::Role::Asset::SetStoragePermissions';
use WebGUI::Storage; use WebGUI::Storage;
use WebGUI::HTML; use WebGUI::HTML;

View file

@ -41,7 +41,7 @@ for my $i ( 1 .. 5 ) {
); );
} }
with 'WebGUI::AssetRole::AlwaysHidden'; with 'WebGUI::Role::Asset::AlwaysHidden';
use Carp qw( croak ); use Carp qw( croak );
use File::Find; use File::Find;

View file

@ -1,4 +1,4 @@
package WebGUI::AssetRole::AlwaysHidden; package WebGUI::Role::Asset::AlwaysHidden;
=head1 LEGAL =head1 LEGAL
@ -16,7 +16,7 @@ package WebGUI::AssetRole::AlwaysHidden;
=head1 NAME =head1 NAME
Package WebGUI::AssetRole::AlwaysHidden Package WebGUI::Role::Asset::AlwaysHidden
=head1 DESCRIPTION =head1 DESCRIPTION
@ -24,7 +24,7 @@ Asset Role that guarantees that the isHidden property is always 1.
=head1 SYNOPSIS =head1 SYNOPSIS
with WebGUI::AssetRole::AlwaysHidden; with WebGUI::Role::Asset::AlwaysHidden;
=cut =cut

View file

@ -1,4 +1,4 @@
package WebGUI::AssetRole::SetStoragePermissions; package WebGUI::Role::Asset::SetStoragePermissions;
=head1 LEGAL =head1 LEGAL
@ -16,7 +16,7 @@ package WebGUI::AssetRole::SetStoragePermissions;
=head1 NAME =head1 NAME
Package WebGUI::AssetRole::SetStoragePermissions Package WebGUI::Role::Asset::SetStoragePermissions
=head1 DESCRIPTION =head1 DESCRIPTION
@ -25,7 +25,7 @@ the file permissions on storage locations for an Asset.
=head1 SYNOPSIS =head1 SYNOPSIS
with WebGUI::AssetRole::SetStoragePermissions; with WebGUI::Role::Asset::SetStoragePermissions;
=cut =cut