1261 lines
45 KiB
Perl
1261 lines
45 KiB
Perl
package WebGUI::Asset::Sku::Product;
|
|
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2008 Plain Black Corporation.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use strict;
|
|
use Tie::CPHash;
|
|
use Tie::IxHash;
|
|
use WebGUI::Cache;
|
|
use WebGUI::HTMLForm;
|
|
use WebGUI::Storage::Image;
|
|
use WebGUI::SQL;
|
|
use WebGUI::Utility;
|
|
use JSON;
|
|
|
|
use base 'WebGUI::Asset::Sku';
|
|
|
|
#-------------------------------------------------------------------
|
|
sub _duplicateFile {
|
|
my $self = shift;
|
|
my $newAsset = $_[0];
|
|
my $column = $_[1];
|
|
if($self->get($column)){
|
|
my $file = WebGUI::Storage->get($self->session,$self->get($column));
|
|
my $newstore = $file->copy;
|
|
$newAsset->update({ $column=>$newstore->getId });
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 addRevision
|
|
|
|
Override the default method in order to deal with attachments.
|
|
|
|
=cut
|
|
|
|
sub addRevision {
|
|
my $self = shift;
|
|
my $newSelf = $self->SUPER::addRevision(@_);
|
|
if ($newSelf->getRevisionCount > 1) {
|
|
foreach my $field (qw(image1 image2 image3 brochure manual warranty)) {
|
|
if ($self->get($field)) {
|
|
my $newStorage = WebGUI::Storage->get($self->session,$self->get($field))->copy;
|
|
$newSelf->update({$field=>$newStorage->getId});
|
|
}
|
|
}
|
|
}
|
|
return $newSelf;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub definition {
|
|
my $class = shift;
|
|
my $session = shift;
|
|
my $definition = shift;
|
|
my $i18n = WebGUI::International->new($session,"Asset_Product");
|
|
my %properties;
|
|
tie %properties, 'Tie::IxHash';
|
|
%properties = (
|
|
cacheTimeout => {
|
|
tab => "display",
|
|
fieldType => "interval",
|
|
defaultValue => 3600,
|
|
uiLevel => 8,
|
|
label => $i18n->get("cache timeout"),
|
|
hoverHelp => $i18n->get("cache timeout help")
|
|
},
|
|
templateId =>{
|
|
fieldType=>"template",
|
|
tab => "display",
|
|
namespace=>"Product",
|
|
label=>$i18n->get(62),
|
|
hoverHelp=>$i18n->get('62 description'),
|
|
defaultValue=>'PBtmpl0000000000000056'
|
|
},
|
|
image1=>{
|
|
tab => "properties",
|
|
fieldType=>"image",
|
|
defaultValue=>undef,
|
|
maxAttachments=>1,
|
|
label=>$i18n->get(7),
|
|
deleteFileUrl=>$session->url->page("func=deleteFileConfirm;file=image1;filename=")
|
|
},
|
|
image2=>{
|
|
tab => "properties",
|
|
fieldType=>"image",
|
|
maxAttachments=>1,
|
|
label=>$i18n->get(8),
|
|
deleteFileUrl=>$session->url->page("func=deleteFileConfirm;file=image2;filename="),
|
|
defaultValue=>undef
|
|
},
|
|
image3=>{
|
|
tab => "properties",
|
|
fieldType=>"image",
|
|
maxAttachments=>1,
|
|
label=>$i18n->get(9),
|
|
deleteFileUrl=>$session->url->page("func=deleteFileConfirm;file=image3;filename="),
|
|
defaultValue=>undef
|
|
},
|
|
brochure=>{
|
|
tab => "properties",
|
|
fieldType=>"file",
|
|
maxAttachments=>1,
|
|
label=>$i18n->get(13),
|
|
deleteFileUrl=>$session->url->page("func=deleteFileConfirm;file=brochure;filename="),
|
|
defaultValue=>undef
|
|
},
|
|
manual=>{
|
|
tab => "properties",
|
|
fieldType=>"file",
|
|
maxAttachments=>1,
|
|
label=>$i18n->get(14),
|
|
deleteFileUrl=>$session->url->page("func=deleteFileConfirm;file=manual;filename="),
|
|
defaultValue=>undef
|
|
},
|
|
warranty=>{
|
|
tab => "properties",
|
|
fieldType=>"file",
|
|
maxAttachments=>1,
|
|
label=>$i18n->get(15),
|
|
deleteFileUrl=>$session->url->page("func=deleteFileConfirm;file=warranty;filename="),
|
|
defaultValue=>undef
|
|
},
|
|
variantsJSON => {
|
|
##Collateral data is stored as JSON in here
|
|
autoGenerate => 0,
|
|
defaultValue => '[]',
|
|
},
|
|
accessoryJSON => {
|
|
##Collateral data is stored as JSON in here
|
|
autoGenerate => 0,
|
|
defaultValue => '[]',
|
|
},
|
|
relatedJSON => {
|
|
##Collateral data is stored as JSON in here
|
|
autoGenerate => 0,
|
|
defaultValue => '[]',
|
|
},
|
|
);
|
|
push(@{$definition}, {
|
|
assetName=>$i18n->get('assetName'),
|
|
autoGenerateForms=>1,
|
|
icon=>'product.gif',
|
|
tableName=>'Product',
|
|
className=>'WebGUI::Asset::Sku::Product',
|
|
properties=>\%properties
|
|
}
|
|
);
|
|
return $class->SUPER::definition($session, $definition);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 deleteCollateral ( tableName, index )
|
|
|
|
Deletes a row of collateral data.
|
|
|
|
=head3 tableName
|
|
|
|
The name of the table you wish to delete the data from.
|
|
|
|
=head3 index
|
|
|
|
The index of the data to delete from the collateral.
|
|
|
|
=cut
|
|
|
|
sub deleteCollateral {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
my $index = shift;
|
|
my $table = $self->getAllCollateral($tableName);
|
|
return unless (abs($index) <= $#{$table});
|
|
splice @{ $table }, $index, 1;
|
|
$self->setAllCollateral($tableName);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub duplicate {
|
|
my $self = shift;
|
|
my $newAsset = $self->SUPER::duplicate(@_);
|
|
|
|
foreach my $file ('image1', 'image2', 'image3', 'manual', 'brochure', 'warranty') {
|
|
$self->_duplicateFile($newAsset, $file);
|
|
}
|
|
|
|
foreach my $basename ('feature', 'benefit', 'specification') {
|
|
my $table = "Product_${basename}";
|
|
my $sth = $self->session->db->read("select * from $table where assetId=?", [$self->getId]);
|
|
while (my $row = $sth->hashRef) {
|
|
$row->{"${table}Id"} = "new";
|
|
$row->{"assetId"} = $newAsset->getId;
|
|
$newAsset->setCollateral($table, "${table}Id", $row);
|
|
}
|
|
}
|
|
|
|
return $newAsset;
|
|
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getAllCollateral ( tableName )
|
|
|
|
Returns an array reference to the translated JSON data for the
|
|
requested collateral table.
|
|
|
|
=head3 tableName
|
|
|
|
The name of the table you wish to retrieve the data from.
|
|
|
|
=cut
|
|
|
|
sub getAllCollateral {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
return $self->{_collateral}->{$tableName} if exists $self->{_collateral}->{$tableName};
|
|
my $json = $self->get($tableName);
|
|
my $table;
|
|
if ($json) {
|
|
$table = from_json($json);
|
|
}
|
|
else {
|
|
$table = [];
|
|
}
|
|
$self->{_collateral}->{$tableName} = $table;
|
|
return $table;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getCollateral ( tableName, keyName, keyValue )
|
|
|
|
Returns a hash reference containing one row of collateral data from a particular
|
|
table.
|
|
|
|
=head3 tableName
|
|
|
|
The name of the table you wish to retrieve the data from.
|
|
|
|
=head3 index
|
|
|
|
A string containing the index to fetch. If the index is equal to "new"
|
|
or null, then an empty hashRef will be returned to avoid strict errors.
|
|
If the requested index is beyond the end of the collateral array, it
|
|
also returns an empty hashRef.
|
|
|
|
=cut
|
|
|
|
sub getCollateral {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
my $index = shift;
|
|
if ($index eq "new" || $index eq "") {
|
|
return {};
|
|
}
|
|
my $table = $self->getAllCollateral($tableName);
|
|
##I don't know why you'd send this a negative index,
|
|
##but it's valid perl.
|
|
if (abs($index) <= $#{$table}) {
|
|
return $table->[$index];
|
|
}
|
|
else {
|
|
return {};
|
|
}
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 getIndexedCollateralData ( tableName )
|
|
|
|
Same as getAllCollateral, except that an additional field, collateralIndex,
|
|
is added to each hash. This makes it easy to build loops for collateral
|
|
operations such as editing, deleting or moving.
|
|
|
|
=head3 tableName
|
|
|
|
The name of the table you wish to retrieve the data from.
|
|
|
|
=cut
|
|
|
|
sub getIndexedCollateralData {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
my $table;
|
|
|
|
if ($self->{_collateral}->{$tableName}) {
|
|
$table = $self->{_collateral}->{$tableName};
|
|
}
|
|
else {
|
|
my $json = $self->get($tableName);
|
|
my $table;
|
|
if ($json) {
|
|
$table = from_json($json);
|
|
}
|
|
else {
|
|
$table = [];
|
|
}
|
|
}
|
|
my $indexedTable = [];
|
|
for (my $index = 0; $index <= $#{ $table }; ++$index) {
|
|
my %row = %{ $table->[$index] };
|
|
$row{collateralIndex} = $index;
|
|
push @{ $indexedTable }, \%row;
|
|
}
|
|
|
|
return $indexedTable;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getFileIconUrl {
|
|
my $self = shift;
|
|
my $store = $_[0];
|
|
return $store->getFileIconUrl($self->getFilename($store));
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getFilename {
|
|
my $self = shift;
|
|
my $store = $_[0];
|
|
my $files = $store->getFiles();
|
|
foreach my $file (@{$files}){
|
|
unless($file =~ m/^thumb-/){
|
|
return $file;
|
|
}
|
|
}
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getFileUrl {
|
|
my $self = shift;
|
|
my $store = $_[0];
|
|
return $store->getUrl($self->getFilename($store));
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getPrice {
|
|
my $self = shift;
|
|
return $self->get('price');
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub getThumbnailUrl {
|
|
my $self = shift;
|
|
my $store = shift || WebGUI::Storage::Image->get($self->session, $self->get('image1'));
|
|
return $store->getThumbnailUrl($store->getFiles->[0]);
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 indexContent ( )
|
|
|
|
Indexing product data. See WebGUI::Asset::indexContent() for additonal details.
|
|
|
|
=cut
|
|
|
|
sub indexContent {
|
|
my $self = shift;
|
|
my $indexer = $self->SUPER::indexContent;
|
|
my @data = $self->session->db->buildArray("select feature from Product_feature where assetId=".$self->session->db->quote($self->getId));
|
|
$indexer->addKeywords(join(" ", @data));
|
|
@data = $self->session->db->buildArray("select benefit from Product_benefit where assetId=".$self->session->db->quote($self->getId));
|
|
$indexer->addKeywords(join(" ", @data));
|
|
@data = $self->session->db->buildArray("select concat(name,' ',value,' ', units) from Product_specification where assetId=".$self->session->db->quote($self->getId));
|
|
$indexer->addKeywords(join(" ", @data));
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 moveCollateralDown ( tableName, index )
|
|
|
|
Moves a collateral data item down one position. If called on the last element of the
|
|
collateral array then it does nothing.
|
|
|
|
=head3 tableName
|
|
|
|
A string indicating the table that contains the collateral data.
|
|
|
|
=head3 index
|
|
|
|
The index of the collateral data to move down.
|
|
|
|
=cut
|
|
|
|
### NOTE: There is a redundant use of assetId in some of these statements on purpose to support
|
|
### two different types of collateral data.
|
|
|
|
sub moveCollateralDown {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
my $index = shift;
|
|
|
|
my $table = $self->getAllCollateral($tableName);
|
|
return unless (abs($index) < $#{$table});
|
|
@{ $table }[$index,$index+1] = @{ $table }[$index+1,$index];
|
|
$self->setAllCollateral($tableName);
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 moveCollateralDown ( tableName, index )
|
|
|
|
Moves a collateral data item up one position. If called on the first element of the
|
|
collateral array then it does nothing.
|
|
|
|
=head3 tableName
|
|
|
|
A string indicating the table that contains the collateral data.
|
|
|
|
=head3 index
|
|
|
|
The index of the collateral data to move up.
|
|
|
|
=cut
|
|
|
|
### NOTE: There is a redundant use of assetId in some of these statements on purpose to support
|
|
### two different types of collateral data.
|
|
|
|
sub moveCollateralUp {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
my $index = shift;
|
|
|
|
my $table = $self->getAllCollateral($tableName);
|
|
return unless $index && (abs($index) <= $#{$table});
|
|
@{ $table }[$index-1,$index] = @{ $table }[$index,$index-1];
|
|
$self->setAllCollateral($tableName);
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 prepareView ( )
|
|
|
|
See WebGUI::Asset::prepareView() for details.
|
|
|
|
=cut
|
|
|
|
sub prepareView {
|
|
my $self = shift;
|
|
$self->SUPER::prepareView();
|
|
my $template = WebGUI::Asset::Template->new($self->session, $self->get("templateId"));
|
|
$template->prepare;
|
|
$self->{_viewTemplate} = $template;
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub purge {
|
|
my $self = shift;
|
|
my $sth = $self->session->db->read("select image1, image2, image3, brochure, manual, warranty from Product where assetId=".$self->session->db->quote($self->getId));
|
|
while (my @array = $sth->array) {
|
|
foreach my $id (@array){
|
|
next if ($id eq "");
|
|
WebGUI::Storage->get($self->session,$id)->delete;
|
|
}
|
|
}
|
|
$sth->finish;
|
|
$self->session->db->write("delete from Product_benefit where assetId=".$self->session->db->quote($self->getId));
|
|
$self->session->db->write("delete from Product_feature where assetId=".$self->session->db->quote($self->getId));
|
|
$self->session->db->write("delete from Product_specification where assetId=".$self->session->db->quote($self->getId));
|
|
$self->SUPER::purge();
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 purgeCache ( )
|
|
|
|
See WebGUI::Asset::purgeCache() for details.
|
|
|
|
=cut
|
|
|
|
sub purgeCache {
|
|
my $self = shift;
|
|
WebGUI::Cache->new($self->session,"view_".$self->getId)->delete;
|
|
$self->SUPER::purgeCache;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
sub purgeRevision {
|
|
my $self = shift;
|
|
WebGUI::Storage->get($self->session,$self->get("image1"))->delete if ($self->get("image1"));
|
|
WebGUI::Storage->get($self->session,$self->get("image2"))->delete if ($self->get("image2"));
|
|
WebGUI::Storage->get($self->session,$self->get("image3"))->delete if ($self->get("image3"));
|
|
WebGUI::Storage->get($self->session,$self->get("brochure"))->delete if ($self->get("brochure"));
|
|
WebGUI::Storage->get($self->session,$self->get("manual"))->delete if ($self->get("manual"));
|
|
WebGUI::Storage->get($self->session,$self->get("warranty"))->delete if ($self->get("warranty"));
|
|
return $self->SUPER::purgeRevision;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 reorderCollateral ( tableName,keyName [,setName,setValue] )
|
|
|
|
Resequences collateral data. Typically useful after deleting a collateral item to remove the gap created by the deletion.
|
|
|
|
=head3 tableName
|
|
|
|
The name of the table to resequence.
|
|
|
|
=head3 keyName
|
|
|
|
The key column name used to determine which data needs sorting within the table.
|
|
|
|
=head3 setName
|
|
|
|
Defaults to "assetId". This is used to define which data set to reorder.
|
|
|
|
=head3 setValue
|
|
|
|
Used to define which data set to reorder. Defaults to the value of setName (default "assetId", see above) in the wobject properties.
|
|
|
|
=cut
|
|
|
|
sub reorderCollateral {
|
|
my $self = shift;
|
|
my $table = shift;
|
|
my $keyName = shift;
|
|
my $setName = shift || "assetId";
|
|
my $setValue = shift || $self->get($setName);
|
|
my $i = 1;
|
|
my $sth = $self->session->db->read("select $keyName from $table where $setName=? order by sequenceNumber", [$setValue]);
|
|
my $sth2 = $self->session->db->prepare("update $table set sequenceNumber=? where $setName=? and $keyName=?");
|
|
while (my ($id) = $sth->array) {
|
|
$sth2->execute([$i, $setValue, $id]);
|
|
$i++;
|
|
}
|
|
$sth2->finish;
|
|
$sth->finish;
|
|
}
|
|
|
|
|
|
#-----------------------------------------------------------------
|
|
|
|
=head2 setAllCollateral ( tableName )
|
|
|
|
Update the db from the object cache.
|
|
|
|
=head3 tableName
|
|
|
|
The name of the table to insert the data.
|
|
|
|
=cut
|
|
|
|
sub setAllCollateral {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
my $json = to_json($self->{_collateral}->{$tableName});
|
|
$self->update({ $tableName => $json });
|
|
return;
|
|
}
|
|
|
|
#-----------------------------------------------------------------
|
|
|
|
=head2 setCollateral ( tableName, keyName, properties )
|
|
|
|
Performs and insert/update of collateral data for any wobject's collateral data.
|
|
|
|
=head3 tableName
|
|
|
|
The name of the table to insert the data.
|
|
|
|
=head3 index
|
|
|
|
The index of the collateral data to set. If the index = "new", then a new entry
|
|
will be appended to the end of the collateral array. Otherwise, then the
|
|
appropriate entry will be overwritten the data.
|
|
|
|
=head3 properties
|
|
|
|
A hash reference containing the name/value pairs to be inserted into the collateral, using
|
|
the index mentioned above.
|
|
|
|
=cut
|
|
|
|
sub setCollateral {
|
|
my $self = shift;
|
|
my $tableName = shift;
|
|
my $index = shift;
|
|
my $properties = shift;
|
|
##Note, since this returns a reference, it is actually updating
|
|
##the object cache directly.
|
|
my $table = $self->getAllCollateral($tableName);
|
|
if ($index eq "new") {
|
|
push @{ $table }, $properties;
|
|
$self->setAllCollateral($tableName);
|
|
return;
|
|
}
|
|
return unless (abs($index) <= $#{$table});
|
|
$table->[$index] = $properties;
|
|
$self->setAllCollateral($tableName);
|
|
return;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_addAccessory {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my $f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
|
|
$f->hidden(
|
|
-name => "func",
|
|
-value => "addAccessorySave",
|
|
);
|
|
##Accessories are other Products. Give the user a list of Accessories that
|
|
##are not already used, nor itself.
|
|
##Accessories can not be edited, only added or deleted.
|
|
my $table = $self->getAllCollateral('accessoryJSON');
|
|
my @usedAccessories = map { $_->{accessoryAssetId} } @{ $table };
|
|
push(@usedAccessories,$self->getId);
|
|
|
|
my $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 revisionDate=(select max(revisionDate) from assetData where asset.assetId=assetData.assetId)
|
|
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");
|
|
$f->selectBox(
|
|
-name => "accessoryAccessId",
|
|
-options => $accessory,
|
|
-label => $i18n->get(17),
|
|
-hoverHelp => $i18n->get('17 description'),
|
|
);
|
|
$f->yesNo(
|
|
-name => "proceed",
|
|
-label => $i18n->get(18),
|
|
-hoverHelp => $i18n->get('18 description'),
|
|
);
|
|
$f->submit;
|
|
|
|
return $self->getAdminConsole->render($f->print, "product accessory add/edit");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_addAccessorySave {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
|
|
my $accessoryAssetId = $self->session->form->process('accessoryAccessId');
|
|
return "" unless $accessoryAssetId;
|
|
$self->setCollateral('accessoryJSON', 'new', { accessoryAssetId => $accessoryAssetId });
|
|
return "" unless($self->session->form->process("proceed"));
|
|
return $self->www_addAccessory();
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_addRelated {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my $f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
|
|
$f->hidden(
|
|
-name => "func",
|
|
-value => "addRelatedSave",
|
|
);
|
|
##Relateds are other Products. Give the user a list of Related products that
|
|
##are not already used, nor itself.
|
|
##Accessories can not be edited, only added or deleted.
|
|
my $table = $self->getAllCollateral('relatedJSON');
|
|
my @usedRelated = map { $_->{relatedAssetId} } @{ $table };
|
|
push(@usedRelated, $self->getId);
|
|
|
|
##Note, hashref takes care of making things unique across revisionDate
|
|
my $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).") and (assetData.status='approved' or assetData.tagId=".$self->session->db->quote($self->session->scratch->get('versionTag')).") group by assetData.assetId");
|
|
my $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).")
|
|
and revisionDate=(select max(revisionDate) from assetData where asset.assetId=assetData.assetId)
|
|
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');
|
|
$f->selectBox(
|
|
-name => "relatedAssetId",
|
|
-options => $related,
|
|
-label => $i18n->get(20),
|
|
-hoverHelp => $i18n->get('20 description'),
|
|
);
|
|
$f->yesNo(
|
|
-name => "proceed",
|
|
-label => $i18n->get(21),
|
|
-hoverHelp => $i18n->get('21 description'),
|
|
);
|
|
$f->submit;
|
|
return $self->getAdminConsole->render($f->print,"product related add/edit");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_addRelatedSave {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my $relatedAssetId = $self->session->form->process("relatedAssetId");
|
|
return "" unless $relatedAssetId;
|
|
$self->setCollateral('relatedJSON', 'new', { relatedAssetId => $relatedAssetId });
|
|
return "" unless($self->session->form->process("proceed"));
|
|
return $self->www_addRelated();
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_deleteAccessoryConfirm
|
|
|
|
Delete an asset from the accessory list, by index.
|
|
|
|
=cut
|
|
|
|
sub www_deleteAccessoryConfirm {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->deleteCollateral('accessoryJSON', $self->session->form->process("aid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_deleteBenefitConfirm {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->deleteCollateral("Product_benefit","Product_benefitId",$self->session->form->process("bid"));
|
|
$self->reorderCollateral("Product_benefit","Product_benefitId");
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_deleteFeatureConfirm {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->deleteCollateral("Product_feature","Product_featureId",$self->session->form->process("fid"));
|
|
$self->reorderCollateral("Product_feature","Product_featureId");
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_deleteFileConfirm {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my $column = $self->session->form->process("file");
|
|
return $self->www_edit unless (isIn($column, qw(image1 image2 image3 manual warranty brochure)));
|
|
my $store = $self->get($column);
|
|
my $file = WebGUI::Storage->get($self->session,$store);
|
|
$file->delete if defined $file;
|
|
$self->update({$column=>''});
|
|
return $self->www_edit;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_deleteRelatedConfirm {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->deleteCollateral("Product_related", $self->session->form->process("rid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_deleteSpecificationConfirm {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->deleteCollateral("Product_specification","Product_specificationId",$self->session->form->process("sid"));
|
|
$self->reorderCollateral("Product_specification","Product_specificationId");
|
|
return "";
|
|
}
|
|
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editBenefit {
|
|
my $self = shift;
|
|
my $bid = shift || $self->session->form->process("bid");
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my ($data, $f, $benefits);
|
|
$data = $self->getCollateral("Product_benefit","Product_benefitId",$bid);
|
|
my $i18n = WebGUI::International->new($self->session,'Asset_Product');
|
|
$f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
|
|
$f->hidden(
|
|
-name => "bid",
|
|
-value => $data->{Product_benefitId},
|
|
);
|
|
$f->hidden(
|
|
-name => "func",
|
|
-value => "editBenefitSave",
|
|
);
|
|
$benefits = $self->session->db->buildHashRef("select benefit,benefit from Product_benefit order by benefit");
|
|
$f->combo(
|
|
-name => "benefit",
|
|
-options => $benefits,
|
|
-label => $i18n->get(51),
|
|
-hoverHelp => $i18n->get('51 description'),
|
|
-value => [$data->{benefits}],
|
|
);
|
|
$f->yesNo(
|
|
-name => "proceed",
|
|
-label => $i18n->get(52),
|
|
-hoverHelp => $i18n->get('52 description'),
|
|
);
|
|
$f->submit;
|
|
return $self->getAdminConsole->render($f->print, "product benefit add/edit");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editBenefitSave {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->setCollateral("Product_benefit", "Product_benefitId", {
|
|
Product_benefitId => $self->session->form->process("bid"),
|
|
benefit => $self->session->form->process("benefit","combo")
|
|
});
|
|
return "" unless($self->session->form->process("proceed"));
|
|
return $self->www_editBenefit("new");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editFeature {
|
|
my $self = shift;
|
|
my $fid = shift || $self->session->form->process("fid");
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my ($data, $f, $features);
|
|
$data = $self->getCollateral("Product_feature","Product_featureId",$fid);
|
|
my $i18n = WebGUI::International->new($self->session,'Asset_Product');
|
|
$f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
|
|
$f->hidden(
|
|
-name => "fid",
|
|
-value => $data->{Product_featureId},
|
|
);
|
|
$f->hidden(
|
|
-name => "func",
|
|
-value => "editFeatureSave",
|
|
);
|
|
$features = $self->session->db->buildHashRef("select feature,feature from Product_feature order by feature");
|
|
$f->combo(
|
|
-name => "feature",
|
|
-options => $features,
|
|
-label => $i18n->get(23),
|
|
-hoverHelp => $i18n->get('23 description'),
|
|
-value => [$data->{feature}],
|
|
);
|
|
$f->yesNo(
|
|
-name => "proceed",
|
|
-label => $i18n->get(24),
|
|
-hoverHelp => $i18n->get('24 description'),
|
|
);
|
|
$f->submit;
|
|
return $self->getAdminConsole->render($f->print, "product feature add/edit");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editFeatureSave {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->setCollateral("Product_feature", "Product_featureId", {
|
|
Product_featureId => $self->session->form->process("fid"),
|
|
feature => $self->session->form->process("feature","combo")
|
|
});
|
|
return "" unless($self->session->form->process("proceed"));
|
|
return $self->www_editFeature("new");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editSpecification {
|
|
my $self = shift;
|
|
my $sid = shift || $self->session->form->process("sid");
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my ($data, $f, $hashRef);
|
|
my $i18n = WebGUI::International->new($self->session,'Asset_Product');
|
|
$data = $self->getCollateral("Product_specification","Product_specificationId",$sid);
|
|
$f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl);
|
|
$f->hidden(
|
|
-name => "sid",
|
|
-value => $data->{Product_specificationId},
|
|
);
|
|
$f->hidden(
|
|
-name => "func",
|
|
-value => "editSpecificationSave",
|
|
);
|
|
$hashRef = $self->session->db->buildHashRef("select name,name from Product_specification order by name");
|
|
$f->combo(
|
|
-name => "name",
|
|
-options => $hashRef,
|
|
-label => $i18n->get(26),
|
|
-hoverHelp => $i18n->get('26 description'),
|
|
-value => [$data->{name}],
|
|
);
|
|
$f->text(
|
|
-name => "value",
|
|
-label => $i18n->get(27),
|
|
-hoverHelp => $i18n->get('27 description'),
|
|
-value => $data->{value},
|
|
);
|
|
$hashRef = $self->session->db->buildHashRef("select units,units from Product_specification order by units");
|
|
$f->combo(
|
|
-name => "units",
|
|
-options => $hashRef,
|
|
-label => $i18n->get(29),
|
|
-hoverHelp => $i18n->get('29 description'),
|
|
-value => [$data->{units}],
|
|
);
|
|
$f->yesNo(
|
|
-name => "proceed",
|
|
-label => $i18n->get(28),
|
|
-hoverHelp => $i18n->get('28 description'),
|
|
);
|
|
$f->submit;
|
|
return $self->getAdminConsole->render($f->print, "product specification add/edit");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editSpecificationSave {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->setCollateral("Product_specification", "Product_specificationId", {
|
|
Product_specificationId => $self->session->form->process("sid"),
|
|
name => $self->session->form->process("name","combo"),
|
|
value => $self->session->form->process("value","combo"),
|
|
units => $self->session->form->process("units","combo")
|
|
});
|
|
|
|
return "" unless($self->session->form->process("proceed"));
|
|
return $self->www_editSpecification("new");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editVariant {
|
|
my $self = shift;
|
|
my $sku = shift || $self->session->form->process("varSku");
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
my $i18n = WebGUI::International->new($self->session,'Asset_Product');
|
|
my $data = $self->getCollateral("Product_variants", "varSku", $sku);
|
|
my $f = WebGUI::HTMLForm->new($self->session, -action=>$self->getUrl);
|
|
$f->hidden(
|
|
-name => 'func',
|
|
-value => "editVariantSave",
|
|
);
|
|
$f->text(
|
|
-name => 'varSku',
|
|
-label => $i18n->get('variant sku'),
|
|
-hoverHelp => $i18n->get('variant sku description'),
|
|
-value => $data->{price},
|
|
);
|
|
$f->text(
|
|
-name => 'shortdesc',
|
|
-size => 30,
|
|
-label => $i18n->get('shortdesc'),
|
|
-hoverHelp => $i18n->get('shortdesc description'),
|
|
-value => $data->{price},
|
|
);
|
|
$f->integer(
|
|
-name => 'price',
|
|
-label => $i18n->get(10),
|
|
-hoverHelp => $i18n->get('10 description'),
|
|
-value => $data->{price},
|
|
);
|
|
$f->float(
|
|
-name => 'weight',
|
|
-label => $i18n->get('weight'),
|
|
-hoverHelp => $i18n->get('weight description'),
|
|
-value => $data->{weight},
|
|
);
|
|
$f->integer(
|
|
-name => 'quantity',
|
|
-label => $i18n->get('quantity'),
|
|
-hoverHelp => $i18n->get('quantity description'),
|
|
-value => $data->{quantity},
|
|
);
|
|
$f->submit;
|
|
return $self->getAdminConsole->render($f->print, 'add variant');
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editVariantSave {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
##Mandatory variable check
|
|
$self->setCollateral('Product_variants', 'varSku', {
|
|
varSku => $self->session->form->process('varSku', 'text'),
|
|
mastersku => $self->get('sku'),
|
|
shortdesc => $self->session->form->process('shortdesc', 'text'),
|
|
price => $self->session->form->process('name', 'float'),
|
|
weight => $self->session->form->process('weight', 'float'),
|
|
quantity => $self->session->form->process('quantity', 'integer'),
|
|
});
|
|
|
|
return $self->www_editVariant("new");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveAccessoryDown {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralDown('accessoryJSON', $self->session->form->process('aid'));
|
|
return '';
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveAccessoryUp {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralUp('accessoryJSON', $self->session->form->process('aid'));
|
|
return '';
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveBenefitDown {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralDown("Product_benefit","Product_benefitId",$self->session->form->process("bid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveBenefitUp {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralUp("Product_benefit","Product_benefitId",$self->session->form->process("bid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveFeatureDown {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralDown("Product_feature","Product_featureId",$self->session->form->process("fid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveFeatureUp {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralUp("Product_feature","Product_featureId",$self->session->form->process("fid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveRelatedDown {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralDown('relatedJSON', $self->session->form->process('rid'));
|
|
return '';
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveRelatedUp {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralUp('relatedJSON', $self->session->form->process('rid'));
|
|
return '';
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveSpecificationDown {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralDown("Product_specification","Product_specificationId",$self->session->form->process("sid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_moveSpecificationUp {
|
|
my $self = shift;
|
|
return $self->session->privilege->insufficient() unless ($self->canEdit);
|
|
$self->moveCollateralUp("Product_specification","Product_specificationId",$self->session->form->process("sid"));
|
|
return "";
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub view {
|
|
my $self = shift;
|
|
if (!$self->session->var->isAdminOn && $self->get("cacheTimeout") > 10) {
|
|
my $out = WebGUI::Cache->new($self->session,"view_".$self->getId)->get;
|
|
return $out if $out;
|
|
}
|
|
my (%data, $sth, $file, $segment, %var, @featureloop, @benefitloop, @specificationloop, @accessoryloop, @relatedloop);
|
|
tie %data, 'Tie::CPHash';
|
|
my $brochure = $self->get("brochure");
|
|
my $manual = $self->get("manual");
|
|
my $warranty = $self->get("warranty");
|
|
|
|
my $image1 = $self->get("image1");
|
|
my $image2 = $self->get("image2");
|
|
my $image3 = $self->get("image3");
|
|
|
|
#---brochure
|
|
my $i18n = WebGUI::International->new($self->session,'Asset_Product');
|
|
if ($brochure) {
|
|
$file = WebGUI::Storage->get($self->session,$brochure);
|
|
$var{"brochure.icon"} = $self->getFileIconUrl($file);
|
|
$var{"brochure.label"} = $i18n->get(13);
|
|
$var{"brochure.URL"} = $self->getFileUrl($file);
|
|
}
|
|
#---manual
|
|
if ($manual) {
|
|
$file = WebGUI::Storage->get($self->session,$manual);
|
|
$var{"manual.icon"} = $self->getFileIconUrl($file);
|
|
$var{"manual.label"} = $i18n->get(14);
|
|
$var{"manual.URL"} = $self->getFileUrl($file);
|
|
}
|
|
#---warranty
|
|
if ($warranty) {
|
|
$file = WebGUI::Storage->get($self->session,$warranty);
|
|
$var{"warranty.icon"} = $self->getFileIconUrl($file);
|
|
$var{"warranty.label"} = $i18n->get(15);
|
|
$var{"warranty.URL"} = $self->getFileUrl($file);
|
|
}
|
|
#---image1
|
|
if ($image1) {
|
|
$file = WebGUI::Storage::Image->get($self->session,$image1);
|
|
$var{thumbnail1} = $self->getThumbnailUrl($file);
|
|
$var{image1} = $self->getFileUrl($file);
|
|
}
|
|
#---image2
|
|
if ($image2) {
|
|
$file = WebGUI::Storage::Image->get($self->session,$image2);
|
|
$var{thumbnail2} = $self->getThumbnailUrl($file);
|
|
$var{image2} = $self->getFileUrl($file);
|
|
}
|
|
#---image3
|
|
if ($image3) {
|
|
$file = WebGUI::Storage::Image->get($self->session,$image3);
|
|
$var{thumbnail3} = $self->getThumbnailUrl($file);
|
|
$var{image3} = $self->getFileUrl($file);
|
|
}
|
|
|
|
#---features
|
|
$var{"addFeature.url"} = $self->getUrl('func=editFeature&fid=new');
|
|
$var{"addFeature.label"} = $i18n->get(34);
|
|
$sth = $self->session->db->read("select feature,Product_featureId from Product_feature where assetId=".$self->session->db->quote($self->getId)." order by sequenceNumber");
|
|
while (%data = $sth->hash) {
|
|
$segment = $self->session->icon->delete('func=deleteFeatureConfirm&fid='.$data{Product_featureId},$self->get("url"),$i18n->get(3))
|
|
.$self->session->icon->edit('func=editFeature&fid='.$data{Product_featureId},$self->get("url"))
|
|
.$self->session->icon->moveUp('func=moveFeatureUp&&fid='.$data{Product_featureId},$self->get("url"))
|
|
.$self->session->icon->moveDown('func=moveFeatureDown&&fid='.$data{Product_featureId},$self->get("url"));
|
|
push(@featureloop,{
|
|
"feature.feature"=>$data{feature},
|
|
"feature.controls"=>$segment
|
|
});
|
|
}
|
|
$sth->finish;
|
|
$var{feature_loop} = \@featureloop;
|
|
|
|
#---benefits
|
|
$var{"addBenefit.url"} = $self->getUrl('func=editBenefit&fid=new');
|
|
$var{"addBenefit.label"} = $i18n->get(55);
|
|
$sth = $self->session->db->read("select benefit,Product_benefitId from Product_benefit where assetId=".$self->session->db->quote($self->getId)." order by sequenceNumber");
|
|
while (%data = $sth->hash) {
|
|
$segment = $self->session->icon->delete('func=deleteBenefitConfirm&bid='.$data{Product_benefitId},$self->get("url"),$i18n->get(48))
|
|
.$self->session->icon->edit('func=editBenefit&bid='.$data{Product_benefitId},$self->get("url"))
|
|
.$self->session->icon->moveUp('func=moveBenefitUp&bid='.$data{Product_benefitId},$self->get("url"))
|
|
.$self->session->icon->moveDown('func=moveBenefitDown&bid='.$data{Product_benefitId},$self->get("url"));
|
|
push(@benefitloop,{
|
|
"benefit.benefit"=>$data{benefit},
|
|
"benefit.controls"=>$segment
|
|
});
|
|
}
|
|
$sth->finish;
|
|
$var{benefit_loop} = \@benefitloop;
|
|
|
|
#---specifications
|
|
$var{"addSpecification.url"} = $self->getUrl('func=editSpecification&sid=new');
|
|
$var{"addSpecification.label"} = $i18n->get(35);
|
|
$sth = $self->session->db->read("select name,value,units,Product_specificationId from Product_specification where assetId=".$self->session->db->quote($self->getId)." order by sequenceNumber");
|
|
while (%data = $sth->hash) {
|
|
$segment = $self->session->icon->delete('func=deleteSpecificationConfirm&sid='.$data{Product_specificationId},$self->get("url"),$i18n->get(5))
|
|
. $self->session->icon->edit('func=editSpecification&sid='.$data{Product_specificationId},$self->get("url"))
|
|
. $self->session->icon->moveUp('func=moveSpecificationUp&sid='.$data{Product_specificationId},$self->get("url"))
|
|
. $self->session->icon->moveDown('func=moveSpecificationDown&sid='.$data{Product_specificationId},$self->get("url"));
|
|
push(@specificationloop,{
|
|
"specification.controls" => $segment,
|
|
"specification.specification" => $data{value},
|
|
"specification.units" => $data{units},
|
|
"specification.label" => $data{name},
|
|
});
|
|
}
|
|
$sth->finish;
|
|
$var{specification_loop} = \@specificationloop;
|
|
|
|
#---accessories
|
|
$var{'addaccessory.url'} = $self->getUrl('func=addAccessory');
|
|
$var{'addaccessory.label'} = $i18n->get(36);
|
|
##Need an index for collateral operations, and an assetId for asset instantiation.
|
|
foreach my $collateral ( @{ $self->getIndexedCollateralData('accessoryJSON') } ) {
|
|
my $id = $collateral->{collateralIndex};
|
|
$segment = $self->session->icon->delete('func=deleteAccessoryConfirm&aid='.$id,$self->get('url'),$i18n->get(2))
|
|
. $self->session->icon->moveUp('func=moveAccessoryUp&aid='.$id,$self->get('url'))
|
|
. $self->session->icon->moveDown('func=moveAccessoryDown&aid='.$id,$self->get('url'));
|
|
my $accessory = WebGUI::Asset->newByDynamicClass($self->session, $collateral->{accessoryAssetId});
|
|
push(@accessoryloop,{
|
|
'accessory.URL' => $accessory->getUrl,
|
|
'accessory.title' => $accessory->getTitle,
|
|
'accessory.controls' => $segment,
|
|
});
|
|
}
|
|
$var{accessory_loop} = \@accessoryloop;
|
|
|
|
#---related
|
|
$var{'addrelatedproduct.url'} = $self->getUrl('func=addRelated');
|
|
$var{'addrelatedproduct.label'} = $i18n->get(37);
|
|
foreach my $collateral ( @{ $self->getIndexedCollateralData('relatedJSON')} ) {
|
|
my $id = $collateral->{collateralIndex};
|
|
$segment = $self->session->icon->delete('func=deleteRelatedConfirm&rid='.$id, $self->get('url'),$i18n->get(4))
|
|
. $self->session->icon->moveUp('func=moveRelatedUp&rid='.$id, $self->get('url'))
|
|
. $self->session->icon->moveDown('func=moveRelatedDown&rid='.$id, $self->get('url'));
|
|
my $related = WebGUI::Asset->newByDynamicClass($self->session, $collateral->{relatedAssetId});
|
|
push(@relatedloop,{
|
|
'relatedproduct.URL' => $related->getUrl,
|
|
'relatedproduct.title' => $related->getTitle,
|
|
'relatedproduct.controls' => $segment,
|
|
});
|
|
}
|
|
$var{relatedproduct_loop} = \@relatedloop;
|
|
|
|
my $out = $self->processTemplate(\%var,undef,$self->{_viewTemplate});
|
|
if (!$self->session->var->isAdminOn && $self->get("cacheTimeout") > 10) {
|
|
WebGUI::Cache->new($self->session,"view_".$self->getId)->set($out,$self->get("cacheTimeout"));
|
|
}
|
|
return $out;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
|
|
=head2 www_view ( )
|
|
|
|
See WebGUI::Asset::Sku::www_view() for details.
|
|
|
|
=cut
|
|
|
|
sub www_view {
|
|
my $self = shift;
|
|
$self->session->http->setCacheControl($self->get("cacheTimeout"));
|
|
$self->SUPER::www_view(@_);
|
|
}
|
|
|
|
1;
|
|
|