Subversion Repositories VORC

Rev

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

Rev 77 Rev 83
Line 72... Line 72...
72 
}
 72 
}
Line 73... Line 73...
73 
 
 73 
 
74 
sub modify_id {
 74 
sub modify_id {
75 
  my $hr = shift;
 75 
  my $hr = shift;
76 
  return $hr->{id} unless $LVL >= RollerCon::ADMIN;
 - 
 
77
76 
  return $hr->{id} unless $LVL >= RollerCon::ADMIN;
78 
  if ($hr->{dept} eq "COA" and $t->{location} =~ /MVP/) {
 77 
  if ($hr->{dept} eq "COA" and $hr->{location} =~ /MVP/) {
79 
    return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id})."&choice=Update" }, "[Edit Class]");
 78 
    return $h->a ({ href=>"view_class.pl?id=".getClassID ($hr->{id})."&choice=Update" }, "[Edit Class]");
80 
  } else {
 79 
  } 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;";
 80 
    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;";
82 
    my $extrawarning = $hr->{RCid} ? "\\nWARNING! It appears someone is signed up for it." : "";
 81 
    my $extrawarning = $hr->{RCid} ? "\\nWARNING! It appears someone is signed up for it." : "";