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

Fill out the guts of the product data exporter.

Browse source
This commit is contained in:
Colin Kuskie 2008-05-28 04:53:09 +00:00
parent 0a05d637d4
commit c07c856b29
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Shop/Products.pm
View file

@ -41,6 +41,15 @@ sub exportProducts {
my $session = shift;
my @columns = qw{sku title shortdescription price weight quantity};
my $productData = WebGUI::Text::joinCSV('mastersku', @columns) . "\n";
@columns = map { $_ eq 'shortdescription' ? 'shortdesc' : $_ } @columns;
while (my $product = WebGUI::Asset::Sku::Product->getAllProducts($session)) {
my $mastersku = $product->get('sku');
my $collateri = $product->getAllCollateral();
foreach my $collateral (@{ $collateri }) {
my @productFields = @{ $collateral }{ @columns };
$productData .= WebGUI::Test::joinCSV($mastersku, @productFields);
}
}
my $storage = WebGUI::Storage->createTemp($session);
$storage->addFileFromScalar('siteProductData.csv', $productData);
return $storage;