#!/usr/bin/perl # Copyright 2001-2024 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. my %lex = ('Save' => 'Save', 'Records Updated' => 'Records Updated', 'Edit' => 'Edit', 'Transactions' => 'Transactions', 'Date' => 'Date', 'Type' => 'Type', 'Name' => 'Name', 'Description' => 'Description', 'Amount' => 'Amount', 'Receipt' => 'Receipt', 'Id' => 'Id', 'No Records Found' => 'No Records Found', 'Paid' => 'Paid', 'Balance' => 'Balance', 'Fees' => 'Fees', 'Main' => 'Main', 'Error' => 'Error', ); my $self = 'transacted.pl'; use DBI; use CGI; use Number::Format qw(:all); eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@
\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $studnum = $arr{studnum}; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Print Page Head. my $title = "$lex{Edit} $lex{Transactions}"; print qq{$doctype\n$title $chartype\n\n}; # No links so have to use back button. #print qq{[ $lex{Main} | \n}; #print qq{$lex{Fees} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } else { delete $arr{page}; updateRecord(); } #---------------- sub showStartPage { #---------------- showTransactions( $studnum ); # prints a table. print qq{

Fill Paid_Id and Receipt fields (if blank) with the id value }; print qq{and receipt value from the final payment.

\n}; my $sth = $dbh->prepare("select * from fees_jrl where studnum = ? and paid_id is NULL or paid_id = 0"); $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{
\n}; print qq{\n}; print qq{\n}; # Print Table Header print qq{
\n}; print qq{}; print qq{}; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ) { print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{\n}; print qq{
$lex{Id}$lex{Date}$lex{Type}$lex{Name}$lex{Description}$lex{Amount}$lex{Paid} $lex{Id}$lex{Receipt}
$ref->{id}$ref->{trans_date}$ref->{trans_type}$ref->{name}$ref->{description}$ref->{total}
\n}; } #--------------- sub updateRecord { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } foreach my $key ( keys %arr ) { if ( not $arr{$key} ) { next; } # skip over blank values my ( $type, $id ) = split(':', $key); if ( $type eq 'P' ) { $field = 'paid_id'; } elsif ( $type eq 'R' ) { $field = 'receipt'; } else { print qq{Error in Type: $key
\n}; exit; } my $sth = $dbh->prepare("update fees_jrl set $field = ? where id = ?"); $sth->execute( $arr{$key}, $id ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } } print qq{

$lex{'Records Updated'}

\n}; print qq{\n}; exit; } #------------------- sub showTransactions { #------------------- my $studnum = shift; # studnum passed. # Find student transactions. my $sth1 = $dbh->prepare("select id, trans_date, trans_type, name, description, total, paid_id, receipt from fees_jrl where studnum = ? order by trans_date, id"); $sth1->execute( $studnum ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $balance; my $first = 1; while ( my ($id, $trans_date, $trans_type, $name, $description, $total, $paid_id, $receipt ) = $sth1->fetchrow ) { if ( $first ) { # Print Table Header print qq{\n}; print qq{}; print qq{}; print qq{\n}; $first = 0; } $balance += $total; print qq{\n}; print qq{\n}; } if ( $first ) { print qq{

$lex{'No Records Found'}

\n}; } else { # Show Balance Due $balanceduefmt = format_number( $balance, 2,2); print qq{\n}; print qq{}; print qq{\n}; } print qq{
$lex{Id}$lex{Date}$lex{Type}$lex{Name}$lex{Description}$lex{Amount}$lex{Paid} $lex{Id}$lex{Receipt}
$id$trans_date$trans_type$name$description$total$paid_id$receipt
$lex{Balance}$balanceduefmt
\n}; }