#!/usr/bin/perl # Copyright 2001-2019 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. %lex = ('Edit' => 'Edit', 'Main' => 'Main', 'Error' => 'Error', 'School Events' => 'School Events', 'Select Month' => 'Select Month', 'Save' => 'Save', 'Community Events' => 'Community Events', 'Staff Updates' => 'Staff Updates', 'Record Updated' => 'Record Updated', 'Upcoming Events' => 'Upcoming Events', 'Data Updates' => 'Data Updates', 'Resource Spending' => 'Resource Spending', 'Facility Updates' => 'Facility Updates', 'Other Updates' => 'Other Updates', 'Update' => 'Update', 'Other Records' => 'Other Records', 'Land Based Learning' => 'Land Based Learning', ); my $self = 'event_add.pl'; use CGI; use DBI; eval require "../../etc/admin.conf.root"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header(-charset, $charset ); my %arr = $q->Vars; my $dbtype = 'mysql'; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Load Configuration Variables; my $sth = $dbh->prepare("select id, datavalue from conf_system where filename = 'admin'"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my ($id, $datavalue) = $sth->fetchrow ) { eval $datavalue; if ( $@ ) { print "$lex{Error}: $@
\n"; die "$lex{Error}: $@\n"; } } # Print Page Header my $title = "$lex{Edit} $lex{'School Events'}"; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; editRecord(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeRecord(); } #---------------- sub showStartPage { #---------------- print qq{\n}; print qq{\n}; # Setup Year-Months. my @months; my %months; my ($sy, $sm, $sd) = split('-', $schoolstart); # schoolstart is global var from config. my $yrmo = "$sy-$sm"; push @months, $yrmo; $months{$yrmo} = "$s_month[$sm]-$sy"; for my $i (1..10) { my $mo = $sm + $i; my $yr = $sy; if ( $mo > 12 ) { $mo = $mo - 12; $yr++; } my $yrmo = "$yr-$mo"; push @months, $yrmo; $months{$yrmo} = "$s_month[$mo]-$yr"; } foreach my $mo ( @months ) { print qq{\n}; } print qq{
$lex{'Select Month'}
}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{\n}; exit; } #------------- sub editRecord { #------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $month = $arr{month}; my ($y,$m) = split('-', $month); $month .= '-01'; # print "Month:$month
\n"; # Load Existing Record (if any) my $sth = $dbh->prepare("select * from schoolevent where date = ?"); $sth->execute( $month ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $ref = $sth->fetchrow_hashref; my %r = %$ref; # Now show the form. print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; print qq{
$month[$m] - $y
$lex{'Community Events'}
$lex{'Upcoming Events'}
$lex{'Staff Updates'}
$lex{'Data Updates'}
$lex{'Resource Spending'}
$lex{'Facility Updates'}
$lex{'Land Based Learning'}
$lex{'Other Updates'}
\n}; exit; } #-------------- sub writeRecord { #-------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Check for existing record (so just update) $sth = $dbh->prepare("select * from schoolevent where date = ?"); $sth->execute( $arr{date} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; if ( $ref->{id} ) { # update existing my %r = %$ref; my $id = $r{id}; delete $r{id}; foreach my $key ( keys %r ) { $sth = $dbh->prepare("update schoolevent set $key = ? where id = $id"); if ( $r{$key} ne $arr{$key} ) { # changed value $sth->execute( $arr{$key} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } } } } else { # add a new record my $sth = $dbh->prepare("insert into schoolevent (date, communityevents,staffupdates,dataupdates,resourcespending,facilityupdates,otherupdates, upcomingevents, landedu) values(?,?,?,?,?,?,?,?,?)"); $sth->execute( $arr{date}, $arr{communityevents},$arr{staffupdates},$arr{dataupdates},$arr{resourcespending}, $arr{facilityupdates},$arr{otherupdates}, $arr{upcomingevents}, $arr{landedu} ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } } print qq{

$lex{'Record Updated'}

\n}; print qq{
\n}; print qq{\n}; print qq{
\n}; print qq{\n}; exit; }