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

New Content pane is working

Browse source
This commit is contained in:
Doug Bell 2010-08-04 17:55:13 -05:00
parent 90d974d911
commit 1b0ec95abb
5 changed files with 170 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Asset.pm
View file

@ -1307,15 +1307,17 @@ sub getNotFound {
#-------------------------------------------------------------------
=head2 getPrototypeList ( )
=head2 WebGUI::Asset::getPrototypeList ( session )
Returns an array of all assets that the user can view and edit that are prototypes.
=cut
sub getPrototypeList {
my $self = shift;
my $session = $self->session;
my $session = shift;
if ( $session->isa( 'WebGUI::Asset' ) ) {
$session = $session->session;
}
my $db = $session->db;
my @prototypeIds = $db->buildArray("select distinct assetId from assetData where isPrototype=1");
my $userUiLevel = $session->user->profileField('uiLevel');
@ -2472,7 +2474,7 @@ new Asset will inherit security and style properties from the current asset, the
sub www_add {
my $self = shift;
my %prototypeProperties;
my $class = $self->loadModule($self->session->form->process("class","className"));
my $class = $self->loadModule($self->session->form->process("className","className"));
return undef unless (defined $class);
return $self->session->privilege->insufficient() unless ($class->canAdd($self->session));
if ($self->session->form->process('prototype')) {