Subversion Repositories PEEPS

Rev

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

Rev 41 Rev 45
Line 16... Line 16...
16 
my $dbh = WebDB::connect ("peeps");
 16 
my $dbh = WebDB::connect ("peeps");
17 
sub getRCDBH {
 17 
sub getRCDBH {
18 
  return $dbh;
 18 
  return $dbh;
19 
}
 19 
}
20 
our $ORCUSER;
 20 
our $ORCUSER;
21 
our $SYSTEM_EMAIL = 'rollercon.vorc@gmail.com';
 21 
our $SYSTEM_EMAIL = getSetting ("SYSTEM_EMAIL") // 'peeps@wftdi.com';
22 
use constant {
 22 
use constant {
23 
    NOONE     => 0,
 23 
    NOONE     => 0,
24 
    USER      => 1,
 24 
    USER      => 1,
25 
    VOLUNTEER => 1,
 25 
    VOLUNTEER => 1,
26 
    LEAD      => 2,
 26 
    LEAD      => 2,