Subversion Repositories VORC

print $h->div ({ class=>"bio" }, $coach->{bio}).$h->div (' ') if $coach->{bio};

print $h->div ({ class=>"bio" }, $coach->{bio}).$h->div (' ') if $coach->{bio};

my $class_list_sql = <<class_list_sql;

my $class_list_sql = <<class_list_sql;

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

  select v_class_new.id, name, v_class_new.dayofweek, v_class_new.date, v_class_new.time, v_class_new.start_time, v_class_new.location, level, available, count from v_class_new

  left join v_shift on

  left join v_shift on

  	v_class_new.date = v_shift.date and

  	v_class_new.date = v_shift.date and

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

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

    v_class_new.location = v_shift.location and

    v_class_new.location = v_shift.location and

    v_shift.dept = "COA"

    v_shift.dept = "COA"

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

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

class_list_sql

class_list_sql

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

my @keys = qw(id class day date time start_time location level available count);

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

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

foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {

foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {

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

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

my $seminar_list_sql = <<seminar_list_sql;

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

  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, count from v_seminar_new

  left join v_shift on

  left join v_shift on

  	v_seminar_new.date = v_shift.date and

  	v_seminar_new.date = v_shift.date and

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

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

    v_seminar_new.location = v_shift.location and

    v_seminar_new.location = v_shift.location and

    v_shift.dept = "COA"

    v_shift.dept = "COA"

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

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

seminar_list_sql

seminar_list_sql

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

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

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

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)}) {

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

        minute => 0,

        minute => 0,

        second => 0,

        second => 0,

        time_zone => 'America/Los_Angeles'

        time_zone => 'America/Los_Angeles'

  );

  );

  return "CLOSED (".$t->{capacity} - $t->{available}." Registered)" unless $now < $cutoff;

  return "CLOSED ($t->{count} Registered)" unless $now < $cutoff;

  my $classkey = join '|', $t->{date}, $t->{start_time}, $t->{location};

  my $classkey = join '|', $t->{date}, $t->{start_time}, $t->{location};