Subversion Repositories VORC

#!/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 cPanelUserConfig;
use CGI qw/param cookie header start_html url/;
use HTML::Tiny;
use tableViewer;
use RollerCon;
our $h = HTML::Tiny->new( mode => 'html' );

my $cookie_string = authenticate (RollerCon::SYSADMIN) || die;
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
my $user = getUser ($EML);
my $username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
my $RCid = $user->{RCid};
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
my $YEAR = 1900 + (localtime)[5];


my $pageTitle = "Class Survey Questions";
my $prefscookie = "class_survey_questions";
our $DBTABLE = 'survey_question';
my %COLUMNS = (
# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>
  qid         => [qw(QID           5    number      static )],
  qorder      => [qw(Order        10    number      default )],
  question    => [qw(Question     20    text        default )],
  type        => [qw(Type         30    select      default )],
  required    => [qw(Req          40    boolean      default )],
  private     => [qw(Private      45    boolean      default )],
  added       => [qw(Timestamp    50    date        default )],
);
my $stylesheet = "/style.css";
my $homeURL = '/schedule/';
my @pagelimitoptions = ("All", 5, 10, 25);

# 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_qid {
  my $hr = shift;
  my $clicky = $hr->{qorder} ? "event.stopPropagation(); if (confirm('WARNING!\\nYou are modifying an active question.')==true) {return true;} else {return false;}" : "return true;";
  my $extrawarning = $hr->{count} ? "\\nWARNING! It appears someone is signed up for it." : "";
  return join "&nbsp;", #$hr->{id},
         $h->a ({ href=>"view_class_survey_question.pl?qid=$hr->{qid}&choice=Update", onClick=>$clicky }, "[Edit]"),
         $h->a ({ href=>"view_class_survey_question.pl?qid=$hr->{qid}&choice=Copy" }, "[Copy]"),
         $h->a ({ href=>"view_class_survey_question.pl?qid=$hr->{qid}&choice=Delete", onClick=>"event.stopPropagation(); if (confirm('Are you sure you want to DELETE this question?$extrawarning')==true) {return true;} else {return false;}" }, "[Delete]")
  ;
};

sub modify_required {
  my $thing = shift;
  return $thing->{required} ? "True" : "False";
}

sub modify_private {
  my $thing = shift;
  return $thing->{private} ? "True" : "False";
}

# 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_class_survey_question.pl?qid=$t->{qid}&choice=View'";
}

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