Subversion Repositories VORC

Rev

Rev 224 | Rev 226 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 224 Rev 225
Line 63... Line 63...
63 
  where RCid = ? and year(v_class_new.date) = year(now())
 63 
  where RCid = ? and year(v_class_new.date) = year(now())
64 
  order by v_class_new.date desc, v_class_new.start_time desc
 64 
  order by v_class_new.date desc, v_class_new.start_time desc
65 
class_list_sql
 65 
class_list_sql
Line 66... Line 66...
66 
 
 66 
 
67 
my @keys = qw(id class day date time start_time location level available);
 67 
my @keys = qw(id class day date time start_time location level available);
68 
my @classes = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: unset;" }, qw(Class Day Date Time Location Level SignUp) ) ]));
 68 
my @classes = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(Class Day Date Time Location Level SignUp) ) ]));
69 
foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {
 69 
foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {
70 
  my $classhash;
 70 
  my $classhash;
71 
  @$classhash{@keys} = @{$class};
 71 
  @$classhash{@keys} = @{$class};
72 
  $classhash->{available} = modify_available ($classhash);
 72 
  $classhash->{available} = modify_available ($classhash);
Line 79... Line 79...
79 
#  $class_bio .= $h->input ({type=>"button", value=>"Edit Summary", onClick=>"window.location.href='view_class_summary.pl?id=$classid&choice=Update'; return false;"}) unless $ORCUSER->{RCid} != $coach->{RCid} or $ORCUSER->{access} < RollerCon::ADMIN;
 79 
#  $class_bio .= $h->input ({type=>"button", value=>"Edit Summary", onClick=>"window.location.href='view_class_summary.pl?id=$classid&choice=Update'; return false;"}) unless $ORCUSER->{RCid} != $coach->{RCid} or $ORCUSER->{access} < RollerCon::ADMIN;
80 
#  print $h->div ({ class=>"indent" }, $coach->{derby_name}.($coach->{pronouns} ? " ($coach->{pronouns})" : "").$edit_bio, '&nbsp;');
 80 
#  print $h->div ({ class=>"indent" }, $coach->{derby_name}.($coach->{pronouns} ? " ($coach->{pronouns})" : "").$edit_bio, '&nbsp;');
Line 81... Line 81...
81 
 
 81 
 
82 
#  my ($summary) = $dbh->selectrow_array ("select summary from class_summary where id = ?", undef, $classid);
 82 
#  my ($summary) = $dbh->selectrow_array ("select summary from class_summary where id = ?", undef, $classid);
83 
#  $summary =~ s/\n/<br>/g;
 83 
#  $summary =~ s/\n/<br>/g;
Line 84... Line 84...
84 
  push @classes, $h->div ({ class=>"rTableRow ".($classhash->{signedup} ? "highlighted" : "shaded"), onClick=>"window.location.href='view_class.pl?id=$classid'" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, @{$class}) ]);
 84 
  push @classes, $h->div ({ class=>"rTableRow ".($classhash->{signedup} ? "highlighted" : "shaded"), onClick=>"window.location.href='view_class.pl?id=$classid'" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: smaller;" }, @{$class}) ]);
85 
 
 85 
 
86 
#  push @classes, $h->div ({ class=>"rTableRow" }, $h->div ({ class=>"rTableCellr" }, $summary)) if $summary;
 86 
#  push @classes, $h->div ({ class=>"rTableRow" }, $h->div ({ class=>"rTableCellr" }, $summary)) if $summary;
Line 98... Line 98...
98 
    v_shift.dept = "COA"
 98 
    v_shift.dept = "COA"
99 
  where RCid = ? and year(v_class_new.date) < year(now())
 99 
  where RCid = ? and year(v_class_new.date) < year(now())
100 
  order by v_class_new.date desc, v_class_new.start_time desc
 100 
  order by v_class_new.date desc, v_class_new.start_time desc
101 
class_list_sql
 101 
class_list_sql
Line 102... Line 102...
102 
 
 102 
 
103 
my @classes = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: unset;" }, "Prior Year Classes", qw(Day Date Time Location Level Stars Responses) ) ]));
 103 
my @classes = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, "Prior Year Classes", qw(Day Date Time Location Level Stars Responses) ) ]));
104 
foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {
 104 
foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {
105 
  my $classid = shift @{$class};
 105 
  my $classid = shift @{$class};
106 
  ${$class}[3] = convertTime (${$class}[3]);
 106 
  ${$class}[3] = convertTime (${$class}[3]);
107 
  push @classes, $h->div ({ class=>"rTableRow shaded", onClick=>"window.location.href='view_class.pl?id=$classid'" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, @{$class}) ]);
 107 
  push @classes, $h->div ({ class=>"rTableRow shaded", onClick=>"window.location.href='view_class.pl?id=$classid'" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: smaller;" }, @{$class}) ]);
108 
}
 108 
}
Line 109... Line 109...
109 
print $h->div ({ class=>"rTable", style=>"min-width: 0%;" }, [@classes], '&nbsp;') if scalar @classes > 1;
 109 
print $h->div ({ class=>"rTable", style=>"min-width: 0%;" }, [@classes], '&nbsp;') if scalar @classes > 1;