Remove duplicate code in Sku/Ad.pm using sub arguments.

This commit is contained in:
Colin Kuskie 2010-04-08 15:37:05 -07:00
parent c835344813
commit 87b5eed18b

View file

@ -407,37 +407,21 @@ sub parseDiscountText {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 prepareManage
Prepares the template.
=cut
sub prepareManage {
my $self = shift;
$self->SUPER::prepareView();
my $templateId = $self->manageTemplate;
my $template = WebGUI::Asset::Template->newById($self->session, $templateId);
$template->prepare($self->getMetaDataAsTemplateVariables);
$self->{_viewTemplate} = $template;
}
#-------------------------------------------------------------------
=head2 prepareView =head2 prepareView
Prepares the template. Prepares the template for both www_view and www_manage
=cut =cut
sub prepareView { around prepareView => sub {
my $orig = shift;
my $self = shift; my $self = shift;
$self->SUPER::prepareView(); $self->$orig();
my $templateId = $self->purchaseTemplate; my $templateId = shift || $self->purchaseTemplate;
my $template = WebGUI::Asset::Template->newById($self->session, $templateId); my $template = WebGUI::Asset::Template->newById($self->session, $templateId);
$template->prepare($self->getMetaDataAsTemplateVariables); $template->prepare($self->getMetaDataAsTemplateVariables);
$self->{_viewTemplate} = $template; $self->{_viewTemplate} = $template;
} };
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -602,7 +586,7 @@ sub www_manage {
return $check if (defined $check); return $check if (defined $check);
$self->session->http->setLastModified($self->getContentLastModified); $self->session->http->setLastModified($self->getContentLastModified);
$self->session->http->sendHeader; $self->session->http->sendHeader;
$self->prepareManage; $self->prepareView($self->manageTemplate);
my $style = $self->processStyle($self->getSeparator); my $style = $self->processStyle($self->getSeparator);
my ($head, $foot) = split($self->getSeparator,$style); my ($head, $foot) = split($self->getSeparator,$style);
$self->session->output->print($head, 1); $self->session->output->print($head, 1);