trying to fix broken problem with new dynamic definitions

This commit is contained in:
JT Smith 2005-07-21 02:17:20 +00:00
parent 1d7856eb92
commit 2999e6fdb8
3 changed files with 14 additions and 4 deletions

View file

@ -391,6 +391,10 @@ An array reference containing additional information to include with the default
sub definition {
my $class = shift;
my $definition = shift || [];
my $name = WebGUI::International::get("asset","Asset");
if (scalar(@{$definition})) {
# $name = $definition->[0]{assetName};
};
push(@{$definition}, {
assetName=>WebGUI::International::get("asset","Asset"),
tableName=>'assetData',
@ -399,7 +403,7 @@ sub definition {
properties=>{
title=>{
fieldType=>'text',
defaultValue=>$class->getName
defaultValue=>$name
},
menuTitle=>{
fieldType=>'text',
@ -1177,7 +1181,7 @@ sub getIcon {
my $self = shift;
my $small = shift;
my $definition = $self->definition;
my $icon = $definition->[0]{icon};
my $icon = $definition->[0]{icon} || "assets.gif";
return $session{config}{extrasURL}.'/adminConsole/small/'.$icon if ($small);
return $session{config}{extrasURL}.'/adminConsole/'.$icon;
}
@ -1875,7 +1879,11 @@ sub new {
# got properties from cache
} else {
my $sql = "select * from asset";
my @def = @{$class->definition};
WebGUI::ErrorHandler::debug(scalar(@def));
WebGUI::ErrorHandler::debug($className);
foreach my $definition (@{$class->definition}) {
WebGUI::ErrorHandler::warn($definition->{assetName});
$sql .= " left join ".$definition->{tableName}." on asset.assetId="
.$definition->{tableName}.".assetId and ".$definition->{tableName}.".revisionDate=".$revisionDate;
}

View file

@ -60,6 +60,8 @@ sub _create_cache_key {
sub definition {
my $class = shift;
my $definition = shift;
my $httpHeaderFieldType;
if ($session{'config'}{'soapHttpHeaderOverride'}) {
$httpHeaderFieldType = 'text';
} else {
$httpHeaderFieldType = 'hidden';