Add missing POD for Tax.

This commit is contained in:
Colin Kuskie 2009-07-04 17:28:20 +00:00
parent 576b914293
commit 3a153a17cd

View file

@ -206,14 +206,18 @@ sub getConfiguredTitle {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getEditForm ( )
Extends the base class to add Tax information for the Sku, in a new tab.
=cut
sub getEditForm { sub getEditForm {
my $self = shift; my $self = shift;
my $session = $self->session; my $session = $self->session;
my $tabform = $self->SUPER::getEditForm; my $tabform = $self->SUPER::getEditForm;
# Let the tax system add the form fields that are required by the active tax plugin for configuring the sku tax.
# WebGUI::Shop::Tax->new( $session )->appendSkuForm( $self->getId, $tabform->getTab('shop') );
my $taxDriver = WebGUI::Shop::Tax->getDriver( $session ); my $taxDriver = WebGUI::Shop::Tax->getDriver( $session );
my $definition = $taxDriver->skuFormDefinition; my $definition = $taxDriver->skuFormDefinition;
@ -328,6 +332,18 @@ sub getRecurInterval {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getTaxConfiguration ( $namespace )
Returns the tax configuration data for the Shop from the JSON blob for this Sku.
=head3 $namespace
The class name of a tax driver. Configuration data for that driver will be
returned.
=cut
sub getTaxConfiguration { sub getTaxConfiguration {
my $self = shift; my $self = shift;
my $namespace = shift; my $namespace = shift;
@ -338,7 +354,7 @@ sub getTaxConfiguration {
return undef; return undef;
} }
return $configs->{ $namespace } return $configs->{ $namespace };
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
@ -570,6 +586,13 @@ sub onRemoveFromCart {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 processPropertiesFromFormPost ( )
Extends the base class to process the tax data.
=cut
sub processPropertiesFromFormPost { sub processPropertiesFromFormPost {
my $self = shift; my $self = shift;