Subversion Repositories VORC

Rev

Rev 275 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 275 Rev 301
Line 68... Line 68...
68 
 
 68 
 
69 
sub modify_id {
 69 
sub modify_id {
70 
  my $hr = shift;
 70 
  my $hr = shift;
71 
  return $hr->{id} unless $LVL >= RollerCon::ADMIN;
 71 
  return $hr->{id} unless $LVL >= RollerCon::ADMIN;
72 
  if ($hr->{dept} eq "COA" and $hr->{location} =~ /MVP/) {
 72 
  if ($hr->{dept} eq "COA" and $hr->{location} =~ /MVP/) {
73 
    return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id})."&choice=Update" }, "[Edit Class]");
 73 
    return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id}) }, "[View Class]");
74 
  } elsif ($hr->{dept} eq "COA" and $hr->{role} eq "Seminar Coach") {
 74 
  } elsif ($hr->{dept} eq "COA" and $hr->{role} eq "Seminar Coach") {
75 
    return $h->a ({ href=>"view_seminar.pl?id=".getSeminarID ($hr->{id})."&choice=Update" }, "[Edit Seminar]");
 75 
    return $h->a ({ href=>"view_seminar.pl?id=".getSeminarID ($hr->{id}) }, "[View Seminar]");
76 
  } else {
 76 
  } else {
77 
    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;";
 77 
    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;";
78 
    my $extrawarning = $hr->{RCid} ? "\\nWARNING! It appears someone is signed up for it." : "";
 78 
    my $extrawarning = $hr->{RCid} ? "\\nWARNING! It appears someone is signed up for it." : "";
79 
    return join " ", #$hr->{id},
 79 
    return join " ", #$hr->{id},
Line 130... Line 130...
130 
    # Don't let anyone change the assignee for an Hours Request.
 130 
    # Don't let anyone change the assignee for an Hours Request.
131 
    return $t->{derby_name};
 131 
    return $t->{derby_name};
132 
  }
 132 
  }
Line 133... Line 133...
133
133
134 
  if ($dept eq "COA" and $t->{location} =~ /MVP/) {
 134 
  if ($dept eq "COA" and $t->{location} =~ /MVP/) {
135 
    return $LVL >= RollerCon::ADMIN ? $t->{derby_name} . " | " . $h->a ({ href=>"view_class.pl?id=".getClassID ($t->{id})."&choice=Update" }, "[Edit Class]") : $t->{derby_name};
 135 
    return $LVL >= RollerCon::ADMIN ? $t->{derby_name} . " | " . $h->a ({ href=>"view_class.pl?id=".getClassID ($t->{id}) }, "[View Class]") : $t->{derby_name};
136 
  } elsif ($dept eq "COA" and $t->{role} eq "Seminar Coach") {
 136 
  } elsif ($dept eq "COA" and $t->{role} eq "Seminar Coach") {
137 
    return $LVL >= RollerCon::ADMIN ? $t->{derby_name} . " | " . $h->a ({ href=>"view_seminar.pl?id=".getSeminarID ($t->{id})."&choice=Update" }, "[Edit Seminar]") : $t->{derby_name};
 137 
    return $LVL >= RollerCon::ADMIN ? $t->{derby_name} . " | " . $h->a ({ href=>"view_seminar.pl?id=".getSeminarID ($t->{id}) }, "[View Seminar]") : $t->{derby_name};
Line 138... Line 138...
138 
  }
 138 
  }
139
139
140 
  my ($yyyy, $mm, $dd) = split /\-/, $t->{date};
 140 
  my ($yyyy, $mm, $dd) = split /\-/, $t->{date};