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 => '',
);
with 'WebGUI::AssetRole::AlwaysHidden';
with 'WebGUI::Role::Asset::AlwaysHidden';
use WebGUI::DateTime;

View file

@ -56,7 +56,7 @@ property templateId => (
namespace => "FileAsset",
);
with 'WebGUI::AssetRole::SetStoragePermissions';
with 'WebGUI::Role::Asset::SetStoragePermissions';
use WebGUI::Storage;
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 URI::Escape;

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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