Subversion Repositories VORC

my @seminars;

my $seminar_reviews;

my ($seminars_exist) = $dbh->selectrow_array ("select count(*) from v_seminar_new where year(date) = year(now())");

if ($seminars_exist) {

  push @seminars, $h->li ("<b>NEW:</b> ".$h->a ({href=>"seminars.pl"}, "View and sign up for Seminars!"));

#	push @seminars, $h->li ($h->a ({ href=>"/schedule/current_coaches.pl" }, "View the list of current MVP Coaches"));

	# Get a list of seminars attended to ask for reviews...

  my (@reviews_done, @reviews_tbd);

#	foreach my $class (@{$dbh->selectall_arrayref ("select id, date, time, name, coach, count(*) as answers from v_class_signup_new left join v_survey_answer on id = classid and v_class_signup_new.RCid = v_survey_answer.RCid where v_class_signup_new.RCid = ? and year(date) = year(now()) and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour) group by id order by date, start_time", undef, $user->{RCid})}) {

	foreach my $class (@{$dbh->selectall_arrayref ("select id, date, time, name, null, count(*) as answers from v_seminar_signup_new left join v_seminar_survey_answer on id = seminarid and v_seminar_signup_new.RCid = v_seminar_survey_answer.RCid where v_seminar_signup_new.RCid = ? and year(date) = year(now()) and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour) group by id order by date, start_time", undef, $user->{RCid})}) {

	  my ($id, $date, $time, $name, $coach, $answers) = @{$class};

	  next unless $id;

	  $time = convertTime $time;

	  if ($answers > 1) {

	    push @reviews_done, $h->li ("$date $time: ".$h->a ({ href=>"/schedule/seminar_survey.pl?seminarid=$id" }, "$name [".getUserDerbyName ($coach)."]"));

	  } else {

	    push @reviews_tbd, $h->li ("$date $time: ".$h->a ({ href=>"/schedule/seminar_survey.pl?seminarid=$id" }, "$name [".getUserDerbyName ($coach)."]"));	    

	  }	  

	}

  $seminar_reviews = $h->li (["Please submit feedback:", $h->ul ([@reviews_tbd])]) unless !scalar @reviews_tbd;

  $seminar_reviews .= $h->li (["View the feedback you've submitted:", $h->ul ([@reviews_done])]) unless !scalar @reviews_done;

}

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "MVP Classes:"), $h->ul ([ @mvppass, $reviews ]) ]) if (scalar @mvppass);