#include ../../header.iphtml #include ../../checkuser.iphtml

BACK TO EVALUATION TOPICS

'; print '

You will be able to complete the '.$title.' on '.$open_txt.'

'; print '

If you have any questions, please contact:

Kim Battle
Association Manager
804-282-9780
kim@societyhq.com.

'; print ''; !> #include ../../footer_include.iphtml \&gen_front_page, 'Submit' => \&gen_send_results ); $Current_Screen = param("Submit") || "Default"; die "No screen for $Current_Screen" unless $States{$Current_Screen}; print $main::cgi->start_form(); while (my($screen_name, $function) = each %States) { $function->($screen_name eq $Current_Screen); } print $main::cgi->end_form(); !> #include ../../footer_include.iphtml liz\@societyhq.com."); } else { $cursor = $main::dbh->prepare ("SELECT meetingID, sessionID FROM meeting_evaluated WHERE memberID='$userID' AND meetingID='$meeting_no' AND sessionID=0"); $cursor->execute(); my @ary = $cursor->fetchrow_array(); $cursor->finish; if (@ary) { print p({-style=>'text-align:left'},'You have already completed the Overall Conference Evaluation. You may evaluate the overall conference only once.'); } else { print p(strong('Education Mission Statement:'), "The $mtg_name will focus on topics of interest to those who provide anesthesia, sedation, pain management, and critical care services to infants and children. The overall goals for attendees of the program are to reinforce and enhance their existing fund of knowledge, and to introduce them to new and state-of-the-art techniques and information that affect their practice and improve the perioperative/critical care of pediatric patients."); !>

 

1. How well was the educational mission met?
2. What is your overall evaluation of this course?
3. Were your knowledge and skills enhanced by this activity?
4. Do you feel that any portion of this activity unduly promoted industry?
5. Will this course impact your practice?

 

cookie("SPAID"); my $cookie_uid = $cookie_in{"id"}; my $userID = $cookie_uid; my $SQL; @fields = param(); $main::cgi->import_names('q'); my $missing = ''; my $rows; $missing .= "
  • Question 1
    • \n" if !$q::mission_met; $missing .= "
  • Question 2
    • \n" if !$q::overall_mtg; $missing .= "
  • Question 3
    • \n" if !$q::knowledge; $missing .= "
  • Question 4
    • \n" if !$q::industry; $missing .= "
  • Question 4.1 Please explain why you feel this activity unduly promoted industry.
    • " if (($q::industry eq "Yes") && (!$q::industry_explain)); $missing .= "
  • Question 5
    • \n" if !$q::practice; $missing .= "
  • Question 5.1 Please explain how this meeting will impact your practice.
    • " if (($q::practice eq "Yes") && (!$q::practice_explain)); if ($missing) { print '

    ERROR - Please answer ALL of the following questions:

    '; print ""; print p(''); } else { print "\n"; print "
    \n"; # if ($member_no) { $cursor = $main::dbh->prepare ("SELECT sessionID FROM meeting_evaluated WHERE memberID=$userID AND meetingID=$meeting_no AND sessionID=0"); $cursor->execute() || die "Couldn't execut query: $DBI::errstr\n"; @ary = $cursor->fetchrow_array(); $cursor->finish; if (!@ary) { my $insertSQL = "INSERT INTO general_mtg_evaluation ("; foreach(@fields) { if ($_ eq "Submit" || $_ eq "certification") { } else { $insertSQL .= $_ . ", "; } } $insertSQL =~ s/, $/,meetingid) VALUES (/; foreach(@fields) { if ($_ eq "Submit" || $_ eq "certification") { } else { $insertSQL .= $main::dbh->quote(param($_)) . ", "; } } $insertSQL =~ s/, $/,$meeting_no)/; #print "

    $insertSQL

    "; $main::dbh->do(qq{LOCK TABLES general_mtg_evaluation, meeting_evaluated WRITE}); $rows = $main::dbh->do(qq{$insertSQL}); if (!$rows) { print "

    Sorry, unable to save your response.

    \n"; } else { $SQL = "INSERT INTO meeting_evaluated (meetingID,memberID,sessionID) VALUES ($meeting_no,$userID,0)"; $rows = $main::dbh->do(qq{$SQL}) || die "INSERT failed $DBI::errstr\n"; my @prof_cert = param('certification'); foreach(@prof_cert) { $main::dbh->do(qq{UPDATE 2008_winter_eval_certification SET votes = votes + 1 WHERE id = $_}); } print p(strong('General meeting evaluation submitted successfully!')); print p('Thank you for your time in completing the evaluation form. Please make sure you also evaluate each individual topic that you attended.'); } $main::dbh->do(qq{UNLOCK TABLES}); } else { print "

    Sorry, our records show you having already completed the general evaluation. You may only evaluate the general meeting once.

    "; } # } else { # print "

    Sorry, but our records show you are not registered for this meeting. If you think you reached this page in error, please contact the administrative office at (804) 282-9780 or email spa\@societyhq.com.

    "; # } print "
    \n"; } } !>