| Line 65... |
Line 65... |
| 65 |
sub modify_id {
|
65 |
sub modify_id {
|
| 66 |
my $hr = shift;
|
66 |
my $hr = shift;
|
| 67 |
return $hr->{id} unless $LVL >= RollerCon::ADMIN;
|
67 |
return $hr->{id} unless $LVL >= RollerCon::ADMIN;
|
| 68 |
if ($hr->{dept} eq "COA" and $hr->{location} =~ /MVP/) {
|
68 |
if ($hr->{dept} eq "COA" and $hr->{location} =~ /MVP/) {
|
| 69 |
return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id})."&choice=Update" }, "[Edit Class]");
|
69 |
return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id})."&choice=Update" }, "[Edit Class]");
|
| - |
|
70 |
} elsif ($hr->{dept} eq "COA" and $hr->{role} eq "Seminar Coach") {
|
| - |
|
71 |
return $h->a ({ href=>"view_seminar.pl?id=".getSeminarID ($hr->{id})."&choice=Update" }, "[Edit Seminar]");
|
| 70 |
} else {
|
72 |
} else {
|
| 71 |
my $clicky = $hr->{RCid} ? "event.stopPropagation(); if (confirm('WARNING!\\nYou are modifying a shift that someone has signed up for.')==true) {return true;} else {return false;}" : "return true;";
|
73 |
my $clicky = $hr->{RCid} ? "event.stopPropagation(); if (confirm('WARNING!\\nYou are modifying a shift that someone has signed up for.')==true) {return true;} else {return false;}" : "return true;";
|
| 72 |
my $extrawarning = $hr->{RCid} ? "\\nWARNING! It appears someone is signed up for it." : "";
|
74 |
my $extrawarning = $hr->{RCid} ? "\\nWARNING! It appears someone is signed up for it." : "";
|
| 73 |
return join " ", #$hr->{id},
|
75 |
return join " ", #$hr->{id},
|
| 74 |
$h->a ({ href=>"view_shift.pl?id=$hr->{id}&choice=Update", onClick=>$clicky }, "[Edit]"),
|
76 |
$h->a ({ href=>"view_shift.pl?id=$hr->{id}&choice=Update", onClick=>$clicky }, "[Edit]"),
|
| Line 125... |
Line 127... |
| 125 |
return $t->{derby_name};
|
127 |
return $t->{derby_name};
|
| 126 |
}
|
128 |
}
|
| Line 127... |
Line 129... |
| 127 |
|
129 |
|
| 128 |
if ($dept eq "COA" and $t->{location} =~ /MVP/) {
|
130 |
if ($dept eq "COA" and $t->{location} =~ /MVP/) {
|
| - |
|
131 |
return $LVL >= RollerCon::ADMIN ? $t->{derby_name} . " | " . $h->a ({ href=>"view_class.pl?id=".getClassID ($t->{id})."&choice=Update" }, "[Edit Class]") : $t->{derby_name};
|
| - |
|
132 |
} elsif ($dept eq "COA" and $t->{role} eq "Seminar Coach") {
|
| 129 |
return $LVL >= RollerCon::ADMIN ? $t->{derby_name} . " | " . $h->a ({ href=>"view_class.pl?id=".getClassID ($t->{id})."&choice=Update" }, "[Edit Class]") : $t->{derby_name};
|
133 |
return $LVL >= RollerCon::ADMIN ? $t->{derby_name} . " | " . $h->a ({ href=>"view_seminar.pl?id=".getSeminarID ($t->{id})."&choice=Update" }, "[Edit Seminar]") : $t->{derby_name};
|
| Line 130... |
Line 134... |
| 130 |
}
|
134 |
}
|
| 131 |
|
135 |
|
| 132 |
my ($yyyy, $mm, $dd) = split /\-/, $t->{date};
|
136 |
my ($yyyy, $mm, $dd) = split /\-/, $t->{date};
|