From eed390e96be30675de46c93a30796e2897e9a617 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 23 Jun 2010 08:45:33 -0700
Subject: [PATCH] Prevent type-casting warning when a Product has no price.

---
 lib/WebGUI/Asset/Wobject/Shelf.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/Shelf.pm b/lib/WebGUI/Asset/Wobject/Shelf.pm
index a46ca7ec1..ea80d93b5 100644
--- a/lib/WebGUI/Asset/Wobject/Shelf.pm
+++ b/lib/WebGUI/Asset/Wobject/Shelf.pm
@@ -306,7 +306,7 @@ sub view {
         my $sku               = $asset->get;
         $sku->{url}           = $asset->getUrl;
         $sku->{thumbnailUrl}  = $asset->getThumbnailUrl;
-        $sku->{price}         = sprintf("%.2f", $asset->getPrice);
+        $sku->{price}         = sprintf("%.2f", $asset->getPrice ? $asset->getPrice : 0);
         $sku->{addToCartForm} = $asset->getAddToCartForm;
         push @skus, $sku;
     }