| Line 65... |
Line 65... |
| 65 |
$COLUMNS{id} = [qw(Admin 1 none default )];
|
65 |
$COLUMNS{id} = [qw(Admin 1 none default )];
|
| 66 |
$COLUMNS{available}= [qw(SignUp 45 text )]
|
66 |
$COLUMNS{available}= [qw(SignUp 45 text )]
|
| 67 |
}
|
67 |
}
|
| Line 68... |
Line 68... |
| 68 |
|
68 |
|
| 69 |
if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER or $user->{department}->{COA} >= RollerCon::USER) {
|
69 |
if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER or $user->{department}->{COA} >= RollerCon::USER) {
|
| 70 |
$COLUMNS{note} = [qw(Notes 60 text )],
|
70 |
$COLUMNS{note} = [qw(Notes 60 text )],
|
| 71 |
$COLUMNS{capacity} = [qw(Capacity 65 number default )],
|
71 |
$COLUMNS{capacity} = [qw(Capacity 65 number default )],
|
| - |
|
72 |
$COLUMNS{count} = [qw(Count 70 number default )],
|
| - |
|
73 |
$COLUMNS{stars} = [qw(Stars 75 number default )],
|
| 72 |
$COLUMNS{count} = [qw(Count 70 number default )],
|
74 |
$COLUMNS{responses} = [qw(Responses 80 number default )],
|
| Line 73... |
Line 75... |
| 73 |
}
|
75 |
}
|
| 74 |
|
76 |
|
| 75 |
if ($user->{MVPid} and $LVL < RollerCon::ADMIN) {
|
77 |
if ($user->{MVPid} and $LVL < RollerCon::ADMIN) {
|
| Line 176... |
Line 178... |
| 176 |
sub modify_end_time {
|
178 |
sub modify_end_time {
|
| 177 |
my $t = shift;
|
179 |
my $t = shift;
|
| 178 |
return convertTime $t->{end_time};
|
180 |
return convertTime $t->{end_time};
|
| 179 |
}
|
181 |
}
|
| Line -... |
Line 182... |
| - |
|
182 |
|
| - |
|
183 |
sub modify_stars {
|
| - |
|
184 |
my $t = shift;
|
| - |
|
185 |
if ($t->{coach} eq $user->{derby_name} or $LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::MANAGER) {
|
| - |
|
186 |
$t->{stars} = $t->{stars};
|
| - |
|
187 |
} else {
|
| - |
|
188 |
$t->{stars} = ' ';
|
| - |
|
189 |
}
|
| - |
|
190 |
}
|
| - |
|
191 |
|
| - |
|
192 |
sub modify_responses {
|
| - |
|
193 |
my $t = shift;
|
| - |
|
194 |
if ($t->{coachRCid} == $user->{RCid} or $LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::MANAGER) {
|
| - |
|
195 |
$t->{responses} = $t->{responses} // '0';
|
| - |
|
196 |
} else {
|
| - |
|
197 |
$t->{responses} = ' ';
|
| - |
|
198 |
}
|
| - |
|
199 |
}
|
| Line 180... |
Line 200... |
| 180 |
|
200 |
|
| 181 |
|
201 |
|
| Line 429... |
Line 449... |
| 429 |
}
|
449 |
}
|
| Line 430... |
Line 450... |
| 430 |
|
450 |
|
| 431 |
# Print the things
|
451 |
# Print the things
|
| 432 |
foreach my $t (@ProductList) {
|
452 |
foreach my $t (@ProductList) {
|
| 433 |
my @display = map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_}) } @displayFields;
|
453 |
my @display = map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_}) } @displayFields;
|
| 434 |
if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER) {
|
454 |
if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER or $user->{department}->{COA} >= RollerCon::VOLUNTEER) {
|
| 435 |
print $t->{signedup} ? $h->div ({ class=>'rTableRow highlighted', onclick=>"location.href='view_class.pl?id=$t->{id}&choice=View'" }, [ @display ])
|
455 |
print $t->{signedup} ? $h->div ({ class=>'rTableRow highlighted', onclick=>"location.href='view_class.pl?id=$t->{id}&choice=View'" }, [ @display ])
|
| 436 |
: $h->div ({ class=>'rTableRow shaded', onclick=>"location.href='view_class.pl?id=$t->{id}&choice=View'" }, [ @display ]);
|
456 |
: $h->div ({ class=>'rTableRow shaded', onclick=>"location.href='view_class.pl?id=$t->{id}&choice=View'" }, [ @display ]);
|
| 437 |
} else {
|
457 |
} else {
|
| 438 |
print $t->{signedup} ? $h->div ({ class=>'rTableRow highlighted' }, [ @display ])
|
458 |
print $t->{signedup} ? $h->div ({ class=>'rTableRow highlighted' }, [ @display ])
|