";
$subject = "VOS FDA Disclosure for " . param('name');
my $recipient = "angela\@societyhq.com, andrew\@societyhq.com";
# my $recipient = "wes\@societyhq.com";
my @manufacturers = param('manufacturer');
my @drugs = param('drug');
my $buffer = 'VOS FDA Disclosure';
$buffer .= '' . $meeting_name . '
';
$buffer .= 'Name: ' . param('name') . '
';
$buffer .= 'Title: ' . param('degree') . '
';
$buffer .= 'Institution: ' . param('hospital') . '
';
$buffer .= 'Address: ' . param('address') . '
';
$buffer .= 'Email: ' . param('email') . '
';
$buffer .= 'Phone Number: ' . param('phone') . '
';
$buffer .= 'Fax Number: ' . param('fax') . '
';
$buffer .= 'Admin Asst: ' . param('secretary') . '
';
$buffer .= 'Admin Asst Phone:' . param('secretary_phone') . '
';
# $buffer .= '' . $meeting_name . '
';
# $buffer .= "Name: " . param('name') . "
";
# $buffer .= '
#
# | Content of Activity |
# Date of Activity |
#
';
# $sth = $main::dbh->prepare ("SELECT DATE_FORMAT(lecture_date, '%a, %b %e, %Y'), new_lecture.lectureid FROM new_lecture, faculty_lecture WHERE new_lecture.lectureid = faculty_lecture.lectureid AND committeeid=$meeting_no AND faculty_lecture.facultyid='" . param('memid') . "' ORDER BY lecture_date, start_time");
# $sth = $main::dbh->prepare ("SELECT faculty_lecture.lectureid FROM faculty_lecture WHERE meetingid=$meeting_no AND faculty_lecture.facultyid=" . param('memid'));
# $sth->execute();
# @ary = ();
# while (@ary = $sth->fetchrow_array()) {
# $buffer .= "
#
# | " . param("title_$ary[1]") . " |
# $ary[0] |
#
";
# }
# $sth->finish;
# $buffer .= "
";
if ($main::cgi->param('relationship') eq "No") {
$buffer .= "FDA Disclosure is not applicable.
" ;
} elsif (($main::cgi->param('relationship') eq "Yes") && ($main::cgi->param('cleared') eq "cleared")) {
$buffer .= "The FDA has cleared all pharmaceuticals and/or medical devices for the use described in this presentation.
";
} else {
$buffer .= "The FDA has not cleared the following pharmaceuticals and/or medical devices for the use described in this presentation. The following pharmaceuticals and/or medical devices are being discussed for an off-label use.(see note below)
";
$buffer .= '
| Manufacturer Name |
Drug or Device |
';
$buffer .= '| ';
foreach my $elem0 (@manufacturers) {
$buffer .= "\n " . $elem0 ;
}
$buffer .= ' | ';
$buffer .= '';
foreach my $elem1 (@drugs) {
$buffer .= "\n " . $elem1 ;
}
$buffer .= ' |
';
$buffer .= "
";
}
$buffer .= "I certify that the above information is correct to the best of my knowledge.
";
# $buffer .= "\n\n" . $db_error;
open (MAIL, "|/usr/lib/sendmail -oi -t") or die "can't fork sendmail: $!";
print MAIL "From: $sender
To: $recipient
Subject: $subject
bcc: wes\@societyhq.com
Precedence: bulk
MIME-Version: 1.0
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
";
print MAIL $buffer;
print MAIL "";
close (MAIL);
print p('Thank you. Your FDA Disclosure Form has been submitted successfully.',a({href=>"../assignment.iphtml?id=$vosFacultyFDADisclosure::meeting_no"},'Click here'),'to check for other forms that you may need to complete for this meeting.');
}
}
sub to_page { submit(-NAME => ".State", -VALUE => shift) }
!>