Subversion Repositories VORC

Rev

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

Rev 62 Rev 73
Line 408... Line 408...
408
  
408
  
409
  my $sub_name = (caller(0))[3];
409
  my $sub_name = (caller(0))[3];
Line 410... Line 410...
410
  $sub_name =~ s/^main::select_//;
410
  $sub_name =~ s/^main::select_//;
411
  
411
  
412
  my $dbh = WebDB::connect ();
412
  my $dbh = WebDB::connect ();
Line 413... Line 413...
413
 	push @options, map { @{$_} } @{$dbh->selectall_arrayref ("select distinct type from game order by type")};
413
 	push @options, map { @{$_} } @{$dbh->selectall_arrayref ("select distinct type from staff_template order by type")};
414
 	$dbh->disconnect ();
414
 	$dbh->disconnect ();