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

summary refs log tree commit diff

path: root/doc/plugins/toggle

diff options

Diffstat (limited to 'doc/plugins/toggle')

0 files changed, 0 insertions, 0 deletions

# 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.

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

# AR / AP

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

use LedgerSMB::Tax;

# any custom scripts for this one

if (-f "bin/custom/aa.pl") {

      eval { require "bin/custom/aa.pl"; };

}

if (-f "bin/custom/$form->{login}_aa.pl") {

      eval { require "bin/custom/$form->{login}_aa.pl"; };

}

# end of main

# this is for our long dates

# $locale->text('January')

# $locale->text('February')

# $locale->text('March')

# $locale->text('April')

# $locale->text('May ')

# $locale->text('June')

# $locale->text('July')

# $locale->text('August')

# $locale->text('September')

# $locale->text('October')

# $locale->text('November')

# $locale->text('December')

# this is for our short month

# $locale->text('Jan')

# $locale->text('Feb')

# $locale->text('Mar')

# $locale->text('Apr')

# $locale->text('May')

# $locale->text('Jun')

# $locale->text('Jul')

# $locale->text('Aug')

# $locale->text('Sep')

# $locale->text('Oct')

# $locale->text('Nov')

# $locale->text('Dec')

sub add {

  $form->{title} = "Add";

  $form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};

&create_links;

  $form->{focus} = "amount_1";

&display_form;

}

sub edit {

  $form->{title} = "Edit";

&create_links;

&display_form;

}

sub display_form {

&form_header;

&form_footer;

}

sub create_links {

  $form->create_links($form->{ARAP}, \%myconfig, $form->{vc});

  $duedate = $form->{duedate};

  $taxincluded = $form->{taxincluded};

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

  $form->{format} = "postscript" if $myconfig{printer};

  $form->{media} = $myconfig{printer};

  $form->{selectformname} = qq|<option value="transaction">|.$locale->text('Transaction');

  if (${LedgerSMB::Sysconfig::latex}) {

    if ($form->{ARAP} eq 'AR') {

      $form->{selectformname} .= qq|

  <option value="receipt">|.$locale->text('Receipt');

    } else {

      $form->{selectformname} .= qq|

  <option value="check">|.$locale->text('Check');

}

# currencies

  @curr = split /:/, $form->{currencies};

  $form->{defaultcurrency} = $curr[0];

  chomp $form->{defaultcurrency};

  for (@curr) { $form->{selectcurrency} .= "<option>$_\n" }

  AA->get_name(\%myconfig, \%$form);

  $form->{currency} =~ s/ //g;

  $form->{duedate} = $duedate if $duedate;

  $form->{taxincluded} = $taxincluded if $form->{id};

  $form->{notes} = $form->{intnotes} if !$form->{id};

  $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;

  $form->{oldtransdate} = $form->{transdate};

# customers/vendors

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

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

    $form->{$form->{vc}} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;

    for (@{ $form->{"all_$form->{vc}"} }) { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }

}

# departments

  if (@{ $form->{all_department} }) {

    $form->{selectdepartment} = "<option>\n";

    $form->{department} = "$form->{department}--$form->{department_id}" if $form->{department_id};


context:
space:
mode: