Subversion Repositories VORC

# Then the list of Seminars for this year...

my $seminar_list_sql = <<seminar_list_sql;

  select v_seminar_new.id, name, v_seminar_new.dayofweek, v_seminar_new.date, v_seminar_new.time, v_seminar_new.start_time, v_seminar_new.location, available from v_seminar_new

  left join v_shift on

  	v_seminar_new.date = v_shift.date and

    time(v_seminar_new.start_time) = time(v_shift.start_time) and

    v_seminar_new.location = v_shift.location and

    v_shift.dept = "COA"

  where RCid = ? and year(v_seminar_new.date) = year(now())

  order by v_seminar_new.date, v_seminar_new.start_time

seminar_list_sql

my @keys = qw(id seminar day date time start_time location available);

my @seminars = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(Seminar Day Date Time Location SignUp) ) ]));

foreach my $seminar (@{$dbh->selectall_arrayref ($seminar_list_sql, undef, $coachRCid)}) {

  my $seminarhash;

  @$seminarhash{@keys} = @{$seminar};

  $seminarhash->{available} = modify_available ($seminarhash);

  $seminarhash->{time} = convertTime ($seminarhash->{time});

  @{$seminar} = ($seminarhash->{seminar}, $seminarhash->{day}, $seminarhash->{date}, $seminarhash->{time}, $seminarhash->{location}, $seminarhash->{available});

  my $seminarid = $seminarhash->{id};

  push @seminars, $h->div ({ class=>"rTableRow ".($seminarhash->{signedup} ? "highlighted" : "shaded"), onClick=>"window.location.href='view_seminar.pl?id=$seminarid'" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: smaller;" }, @{$seminar}) ]);

}

print $h->div ({ class=>"rTable", style=>"min-width: 0%;" }, [@seminars], ' ') if scalar @seminars > 1;