Subversion Repositories VORC

Rev

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

Rev 223 Rev 224
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;
-
 
84
 
83
#  $summary =~ s/\n/<br>/g;
Line 85... Line 84...
85
  push @classes, $h->div ({ class=>"rTableRow", 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: unset;" }, @{$class}) ]);
86
 
85
 
87
#  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 103... Line 102...
103
 
102
 
104
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: unset;" }, "Prior Year Classes", qw(Day Date Time Location Level Stars Responses) ) ]));
105
foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {
104
foreach my $class (@{$dbh->selectall_arrayref ($class_list_sql, undef, $coachRCid)}) {
106
  my $classid = shift @{$class};
105
  my $classid = shift @{$class};
107
  ${$class}[3] = convertTime (${$class}[3]);
106
  ${$class}[3] = convertTime (${$class}[3]);
108
  push @classes, $h->div ({ class=>"rTableRow", 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: unset;" }, @{$class}) ]);
109
}
108
}
Line 110... Line 109...
110
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;