Subversion Repositories PEEPS

Rev

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

Rev 31 Rev 37
Line 19... Line 19...
19
my $cookie_string = authenticate () || die;
19
my $cookie_string = authenticate () || die;
20
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
20
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
21
my $PEEPSAUTH_cookie = CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string",-expires=>"+30m");
21
my $PEEPSAUTH_cookie = CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string",-expires=>"+30m");
Line 22... Line 22...
22
 
22
 
23
my $pageTitle = "PEEPS - Organizations";
23
my $pageTitle = "PEEPS - Organizations";
24
our $DBTABLE = 'organization';
24
our $DBTABLE = 'v_organization';
25
my %COLUMNS = (
25
my %COLUMNS = (
26
# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>
26
# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>
27
  id                 => [qw(ID               5    number              )],
27
  id                 => [qw(ID               5    number              )],
28
  league_name        => [qw(LeagueName      10    text        default )],
28
  league_name        => [qw(LeagueName      10    text        default )],
Line 34... Line 34...
34
  type               => [qw(Type            40    select      default )],
34
  type               => [qw(Type            40    select      default )],
35
  status             => [qw(Status          45    select      default )],
35
  status             => [qw(Status          45    select      default )],
36
  legal_entity_type  => [qw(LegalEntity     50    select       )],
36
  legal_entity_type  => [qw(LegalEntity     50    select       )],
37
  tax_id             => [qw(TaxID           55    text         )],
37
  tax_id             => [qw(TaxID           55    text         )],
38
  date_established   => [qw(Established     60    date        default )],
38
  date_established   => [qw(Established     60    date        default )],
-
 
39
  policy_id          => [qw(PolicyID     65    date        default )],
-
 
40
  policy_name        => [qw(PolicyName     70    date        default )],
-
 
41
  start              => [qw(StartIns     75    date        default )],
-
 
42
  end                => [qw(EndIns     80    date        default )],
39
);
43
);
Line 40... Line 44...
40
 
44
 
41
# Set any custom "where" DB filters here...
45
# Set any custom "where" DB filters here...