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

Added POD where I still had to.

Browse source
This commit is contained in:
Martin Kamerbeek 2008-06-13 13:44:14 +00:00
parent c7083c8177
commit 45756c36ba
3 changed files with 208 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

50
lib/WebGUI/Shop/PayDriver/Cash.pm
View file

@ -8,6 +8,13 @@ use WebGUI::Exception;
use base qw/WebGUI::Shop::PayDriver/;
#-------------------------------------------------------------------
=head2 canCheckOutCart ( )
Returns whether the cart can be checked out by this plugin.
=cut
sub canCheckoutCart {
my $self = shift;
my $cart = $self->getCart;
@ -20,6 +27,12 @@ sub canCheckoutCart {
#-------------------------------------------------------------------
=head2 definition ( session, definition )
See WebGUI::Shop::PayDriver->definition.
=cut
sub definition {
my $class = shift;
my $session = shift;
@ -39,6 +52,13 @@ sub definition {
#-------------------------------------------------------------------
=head2 getButton ( )
Returns the HTML for a form containing a button that, when clicked, will take the user to the checkout screen of
this plugin.
=cut
sub getButton {
my $self = shift;
my $session = $self->session;
@ -52,9 +72,14 @@ sub getButton {
return $payForm;
}
#-------------------------------------------------------------------
=head2 processPayment ( )
Returns (1, undef, 1, 'Success'), meaning that the payments whith this plugin always are successful.
=cut
sub processPayment {
return (1, undef, 1, 'Success');
}
@ -66,6 +91,17 @@ sub www_displayStatus {
}
#-------------------------------------------------------------------
=head2 www_getCredentials ( [ addressId ] )
Displays the checkout form for this plugin.
=head3 addressId
Optionally supply this variable which will set the payment address to this addressId.
=cut
sub www_getCredentials {
my ($self, $addressId) = @_;
my $session = $self->session;
@ -110,6 +146,12 @@ sub www_getCredentials {
#-------------------------------------------------------------------
=head2 www_pay ( )
Checks credentials, and completes the transaction if those are correct.
=cut
sub www_pay {
my $self = shift;
my $session = $self->session;
@ -131,6 +173,12 @@ sub www_pay {
#-------------------------------------------------------------------
=head2 www_setBillingAddress {
Stores the selected billing address in this instance.
=cut
sub www_setBillingAddress {
my $self = shift;
my $session = $self->session;