Subversion Repositories VORC

Rev

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

Rev 69 Rev 77
Line 73... Line 73...
73 
 
 73 
 
74 
sub modify_id {
 74 
sub modify_id {
75 
  my $hr = shift;
 75 
  my $hr = shift;
Line 76... Line 76...
76 
  return $hr->{id} unless $LVL >= RollerCon::ADMIN;
 76 
  return $hr->{id} unless $LVL >= RollerCon::ADMIN;
77
77
78 
  if ($hr->{dept} eq "COA") {
 78 
  if ($hr->{dept} eq "COA" and $t->{location} =~ /MVP/) {
79 
    return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id})."&choice=Update" }, "[Edit Class]");
 79 
    return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id})."&choice=Update" }, "[Edit Class]");
80 
  } else {
 80 
  } else {
81 
    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;";
 81 
    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;";
Line 125... Line 125...
125 
      $t->{derby_name} = "FILLED";
 125 
      $t->{derby_name} = "FILLED";
126 
      return $t->{derby_name};
 126 
      return $t->{derby_name};
127 
    }
 127 
    }
128 
  }
 128 
  }
Line 129... Line 129...
129
129
130 
  if ($dept eq "COA") {
 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};
 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};
Line 132... Line 132...
132 
  }
 132 
  }
133
133