Subversion Repositories VORC

Rev

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

Rev 56 Rev 62
Line 278... Line 278...
278 
  if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER) {
 278 
  if ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::VOLUNTEER) {
279 
    my $dbh = WebDB::connect ();
 279 
    my $dbh = WebDB::connect ();
280 
    my ($count) = $dbh->selectrow_array ("select count from v_class where $primary = ?", undef, $R->{$primary});
 280 
    my ($count) = $dbh->selectrow_array ("select count from v_class where $primary = ?", undef, $R->{$primary});
Line 281... Line 281...
281
281
282 
    if ($F{$DBFields[0]} !~ /^(NEW|COPY)/) {
 282 
    if ($F{$DBFields[0]} !~ /^(NEW|COPY)/) {
Line 283... Line 283...
283 
      my @A = $dbh->selectall_array ("select role, official.RCid, derby_name from v_class_signup join official on v_class_signup.RCid = official.RCid where $primary = ? order by role", undef, $R->{$primary});
 283 
      my @A = @{$dbh->selectall_arrayref ("select role, official.RCid, derby_name from v_class_signup join official on v_class_signup.RCid = official.RCid where $primary = ? order by role", undef, $R->{$primary})};
284
284
Line 285... Line 285...
285 
      my $classkey = join '|', $F{date}, $F{start_time}, $F{location};
 285 
      my $classkey = join '|', $F{date}, $F{start_time}, $F{location};