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

more wobject to sku conversion

Browse source
This commit is contained in:
Colin Kuskie 2008-04-07 16:46:51 +00:00
parent e21ddc8bf3
commit be8eb6cfad
1 changed files with 10 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Asset/Sku/Product.pm
View file

@ -18,7 +18,6 @@ use WebGUI::HTMLForm;
use WebGUI::Storage::Image; use WebGUI::Storage::Image;
use WebGUI::SQL; use WebGUI::SQL;
use WebGUI::Utility; use WebGUI::Utility;
use WebGUI::Asset::Wobject;
use base 'WebGUI::Asset::Sku'; use base 'WebGUI::Asset::Sku';
@ -88,13 +87,6 @@ sub definition {
fieldType=>"text", fieldType=>"text",
defaultValue=>undef defaultValue=>undef
}, },
productNumber=>{
tab => "properties",
label=>$i18n->get(11),
hoverHelp=>$i18n->get('11 description'),
fieldType=>"text",
defaultValue=>undef
},
image1=>{ image1=>{
tab => "properties", tab => "properties",
fieldType=>"image", fieldType=>"image",
@ -149,7 +141,7 @@ sub definition {
autoGenerateForms=>1, autoGenerateForms=>1,
icon=>'product.gif', icon=>'product.gif',
tableName=>'Product', tableName=>'Product',
className=>'WebGUI::Asset::Wobject::Product', className=>'WebGUI::Asset::Sku::Product',
properties=>\%properties properties=>\%properties
}); });
return $class->SUPER::definition($session, $definition); return $class->SUPER::definition($session, $definition);
@ -278,6 +270,12 @@ sub getFileUrl {
return $store->getUrl($self->getFilename($store)); return $store->getUrl($self->getFilename($store));
} }
#-------------------------------------------------------------------
sub getPrice {
my $self = shift;
return $self->get('price');
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub getThumbnailFilename { sub getThumbnailFilename {
my $self = shift; my $self = shift;
@ -631,7 +629,7 @@ sub www_addAccessory {
); );
@usedAccessories = $self->session->db->buildArray("select accessoryAssetId from Product_accessory where assetId=".$self->session->db->quote($self->getId)); @usedAccessories = $self->session->db->buildArray("select accessoryAssetId from Product_accessory where assetId=".$self->session->db->quote($self->getId));
push(@usedAccessories,$self->getId); push(@usedAccessories,$self->getId);
$accessory = $self->session->db->buildHashRef("select asset.assetId, assetData.title from asset left join assetData on assetData.assetId=asset.assetId where asset.className='WebGUI::Asset::Wobject::Product' and asset.assetId not in (".$self->session->db->quoteAndJoin(\@usedAccessories).") and (assetData.status='approved' or assetData.tagId=".$self->session->db->quote($self->session->scratch->get("versionTag")).") group by assetData.assetId"); $accessory = $self->session->db->buildHashRef("select asset.assetId, assetData.title from asset left join assetData on assetData.assetId=asset.assetId where asset.className='WebGUI::Asset::Sku::Product' and asset.assetId not in (".$self->session->db->quoteAndJoin(\@usedAccessories).") and (assetData.status='approved' or assetData.tagId=".$self->session->db->quote($self->session->scratch->get("versionTag")).") group by assetData.assetId");
my $i18n = WebGUI::International->new($self->session,"Asset_Product"); my $i18n = WebGUI::International->new($self->session,"Asset_Product");
$f->selectBox( $f->selectBox(
-name => "accessoryAccessId", -name => "accessoryAccessId",
@ -671,7 +669,7 @@ sub www_addRelated {
); );
@usedRelated = $self->session->db->buildArray("select relatedAssetId from Product_related where assetId=".$self->session->db->quote($self->getId)); @usedRelated = $self->session->db->buildArray("select relatedAssetId from Product_related where assetId=".$self->session->db->quote($self->getId));
push(@usedRelated,$self->getId); push(@usedRelated,$self->getId);
$related = $self->session->db->buildHashRef("select asset.assetId,assetData.title from asset left join assetData on assetData.assetId=asset.assetId where asset.className='WebGUI::Asset::Wobject::Product' and asset.assetId not in (".$self->session->db->quoteAndJoin(\@usedRelated).")"); $related = $self->session->db->buildHashRef("select asset.assetId,assetData.title from asset left join assetData on assetData.assetId=asset.assetId where asset.className='WebGUI::Asset::Sku::Product' and asset.assetId not in (".$self->session->db->quoteAndJoin(\@usedRelated).")");
my $i18n = WebGUI::International->new($self->session,'Asset_Product'); my $i18n = WebGUI::International->new($self->session,'Asset_Product');
$f->selectBox( $f->selectBox(
-name => "relatedAssetId", -name => "relatedAssetId",
@ -1153,7 +1151,7 @@ sub view {
=head2 www_view ( ) =head2 www_view ( )
See WebGUI::Asset::Wobject::www_view() for details. See WebGUI::Asset::Sku::www_view() for details.
=cut =cut