ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

summary refs log tree commit diff

path: root/Bundle/IkiWiki.pm

diff options

Diffstat (limited to 'Bundle/IkiWiki.pm')

0 files changed, 0 insertions, 0 deletions

n class="hl slc"># Author: DWS Systems Inc.

# Web: http://www.sql-ledger.org

# Contributors:

# Author: DWS Systems Inc.

# Web: http://www.ledgersmb.org/

# Contributors:

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

# Payment module

#======================================================================

use LedgerSMB::CP;

use LedgerSMB::OP;

use LedgerSMB::IS;

use LedgerSMB::IR;

require "bin/arap.pl";

# end of main

sub payment {

  if ($form->{type} eq 'receipt') {

    $form->{ARAP} = "AR";

    $form->{arap} = "ar";

    $form->{vc} = "customer";

    $form->{formname} = "receipt";

}

  if ($form->{type} eq 'check') {

    $form->{ARAP} = "AP";

    $form->{arap} = "ap";

    $form->{vc} = "vendor";

    $form->{formname} = "check";

}

  $form->{payment} = "payment";

  $form->{callback} = "$form->{script}?action=payment&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&all_vc=$form->{all_vc}&type=$form->{type}";

# setup customer/vendor selection for open invoices

  if ($form->{all_vc}) {

    $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP}, undef, $form->{datepaid});

  } else {

    CP->get_openvc(\%myconfig, \%$form);

    if ($myconfig{vclimit} > 0) {

      $form->{"all_$form->{vc}"} = $form->{name_list};

}

  $form->{"select$form->{vc}"} = "";

  if (@{ $form->{"all_$form->{vc}"} }) {

    $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};


context:
space:
mode: