Subversion Repositories PEEPS

#!/usr/bin/perl

# Redirect error messages to a log of my choosing. (it's annoying to filter for errors in the shared env)
#my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";
#close STDERR;
#open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";
#warn "Redirecting errors to ${error_log_path}vorc_error.log";

#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }

use strict;
use CGI qw/param cookie header start_html url/;
use HTML::Tiny;
use tableViewer;
use PEEPS;
our $h = HTML::Tiny->new( mode => 'html' );
$ENV{HTTPS} = 'ON' if $ENV{SERVER_NAME} =~ /^peeps/;

my $cookie_string = authenticate () || die;
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
my $PEEPSAUTH_cookie = CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string",-expires=>"+30m");

my $pageTitle = "PEEPS - Organizations";
our $DBTABLE = 'organization';
my %COLUMNS = (
# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>
  id                 => [qw(ID               5    number              )],
  league_name        => [qw(LeagueName      10    text        default )],
  business_name      => [qw(BusinessName    15    text                )],
  city               => [qw(City            20    text        default )],
  state_province     => [qw(StateProvince   25    select      default )],
  country            => [qw(Country         30    select      default )],
  url                => [qw(Website         35    text                )],
  type               => [qw(Type            40    select      default )],
  status             => [qw(Status          45    select      default )],
  legal_entity_type  => [qw(LegalEntity     50    select       )],
  tax_id             => [qw(TaxID           55    text         )],
  date_established   => [qw(Established     60    date        default )],
);

# Set any custom "where" DB filters here...
my @whereClause;

# If we need to modify line item values, create a subroutine named "modify_$columnname"
#    It will receive a hashref to the object lineitem

sub modify_url {
  my $thing = shift;
  return $h->a ({ href => $thing->{url}, target => "_blank", onClick=>"event.stopPropagation();" }, $thing->{url});
}

# If we need to modify how a filter works, create a subroutine named "filter_$columnname"
#    It will receive two fields, the field name and the current filter value (if any)

# Uncomment and update if we want to enable clicking on a row to open a new page.
#
sub addRowClick {
  my $t = shift;
  return "location.href='view_league?id=$t->{id}'";
}

# Call the function to print the table view page (with available options)
printTablePage ({ Title     => $pageTitle,
#                  Prefs     => $prefscookie,
                  Table     => $DBTABLE,
                  Columns   => \%COLUMNS,
                  PEEPSAuth => $PEEPSAUTH_cookie,
                  Where     => join (" and ", @whereClause),
#                  HeaderButton       => { field  => "id",
#                                          button => $h->input ({ type=>"button", value=>"Add", onClick=>"window.location.href='view_game.pl'" }) }
               });