bug fixes

This commit is contained in:
JT Smith 2005-02-24 03:24:20 +00:00
parent 90d124de32
commit 5ebc401d6f
5 changed files with 23 additions and 13 deletions

View file

@ -157,6 +157,13 @@ sub appendTemplateLabels {
$var->{'without.label'} = "Without";
}
#-------------------------------------------------------------------
sub canEdit {
my $self = shift;
return ((($session{form}{func} eq "add" || ($session{form}{assetId} eq "new" && $session{form}{func} eq "editSave" && $session{form}{class} eq "WebGUI::Asset::Post::Thread")) && $self->canPost) || # account for new posts
$self->SUPER::canEdit());
}
#-------------------------------------------------------------------
sub canModerate {
my $self = shift;
@ -286,7 +293,7 @@ sub definition {
},
allowRichEdit =>{
fieldType=>"yesNo",
defaultValue=>1
defaultValue=>0
},
attachmentsPerPost =>{
fieldType=>"integer",