# special calculation include file for Simple Form
##########################################################################
### THIS IS A SAMPLE FILE, based on form I use
### at worldcommunity.com

### Note that you can do things here like calculate subtotals,
### add to the display output, send totals over to a live
### credit card server, or display a PayPal button (see below)
##########################################################################

# calculate subtotal, tax, shipping and grand total

$unit_price  = 14.95;
$subtotal    = 0;
$va_tax      = .05;
$tax         = 0;
$shipping    = 0;
$grand_total = 0;

# Since the main script does NOT create variables
# for each form field, you need to re-grab calc field values
# from the form here, and put them into variables
# This also allows you to do extra validation here.

$quantity        = param('Quantity');
$virginia_yes_no = param('Virginia Yes/No');

if ( $quantity >= 1 and $quantity <= 9 )
      {
      $unit_price = 14.95;
      }
elsif ( $quantity >= 10 and $quantity <= 24 )
      {
      $unit_price = 10.00;
      }
elsif ( $quantity >= 25 )
      {
      $unit_price = 9.00;
      }
else
      {
      &error_message(qq~Error!<p>Quantity must be greater than zero.<br>
                        Please hit BACK and try again.
                       ~);
      }

$subtotal   = $quantity * $unit_price;

if ( $virginia_yes_no eq 'Yes' )
      {
      $tax = $subtotal * $va_tax;
      }

# shipping
# 1-4 copies: $1 each plus $2
# 5-10 copies: $10
# 11-25 copies: $20
# 26-50 copies: $25
# 51-100 copies: $35

if ( $quantity >= 1 and $quantity <= 4 )
      {
      $shipping = ( $quantity * 1.00 ) + 2.00;
      }
elsif ( $quantity >= 5 and $quantity <= 10 )
      {
      $shipping = 10.00;
      }
elsif ( $quantity >= 11 and $quantity <= 25 )
      {
      $shipping = 20.00;
      }
elsif ( $quantity >= 26 and $quantity <= 50 )
      {
      $shipping = 25.00;
      }
elsif ( $quantity >= 51 and $quantity <= 100 )
      {
      $shipping = 35.00;
      }
else
      {
      &error_message(qq~Alert!<p>This form only calculates shipping
                        for orders of 1 to 100. For greater
                        quantities, please email us at:
                        <a href="mailto:you\@domain.com?subject=Order%20Query">
                        you\@domain.com</a>.
                        <p>
                        Thank you!
                       ~);
      }

$grand_total = sprintf("%.2f", $subtotal + $tax + $shipping );

### NOTE: This is a good spot to insert some code to
### send the $grand_total over to a live credit card company
### (or you can use the PayPal button below)

$subtotal    = sprintf("%.2f", $subtotal);
$tax         = sprintf("%.2f", $tax);
$shipping    = sprintf("%.2f", $shipping);
$unit_price  = sprintf("%.2f", $unit_price);

$paypal_form = qq~
<b><font color=red size=+1>To Complete Your Order</font></b><br>
Either Click the "Pay with a Credit Card" Button Below<br>
or Print Out This Page and Mail it to:<br>
Some Address, City, State, Zip
<FORM ACTION="https://secure.paypal.com/cgi-bin/webscr" METHOD="POST">
<INPUT TYPE="hidden" NAME="cmd" VALUE="_xclick">
<INPUT TYPE="hidden" NAME="business" VALUE="you\@domain.com">
<INPUT TYPE="hidden" NAME="return" VALUE="http://domain.com">

<INPUT TYPE="hidden" NAME="item_name" VALUE="My Product Name">
<input type="hidden" name="amount" value="$grand_total">

<input type="hidden" name="undefined_quantity" value="0">
<input type="hidden" name="no_shipping" value="0">
<input type="hidden" name="no_note" value="0">
<br>
<input type="submit" value="Pay with a Credit Card"><br>
<input type="image" src="/crdcards1.gif"  border="0" name="submit" alt="PayPal">
<input type="image" src="/crdcards2.gif"  border="0" name="submit" alt="PayPal"><br>
<input type="image" src="/x-click-but02.gif" border="0" name="submit" alt="PayPal">
</FORM>
~;

# output and show paypal link

$mail_body .= qq~
------------------------------
 Unit Price: $unit_price
   Subtotal: $subtotal
        Tax: $tax
   Shipping: $shipping
Grand Total: $grand_total
------------------------------
~;

# we add output to the variable $html_text,
# which has already been created in the main script
# The text below will appear at the bottom of the
# output table.

$html_text .= qq~
<tr>
<td align=right bgcolor="$table_cell_label_color">
<font color="$field_color"><b>Unit Price:</b></font></td>
<td bgcolor="$table_cell_data_color">
<font color="$value_color">$unit_price &nbsp;</font></td>
</tr>

<tr>
<td align=right bgcolor="$table_cell_label_color">
<font color="$field_color"><b>Subtotal:</b></font></td>
<td bgcolor="$table_cell_data_color">
<font color="$value_color">$subtotal &nbsp;</font></td>
</tr>
<tr>
<td align=right bgcolor="$table_cell_label_color">
<font color="$field_color"><b>Tax:</b></font></td>
<td bgcolor="$table_cell_data_color">
<font color="$value_color">$tax &nbsp;</font></td>
</tr>
<tr>
<td align=right bgcolor="$table_cell_label_color">
<font color="$field_color"><b>Shipping:</b></font></td>
<td bgcolor="$table_cell_data_color">
<font color="$value_color">$shipping &nbsp;</font></td>
</tr>
<tr>
<td align=right bgcolor="$table_cell_label_color">
<font color="$field_color"><b>Grand Total:</b></font></td>
<td bgcolor="$table_cell_data_color">
<font color="$value_color">$grand_total &nbsp;</font></td>
</tr>
~;

if ( $preview_data ne 'yes' )
      {
      $html_text .= qq~
      <tr><td align=center colspan=2 nowrap>
      <font color="$header_footer_field_color"><b>
      $paypal_form
      </b></font>
      </td></tr>
      ~;
      }

##########################################################################
1;