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 ();