Subversion Repositories VORC

Rev

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

Rev 226 Rev 233
Line 426... Line 426...
426 
  # View the list of people signed up for the class...
 426 
  # View the list of people signed up for the class...
427 
  if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::LEAD) {
 427 
  if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::LEAD) {
428 
    my ($count) = $dbh->selectrow_array ("select count from v_class_new where $primary = ?", undef, $R->{$primary});
 428 
    my ($count) = $dbh->selectrow_array ("select count from v_class_new where $primary = ?", undef, $R->{$primary});
Line 429... Line 429...
429
429
430 
    if ($F{$DBFields[0]} !~ /^(NEW|COPY)/) {
 430 
    if ($F{$DBFields[0]} !~ /^(NEW|COPY)/) {
Line 431... Line 431...
431 
      my @A = @{$dbh->selectall_arrayref ("select role, official.RCid, derby_name from v_class_signup_new join official on v_class_signup_new.RCid = official.RCid where $primary = ? order by role", undef, $R->{$primary})};
 431 
      my @A = @{$dbh->selectall_arrayref ("select role, official.RCid, derby_name from v_class_signup_new join official on v_class_signup_new.RCid = official.RCid where $primary = ? order by cast(right(role, if(char_length(role) = 5, 1, 2)) as UNSIGNED) asc", undef, $R->{$primary})};
432
432
Line 433... Line 433...
433 
      my $classkey = join '|', $F{date}, $F{start_time}, $F{location};
 433 
      my $classkey = join '|', $F{date}, $F{start_time}, $F{location};