From d77fec01c04e19c4980c059ef9913c888a17e9a2 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Tue, 10 Jun 2008 03:37:21 +0000 Subject: [PATCH] add POD, change spacing --- lib/WebGUI/Asset/Sku/Product.pm | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/lib/WebGUI/Asset/Sku/Product.pm b/lib/WebGUI/Asset/Sku/Product.pm index 4ac55af17..ad6030b60 100644 --- a/lib/WebGUI/Asset/Sku/Product.pm +++ b/lib/WebGUI/Asset/Sku/Product.pm @@ -681,14 +681,20 @@ sub purgeCache { #------------------------------------------------------------------- -sub purgeRevision { +=head2 purgeRevision ( ) + +See WebGUI::Asset::purgeRevision() for details. + +=cut + +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")); + 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; }