Book Edition/Online Access)"; #meeting name i.e. Fall Meeting
my $late_reg_date = "20140215" ; #Late Registration date YYYYMMDD
my $meeting_number="65"; #Meeting Number written to file (ask Daniel)
my $meeting_date="May 30 - June 1, 2014"; #Date of meeting ie. Thrusday, June 21, 2001 or July 1-7, 2008
my $meeting_location="Hyatt Regency DFW International Airport, DFW Airport, TX"; # i.e. Richmond, VA
my $refund_policy="\nNo refunds. All sales are final."; # Full text of the refund policy i.e. Full refund before June 1, 2000; 10% refund between June 1, 2000 and Jan 2, 2008; no refund after Jan 2, 2008
my $early_bird_date="0"; # set to 0 if there is no early bird special
my $reginfo_buffer = '';
my $reginfo_buffer2 = '';
######################
# Database Variables #
######################
my $update_database = 0;
my $get_db_soldout = 1;
my ($dsn);
my ($sth);
my @fields;
my $SQL;
my $member_no = '';
$main::cgi = new CGI; # to take advantage of the "param" decoding method
$main::dbh = DBI->connect('DBI:mysql:spa:localhost', 'spadb_user','Alseides81',
{ PrintError => 0}) || die $DBI::errstr;
!>
#include ../../includes/header.iphtml
remote_user();
$SQL = <prepare($SQL);
$sth->execute;
@fields = $sth->fetchrow;
$sth->finish;
$member_no = $fields[0];
}
##################
# Sold Out Items #
##################
my @sold_out_numbers;
if ($get_db_soldout) {
$sth = $main::dbh->prepare("SELECT workshop_no FROM meeting WHERE meeting_no = $meeting_number AND workshop_no > 0 AND total_registered >= capacity");
$sth->execute();
undef(@fields);
while (@fields = $sth->fetchrow_array()) {
push @sold_out_numbers, $fields[0];
}
$sth->finish();
} else {
@sold_out_numbers = qw(); # put WSNumbers of sold out workshops here
}
#####################
# Registration Types#
#####################
my @reg_types;
# @reg_types = (["T", "Testing", [1.5,1],[["SUB1", "Sub-Type 1"],["SUB2", "Sub-Type 2"]]]); # For Testing
# Note -- Due to really poor planning if the reg_type does not have a sub_type but has a footnote you have to do this
# @reg_types = (["T", "Testing", [1.5,1]); # For Testing
# $reg_types[1][4] =1;
@reg_types = (["1","IRPA Symposium Syllabus Book w/online syllabus access", [275, 275]]); # Registration types
#####################
# Footnotes #
#####################
#$reg_types[0][4]=[1];
#$reg_types[2][4]=[2];
#$reg_types[4][4]=[1,3];
#$reg_types[5][4]=[1,3];
#$reg_types[6][4]=[1,2];
#$reg_types[7][4]=[1,2];
#$reg_types[6][4]=[2];
# Formatting for @reg_types is (["Type1_Name_Written_to_File", "Type1_Description", [Type1_Late_Cost, Type1_Early_Cost], [["Sub_Type1_Name_Written_to_File", "Sub_Type1_Description"]], "Footnote_Number"],["Type2_Name_Written_to_File", "Type2_Description", [Type2_Late_Cost, Type2_Early_Cost]])
# i.e. (["Member","Society Member", [200, 100]],["NonMember", "Non-Member", [250, 200]])
# you can also do it this way if you like lots of lines and []
# $reg_types[0][0] = "Type1_Name_Written_to_File"; # use ONEDAY for oneday reg
# $reg_types[0][1] = "Type1_Description";
# $reg_types[0][2][0] = "Type1_Late_cost";
# $reg_types[0][2][1] = "Type1_Early_cost";
# $reg_types[0][3][0][0] = "Type1_SubField1_Written_to_File";
# $reg_types[0][3][0][1] = "Type1_SubField1_Description";
# $reg_types[0][3][1][0] = "Type1_SubField2_Written_to_File";
# $reg_types[0][3][1][1] = "Type1_SubField2_Description";
# $reg_types[0][4] = ["Footnote Number"]; This is an arry in case there is more than one footnote
########################
# Accompanying Persons #
########################
my @extras; # =(50,35, 23002);
my @mondaynightreception; # = (0,0, 23002);
my @kidsmondaynightreception;
# format @extras=(late_reg_price, early_reg_price, accountnumber)
#################
# Workshops etc #
#################
my @workshops;
# @workshops = (["1" , "First Workshop", [1, .5], "200211011300", "200211011500", "000011"], ["2", "Second Workshop", [1, .5], "200211011400", "200211011500", "000011"]); # Workshops
# @workshops = (
#["1", "Advanced Ultrasound Guided Regional Anesthesia", [250, 200], "201304021330", "23005"],
#["2", "Simulation", [75, 60], "201304021330", "23005"],
#["3", "Integrationg Acupuncture in Pediatric Peri-operative", [75, 60], "201304021330", "23005"],
#);
#Format for @workshops is (["WSNumber", "WS_Title", [WS_Late_Cost, WS_Early_Cost], "YYYYMMDDHHmm", "YYYYMMDDHHmm", "AccountNumber"])
# Get the WSNumbers and AccountNumbers from Daniel, Use 24hr clock for the date/time
# if you like lots of lines and[] do it this way
# $workshops[0][0]= "WSNumber";
# $workshops[0][1]= "WSTitle";
# $workshops[0][2][0]="Late_Cost";
# $workshops[0][2][1]="Early_Cost";
# $workshops[0][3]="YYYYMMDDHHmm"; Start Time
# $workshops[0][4] = "AccountNumber";
########
# PBLs #
########
my @pbls = ();
# @pbls = (
#["9", "Table #1: T&A Gone Wild! Diagnosis and Treatment", [0, 0], "201304030730", "23004"],
#["10", "Table #2: A six week onld with a 4-day history", [0, 0], "201304030730", "23004"],
#["11", "Table #3: A Case of Lightening striking the same", [0, 0], "201304030730", "23004"],
#["12", "Table #4: When your age-appropriate adolescent", [0, 0], "201304030730", "23004"],
#["13", "Table #5: Circulatory Collapse in a Twelve Day", [0, 0], "201304030730", "23004"]
#);
## Format is the same as workshops
#######################
# Intensive Workshops #
#######################
my @intensive_ws;
#@intensive_ws=(["65", "Pediatric Pain Medicine Special Interest Group", [250, 250], "201303311000", "23006"]);
# # @intensive_ws = (["1" , "Upper Extremity", [250, 200], "200204250800","40301"], ["2" , "Upper Extremity", [250, 200], "200204251300","40301"], ["3" , "Lower Extremity", [250, 200], "200204250800","40301"], ["4" , "Lower Extremity", [250, 200], "200204251300","40301"]); #
# ## Format is the same as workshops
##################
# Master Classes #
##################
my @master_classes;
# # @master_classes = (["23" , "Complications of Regional Anesthesia and Closed claim Cases", [65, 50], "200204261400","40303"], ["24" , "Making Upper Extremity Blocks Work in a Busy Clinical Practice", [65, 50], "200204261600","40303"], ["53" , "Imaging techniques for Chronic Pain Evaluation and Management", [65, 50], "200204270800","40303"], ["54" , "How to Appy Continuous Catheter Techniques for Orthopaedic Pain Management", [65, 50], "200204271000","40303"], ["55" , "Complimentary and Alternative Medical Therapies for Pain", [65, 50], "200204271400","40303"], ["56" , "New Drugs and Novel Techniques for Regional Anesthesia", [65, 50], "200204271600","40303"]); #
# @master_classes = (["200", "WSNumber=200", [15, 3], "200204261400", "123"],
# ["201", "WSNumber=201", [15, 2], "200204261400", "123"]);
## Format is the same as workshops
####################
# Reception Guests #
####################
my @guest_cost;
#$guest_cost[1]="68"; #Reception guest cost -- Early reg
#$guest_cost[0]="78"; #Reception guest cost -- Late reg
my $gitem="33"; #WS number for reception (see Daniel)
my $gaccount="24500"; # Account number for extra reception guests (see Gail)
my $reception="Saturday BBQ"; # Text should read something like "I plan to attend the SPA Reception/Buffet at the Museum of Art"
my $reception_guest; #="I plan to bring a guest ";
## This Really should be Intergrated with the Dinner Below
#######################################################
# Dinner (different rates for each registration type) #
#######################################################
my @receptions;
# = (["1", "SNACC Dinner Symposium",
# {"Member" => [0,0],
# "NonMember" => [45,35],
# "Resident" => [0,0],
# "ResidentNonMem", => [45,35],
# "CRNA" => [45,35],
# "ONEDAY" => [175, 100]
# }, "200210101800", "40340"],
# );
# $receptions[0][0] # WS Number
# $receptions[0][1] # Dinner Title
# $receptions[0][2]{Reg_Type}[0]; # late fee
# $receptions[0][2]{Reg_type}[1]; # early fee
# $receptions[0][3] # YYYYMMDDhhmm Start Time
# $receptions[0][4] # Account Number
# $receptions[0][5] # Guests Not Yet Implemented
#################
# Research Fund #
#################
my $research_fund; # = $society . " Educational/Research Fund Donation (The $society is a 501(c) 3 organization and your donations are tax deductible as allowed by law. All voluntary contributions will be acknowledged.)" ; # Text for the research fund
my @research; # = ("40230", "0", "0");
#############################
# Receptions, Dinners, etc. #
#############################
my @bbq;
#@bbq = (["33" , "Saturday BBQ", [78, 68], "200403060000", "24500"], ["34" , "Saturday Special Children's BBQ", [20, 15], "200403070100", "24500"] ); # like Workshops, but make sure times (which are not displayed on form) are different such as to make each entry unique - this does affect display ordering
#################
# Custom Fields #
#################
#This doen't work...didn't have time to do custom fields.
###################
# Misc. Variables #
###################
my $show_mbr_appl = 0;
my %category;
# %category=("C", "Cardiologist", "S", "Surgeon", "NA", "Neither"); # use O for Other (Other will be put into cat_other field)
my @footnotes;
# $footnotes[1]="Shipping and handling included";
# $footnotes[2]="Join $society now and save up to 25% on your registration fee.";
# $footnotes[3]="You MUST complete the above membership application to select this registration category.";
# $footnotes[4]="Pre-registration of Workshops/Evening Sessions is available to $society members only. If space is available, sessions will be opened to non-members on site.";
my $filename = "/tmp/" . lc($form) . "_"; # where to write the txt files
# my $pdf_form="../../events/2013/" . lc($form) . "/Regform.pdf:NOSSL"; #location of PDF registration form
my $pdf_form="../ccassite/meetings/2013winter/CCAS_reg_form.pdf"; #location of PDF registration form
print h2({-align=>'center'},"$meeting");
# print h3({-align=>'center'},"$meeting_location");
###################################
# Field List, and Required Fields #
###################################
my %required_fields=("ssl_first_name", "First Name",
"ssl_last_name", "Last Name",
"ssl_ship_to_address2", "Address 2",
"ssl_ship_to_city", "City",
"ssl_ship_to_state", "State/Providence",
"ssl_ship_to_zip", "Postal Code",
"ssl_phone", "Office Phone",
"ssl_email", "Email Address",
"customer_name", "Name on Card",
"ssl_card_number", "Credit Card Number",
"ssl_exp_date", "Expiration Date",
"ssl_cvv2cvc2", "Security Code",
"ssl_avs_address", "Card Billing Address",
"ssl_avs_zip", "Card Billing Zip Code",
"reg_type", "Registration Type"
); ## Required Fields
my %descriptions = ("Active", "Active (Physician): \$175",
"Affiliate", "Affiliate (Non-Physician): \$175",
"International", "International: \$50",
"Active Joint SPA/CCAS", "Active Joint SPA/CCAS (Physician): \$200",
"Affiliate Joint SPA/CCAS", "Affiliate Joint SPA/CCAS (Non-Physician): \$200",
"International Joint SPA/CCAS", "Joint SPA/CCAS International: \$75",
"Resident", "Resident: \$40",
"Fellow", "Fellow: \$40",
);
#############################
# Main Script -- Don't Edit #
#############################
my %sold_out;
foreach (@sold_out_numbers) {
$sold_out{$_} = "1";
}
my $cgi = new CGI;
my $i =0;
my $late_day=substr($late_reg_date, 6, 2);
my $late_month=substr($late_reg_date, 4, 2)-1;
my $late_year=substr($late_reg_date, 0, 4)-1900;
my $cutoff_time = timelocal(59,59,23,$late_day,$late_month,$late_year);
my $current_time = time;
my $reduced_rate = 0;
my $state = "";
if (substr($cgi->param('ssl_card_number'),0,1) eq "3") {
$cgi->param(card_type => "Amex");
} elsif (substr($cgi->param('ssl_card_number'),0,1) eq "4") {
$cgi->param(card_type => "Visa");
} elsif (substr($cgi->param('ssl_card_number'),0,1) eq "5") {
$cgi->param(card_type => "MC");
} else {
$cgi->param(card_type => "Disc");
}
my $card_type_no = substr($main::cgi->param('ssl_card_number'), -4);
if ((uc($cgi->param('country')) =~ /UNITED STATES/) || (uc($cgi->param('country')) =~ /U\.S\./) || (uc($cgi->param('country')) =~ /US/) || (uc($cgi->param('country')) =~ /USA/)) {
$state = $cgi->param('ssl_ship_to_state');
} elsif (uc($cgi->param('ssl_ship_to_state')) ne "INTERNATIONAL") {
$state = $cgi->param('ssl_ship_to_state');
}
if ($cutoff_time >= $current_time) {
$reduced_rate=1;
}
my $early_bird = 0;
my $early_bird_cutoff_time;
if ($early_bird_date > 0) {
my $late_day=substr($early_bird_date, 6, 2);
my $late_month=substr($early_bird_date, 4, 2)-1;
my $late_year=substr($early_bird_date, 0, 4)-1900;
$early_bird_cutoff_time = timelocal(0,0,0,$late_day,$late_month,$late_year);
}
if ($early_bird_cutoff_time > $ current_time) {
$early_bird=1;
}
if ($cgi->param('Submit') eq "Continue") {
my $mp = new PGP::GPG::MessageProcessor;
$mp->{encrypt} = 1;
$mp->{sign} = 0;
$mp->{armor} = 1;
$mp->{homedir} = "/home/apache/.gnupg";
$mp->{recipients} = [ '8749DDE6','B2B3B85A','F1501DD1' ];
my $input = new IO::Handle; # These could be be a Symbol::gensym
my $output = new IO::Handle;
my $error = ''; # It becomes ">&STDERR".
my $status = new IO::Handle;
my $pid = $mp->cipher( $input, $output, $error, $status );
my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
my $month=$mon+1;
$year=$year+1900;
$month = sprintf "%02.0f", $month;
my $day = sprintf "%02.0f", $mday;
my $date = $month . "/" . $day . "/" . $year;
my $orderID=sprintf("%02d%02d%02d%02d%02d%02d%03d",$year % 100, $mon+1,$mday,$hour,$min,$sec,sprintf("%02d", rand(1000)));
my $missing = '';
my $sender = $society . " Registration Request CGI ";
my $recipient = "regforms\@societyhq.com";
my $subject = $society . " " . uc($form) . " - " . $cgi->param('ssl_last_name') . ", ". $cgi->param('ssl_first_name');
my $buffer = 0;
my $cost = 0;
my $regcost=0;
my $j=0;
my $counter = 1;
my $tab=0;
my $key = "";
my @text;
my $subcat=$cgi->param('reg_type') . "reg_type_sub";
my @reg_types_sub=$cgi->param($subcat);
# SPECIAL CASE FOR ONE WORKSHOP WITH ADDITIONAL INFO
if ($cgi->param('WS201003240945A')) {
$required_fields{'ws3represent'} = "Workshop 3: Representing";
$required_fields{'ws3team'} = "Workshop 3: Team Members";
}
if ((%category) && (!$cgi->param('category'))) {
$required_fields{'category'} = "Category";
}
if ($show_mbr_appl) {
if (($cgi->param('reg_type') eq "1" || $cgi->param('reg_type') eq "5" || $cgi->param('reg_type') eq "10") && (!$cgi->param('applyingfor'))) {
$required_fields{"applyingfor"} = "You have selected a SPA Member Registration Category. You must complete the membership application: Category Applying For";
}
}
if (($show_mbr_appl) && ($cgi->param('applyingfor'))) {
$required_fields{"month"} = "Date of Birth: Month";
$required_fields{"day"} = "Date of Birth: Day";
$required_fields{"year"} = "Date of Birth: Year";
$required_fields{"practice"} = "Type of Practice";
$required_fields{"institution"} = "Hospital/Institution";
}
if (($cgi->param('applyingfor') eq "Resident" || $cgi->param('applyingfor') eq "Fellow")) {
$required_fields{"endsmonth"} = "Residency/Fellowship Ends Date: Month";
$required_fields{"endsyear"} = "Residency/Fellowship Ends Date: Year";
$required_fields{"director"} = "Program Director";
}
foreach (keys %required_fields) {
if (!$cgi->param($_)) {
$missing .= "
$required_fields{$_} is required
\n";
}
if ($_ eq "reg_type") {
for ($i=0; defined($reg_types[$i]); $i++) {
# if (($reg_types[$i][0] eq $cgi->param('reg_type')) && (defined($reg_types[$i][3]))) {
# if ((%category) && (!$cgi->param('category'))) {
# $missing .= "
Category
\n";
# }
# }
}
}
}
if ($cgi->param('fund')) {
if (!($cgi->param('fund') =~ /^[0-9]*$/)) {
$missing .= "
Education Research Fund Amount contains non-numeric characters
\n";
}
}
if ($cgi->param('extras')) {
if (!($cgi->param('extras') =~ /^[0-9]*$/)) {
$missing .= "
Number of guest contains non-numeric characters
\n";
}
}
if (($cgi->param('month')) || ($cgi->param('day')) || ($cgi->param('year'))) {
if (!($cgi->param('month') =~ /^[0-9]*$/)) {
$missing .= "
Date of Birth: Month contains non-numeric characters
\n";
}
if (!($cgi->param('day') =~ /^[0-9]*$/)) {
$missing .= "
Date of Birth: Day contains non-numeric characters
\n";
}
if (!($cgi->param('year') =~ /^[0-9]*$/)) {
$missing .= "
Date of Birth: Year contains non-numeric characters
\n";
}
}
if (($cgi->param('endsmonth')) || ($cgi->param('endsyear'))) {
if (!($cgi->param('endsmonth') =~ /^[0-9]*$/)) {
$missing .= "
\n";
}
if (!($cgi->param('endsyear') =~ /^[0-9]*$/)) {
$missing .= "
Residency/Fellowship Ends: Year contains non-numeric characters
\n";
}
}
if (($cgi->param('adultguests')) || ($cgi->param('childguests'))) {
if (!($cgi->param('adultguests') =~ /^[0-9]*$/)) {
$missing .= "
Adult guests field contains non-numeric characters
\n";
}
if (!($cgi->param('childguests') =~ /^[0-9]*$/)) {
$missing .= "
Child guests field contains non-numeric characters
\n";
}
}
if ($missing) {
print p({-style=>'color: #F00'},strong('Error - Required information was not provided on the submitted form. Please use the back button and correct the following:'));
print "
\n";
$regcost = $reg_types[$i][2][$reduced_rate];
# if ($cgi->param('ssl_ship_to_country') ne "USA" and $cgi->param('ssl_ship_to_country') ne "Canada") { $regcost = $regcost+50; }
$cost=$cost+$regcost;
}
}
} #end first if $complete
if ($cgi->param('ssl_ship_to_country') ne "USA" and $cgi->param('ssl_ship_to_country') ne "Canada")
{
$cost = $cost+50;
$buffer .= "
1
Additional international shipping fee
\$50
";
$reginfo_buffer2 .= "
" . "1" . "
\n";
$reginfo_buffer2 .= "
Additional international shipping fee
\n";
$reginfo_buffer2 .= "
\$50
\n";
$international=1;
}
my $mondaynightreceptioncost_total = $mondaynightreception[$reduced_rate] * $cgi->param('mondaynightreception');
$cost = $cost + $mondaynightreceptioncost_total;
if ($cgi->param('mondaynightreception')) {
my $mondaynightreception_total = 1;
$buffer .= "\n\nI will attend the Friday Reception\n";
$reginfo_buffer2 .= "
";
if ($cgi->param('ssl_email')) {
$reginfo_buffer .= "Your receipt will be emailed to this email address. Receipts are sent by email only.\n";
$reginfo_buffer .= "
" . $cgi->param('ssl_email');
} else {
$reginfo_buffer .= "No email address was provided for delivery of your confirmation letter. Confirmation letters are sent by email only.\n";
}
$reginfo_buffer .= "
\n";
}
} else {
my @countries = ("Afghanistan","Albania","Algeria","Angola","Antigua and Barbuda","Argentina","Armenia","Australia","Austria","Azerbaijan","Bahamas","Bahrain","Bangladesh","Barbados","Belarus","Belgium","Belize","Benin","Bhutan","Bolivia","Bosnia and Herzegovina","Botswana","Brazil","Brunei Darussalam Bulgaria","Burkina Faso","Burma (Myanmar)","Burundi","Cambodia","Cameroon","Canada","Cape Verde","Central African Rep","Chad","Chile","China","Colombia","Comoros","Congo","Congo, Democratic Republic","Costa Rica","Cote d'Ivoire","Croatia","Cuba","Cyprus","Czech Republic","Denmark","Djibouti","Dominica","Dominican Republic","East Timor","Ecuador","Egypt","El Salvador","Equatorial Guinea","Eritrea","Estonia","Ethiopia","Fiji","Finland","France","Gabon","Gambia","Georgia","Germany","Ghana","Greece","Grenada","Guatemala","Guinea","Guinea-Bissau","Guyana","Haiti","Honduras","Hungary","Iceland","India","Indonesia","Iran","Iraq","Ireland","Israel","Italy","Jamaica","Japan","Jordan","Kazakhstan","Kenya","Kiribati","Kuwait","Kyrgyzstan","Laos","Latvia","Lebanon","Lesotho","Liberia","Libya","Liechtenstein","Lithuania","Luxembourg","Macedonia","Madagascar","Malawi","Malaysia","Maldives","Mali","Malta","Marshall Islands","Mauritania","Mauritius","Mexico","Micronesia","Moldova","Monaco","Mongolia","Morocco","Mozambique","Myanmar","Namibia","Nauru","Nepal","New Zealand","Nicaragua","Niger","Nigeria","North Korea","Norway","Oman","Pakistan","Palau","Panama","Papua New Guinea","Paraguay","Peru","Philippines","Poland","Portugal","Qatar","Romania","Russia","Rwanda","St. Kitts & Nevis","St.Lucia","St. Vincent","Samoa","San Marino","Sao Tome & Principe","Saudi Arabia","Senegal","Serbia & Montenegro","Seychelles","Sierra Leone","Singapore","Slovakia","Slovenia","Solomon Islands","Somalia","South Africa","South Korea","Spain","Sri Lanka","Sudan","Suriname","Swaziland","Sweden","Switzerland","Syria","Taiwan","Tajikistan","Tanzania","Thailand","The Netherlands","Togo","Tonga","Trinidad and Tobago","Tunisia","Turkey","Turkmenistan","Tuvalu","Uganda","Ukraine","United Arab Emirates","United Kingdom","USA","Uruguay","Uzbekistan","Vanuatu","Venezuela","Vietnam","Western Sahara","Yemen","Yugoslavia","Zaire","Zambia","Zimbabwe");
$SQL = <prepare($SQL);
$sth->execute;
@fields = $sth->fetchrow;
$sth->finish();
my $elem = 0;
foreach $elem (@fields) {
$elem = encode_entities($elem);
}
}
###Get Script Name--
$i=script_name(); my @action=split("/", $i); $i=@action; $i--;
print<Were you unable to attend one of the Intensive Review of Pediatric Anesthesia (IRPA) courses this year? SPA has a limited number of IRPA syllabus books available for purchase and limited to one per person.
You will receive the printed IRPA syllabus and access to the online syllabus files.
This symposium will reinforce your knowledge of the theory and practice of pediatric anesthesiology. Lectures provide a comprehensive review of Pediatric Anesthesiology, reinforcing the basic sciences, core physiologic principles, and clinically applicable concepts.
We have assembled a renowned group of faculty educators from our nation's premier teaching programs for this thorough review of pediatric anesthesiology.
Non Member Price: \$325.00
Your Price: \$275.00 You Save: \$50.00 \$50 shipping and handling fee will be added for addresses outside US and Canada
