";
# textareas contain returns so you have to concatenate subsequent lines
# to the variable specified in the first line
if ($name eq $oldname) {
$FORM{$oldname} .= ",".$value;
} else {
$FORM{$name} = $value;
$oldname = $name;
}
}
# holding value for blank checkboxes
$FORM{'admission'}="not specified" if ! $FORM{'admission'};
$FORM{'affiliations'}="not specified" if ! $FORM{'affiliations'};
$FORM{'flight_cert'}="not specified" if ! $FORM{'flight_cert'};
$FORM{'nonflight_cert'}="not specified" if ! $FORM{'nonflight_cert'};
$FORM{'flight_instr'}="not specified" if ! $FORM{'flight_instr'};
$FORM{'opportunities'}="not specified" if ! $FORM{'opportunities'};
if ($FORM{'key'})
{
# Create a database file to be used for editing a survey and
# append text file for downloading to Microsoft Access
$DBASEFILEDIR=$FORM{'datadir'};
$DBASEFILE=$FORM{'key'}.".".$CODE;
$TEXTFILE="cag_survey.txt";
open (DBASEFILE, ">$DBASEFILEDIR$DBASEFILE") || print "Can't create the database file $DBASEFILEDIR$DBASEFILE: $!
\n";
open (TEXTFILE, ">>$DBASEFILEDIR$TEXTFILE") || print "Can't append to the text file $DBASEFILEDIR$TEXTFILE: $!
\n";
foreach $key (sort keys %FORM) {
if ($key eq "datadir" || $key eq "returnurl") {
next;
}
print DBASEFILE $key,":",$FORM{$key},"\n";
#
# the download file needs a little cleanup work
# convert newlines in textareas to commas and concatenate into single line
#
$FORM{$key} =~ s/\r\n/,/g;
#
# strip off trailing comma(s) if present:
#
# pattern: =~ = the string search operator
# | ^ = beginning of line
# | .* = any number of characters except newline
# | ? = match the smallest number of characters
# | (...) = remember this part of pattern to use later
# | ,*$ = match any number of commas at end of line
# |
# |-------------------------------|
# |
# string---| VVVVVVVVVVV
# V
($FORM{$key}) = $FORM{$key} =~ /^(.*?),*$/;
#
# ^^^^^^^^^^ ^^^^^
# | |
# |--------- store here -------|
#
print TEXTFILE "\"",$FORM{$key},"\",";
# print TEXTFILE "\"",$key,"\",";
}
print TEXTFILE "\"",$CODE,"\"\r\n";
close (DBASEFILE);
close (TEXTFILE);
print "
\n";
print " Return to University Aviation Association Home Page
\n";
print "\n";
} else {
print "