#!/usr/bin/perl
# Copyright 2001-2017 Leslie Richardson
# This file is part of Open Admin for Schools.
# show oaupdates - called by iframe on main page. Shows current values
use DBI;
use CGI;
use Time::JulianDay;
eval require "../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@
\n";
die $lex{Error}. " $@\n";
}
my $q = CGI->new;
print $q->header;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
print qq{\n};
# Display the updates
my $sth = $dbh->prepare("select * from oaupdate order by date desc, id desc");
$sth->execute;
if ( $DBI::errstr ) { print DBI::errstr; die $DBI::errstr; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
print qq{$r{title} [$r{date}]
\n};
print qq{$r{description}
\n};
}