#!/usr/bin/perl

#===============================
# Filename: Order.cgi
#===============================

# Order CustomIncludes begin
use Common;
use strict "vars";

use Header;
use Footer;

# Order CustomIncludes end
#-------------------------------


#===============================
# Save Page and File Name available into variables
#-------------------------------
my $sFileName = "Order.cgi";
my $sTemplateFileName = "Order.html";
#===============================


#===============================
# Order PageSecurity begin
#CheckSecurity(1);
# Order PageSecurity end
#===============================

#===============================
# Order Open Event start
# Order Open Event end
#===============================

#===============================
# Order OpenAnyPage Start
# Order OpenAnyPage End
#===============================

#-------------------------------
# Initialize error variables
#-------------------------------

my $sOrderErr;

#===============================
# Display page
#-------------------------------
# Load HTML template for this page
#-------------------------------
$oTpl->LoadTemplate( $sAppPath . $sTemplateFileName, "main" );


#-------------------------------
# Load HTML template of Header and Footer
#-------------------------------
$oTpl->LoadTemplate( $sHeaderFileName, "Header" );
$oTpl->LoadTemplate( $sFooterFileName, "Footer" );
$oTpl->SetVar( "FileName", $sFileName );
$oTpl->SetVar( "url", $url );
#-------------------------------



#===============================
# Save the name of the form and type of action into the variables
#-------------------------------
my $sAction = GetParam("FormAction");
my $sForm = GetParam("FormName");

#-------------------------------
# Select the FormAction
#-------------------------------
#===============================

# Order Show begin
#===============================

print $page_header;
print "Content-type: text/html\n\n";

#-------------------------------
# Step through each form
#-------------------------------

Header_Show();
Footer_Show();
Order_Show();

#-------------------------------
# Process the page templates
#-------------------------------
$oTpl->Parse( "Header", "False" );
$oTpl->Parse( "Footer", "False" );
$oTpl->Parse( "main", "False" );

#-------------------------------
# Output the page to the browser
#-------------------------------
print $oTpl->PrintVar("main");

# Order Show end
# Order Close Event start
# Order Close Event end
exit 0;

#===============================
# Display Record Form
#-------------------------------
sub Order_Show {
#-------------------------------
# Order Show begin
#-------------------------------
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time());
	my $date_today=join('',$year+1900,"-",$mon+1,"-$mday $hour:$min");

  my $sWhere  = "";
  my $sFormTitle = "Order";
  my $bIsUpdateMode;
  my $bPK = 1;
  my $sOrder;

#-------------------------------
# Load primary key and form parameters
#-------------------------------
my $fldamount = GetParam("amount");
my $flddesc = GetParam("desc");
    $oTpl->SetVar( "FormTitle", $sFormTitle );
#-------------------------------

#-------------------------------
# Load all form fields

#-------------------------------

#-------------------------------
# Build WHERE statement

#-------------------------------
#-------------------------------
# Order Open Event start
# Order Open Event end
#-------------------------------

  $oTpl->SetVar( "FormTitle", $sFormTitle);

#-------------------------------
# Build SQL statement and open recordset
#-------------------------------
#-------------------------------
#-------------------------------
# Order Show Event start
# Order Show Event end
#-------------------------------

#-------------------------------
# Show form field
#-------------------------------
      $oTpl->SetVar( "desc", $flddesc);
      $oTpl->SetVar( "amount", $fldamount);

  $oTpl->Parse( "FormOrder", "False" );


#-------------------------------
# Order Close Event start
# Order Close Event end
#-------------------------------

#-------------------------------
# Order Show end
#-------------------------------
}
#===============================