#!/usr/bin/perl # Copyright 2001-2020 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. # Description: Grade based subject enrollment. List all the students # for all the subjects in that grade. Deselect those that you don't # have in those subjects. my %lex = ('Main' => 'Main', 'Student Group' => 'Student Group', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Continue' => 'Continue', 'Medical' => 'Medical', 'Add' => 'Add', 'Record' => 'Record', 'Checked' => 'Checked', 'Blank=All' => 'Blank=All', 'Separate with Spaces' => 'Separate with Spaces', 'Category' => 'Category', 'New' => 'New', 'Next Page' => 'Next Page', 'Description' => 'Description', 'Record(s) Stored' => 'Record(s) Stored', 'Contact' => 'Contact', 'Error' => 'Error', 'Checked' => 'Checked', 'Student Number' => 'Student Number', 'Results' => 'Results', 'Record Exists' => 'Record Exists', 'Skipping' => 'Skipping', 'Multiple Categories' => 'Multiple Categories', 'Blank' => 'Blank', 'Missing' => 'Missing', 'or' => 'or', 'Not Found' => 'Not Found', ); my $self = 'medadd.pl'; use DBI; use CGI; 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 $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Print Page Header my $title = qq{$lex{Add} $lex{Medical} $lex{Record}}; 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}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; multiAdd(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; writeRecords(); } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n\n}; # Select an Existing Category my @category; my $sth = $dbh->prepare("select distinct category from student_medical order by category"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchall_arrayref; foreach my $val ( @$ref ) { if ( $val->[0] ) { push @category, $val->[0]; } } print qq{\n}; print qq{\n}; # Add New Category print qq{\n}; print qq{\n}; # Add New Description print qq{\n}; print qq{\n}; # Next Page Selection (studcheck) print qq{\n\n}; # Submit print qq{
$lex{'Student Group'}}; print qq{\n}; print qq{\n}; print qq{$lex{'Separate with Spaces'}, $lex{'Blank=All'}
Default $lex{Category} $lex{Blank} = $lex{'Multiple Categories'}
$lex{New} $lex{Category}}; print qq{\n}; print qq{
Default $lex{Description}}; print qq{\n}; print qq{
}; print qq{$lex{'Next Page'} $lex{Checked}?}; print qq{
\n}; print qq{
\n
\n}; exit; } #----------- sub multiAdd { # add students #----------- # foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } my $category = $arr{category}; my $description = $arr{description}; delete $arr{category}; delete $arr{description}; # Start Form print qq{
\n}; print qq{\n}; print qq{

\n}; # SQL Setup. my $sth = $dbh->prepare("select distinct category from student_medical where category is Not Null order by category"); my $sth1 = $dbh->prepare("select * from student_medical where studnum = ?"); my $sth2 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); # Get Category my @category; $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $cat = $sth->fetchrow ) { push @category, $cat; } my (%sort, %name); foreach my $studnum ( keys %arr ) { # Get Name $sth2->execute($studnum); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth2->fetchrow; $sort{"$lastname$firstname$studnum"} = $studnum; $name{$studnum} = qq{$lastname, $firstname}; } foreach my $key ( sort keys %sort ) { my $studnum = $sort{$key}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$name{$studnum}
\n}; # Get Any Existing Records. print qq{
Current Medical Records
\n}; my $first = 1; $sth1->execute($studnum); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth1->fetchrow_hashref ) { my %r = %$ref; print qq{
$r{category} - $r{description}
\n}; $first = 0; } if ( $first ) { print qq{
No Current Records
\n}; } print qq{
\n}; # Show Category print qq{
Medical Category
\n}; print qq{\n}; # New Category print qq{ $lex{or} $lex{New} $lex{Category} }; print qq{
\n}; # Get Description print qq{
Description
\n}; print qq{

\n}; } # end of student Loop print qq{
\n}; print qq{
\n}; exit; } #---------------- sub selectStudents { # select students #---------------- # foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } # New category overrides if ( $arr{newcategory} ) { $arr{category} = $arr{newcategory}; } # Display Current Category and Description, if any if ( $arr{category} ) { print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{Category}$arr{category}
$lex{Description}$arr{description}


\n}; } my $studcheck; if ( $arr{studcheck} ) { $studcheck = qq{checked="checked"}; } $table = 'studentall'; # student data source my $group; if ( $arr{group} eq $lex{Grade} ) { $group = 'grade'; } elsif ( $arr{group} eq $lex{Homeroom} ) { $group = 'homeroom'; } elsif ( $arr{group} eq $lex{'Student Number'} ) { $group = 'studnum'; } else { $group = 'grade'; } # default to grade. my @groups = split /\s/, $arr{groupid}; my $select; my $orderby; if ( not @groups ) { # select all students my $sth = $dbh->prepare("select lastname, firstname, studnum, $group from $table order by lastname, firstname"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my ( $lastname, $firstname, $studnum, $grp ) = $sth->fetchrow ) { push @students, $studnum; $lastname =~ s/\(/ /g; $firstname =~ s/\(/ /g; $students{$studnum} = "$lastname, $firstname ($grp)"; } } elsif ( $group eq 'studnum' ) { # student numbers my $sth = $dbh->prepare("select lastname, firstname, grade from $table where studnum = ?"); foreach my $studnum ( @groups ) { $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $grade ) = $sth->fetchrow; push @students, $studnum; $lastname =~ s/\(/ /g; $firstname =~ s/\(/ /g; $students{$studnum} = "$lastname, $firstname ($grade)"; } } else { # we have groups of students my $sth = $dbh->prepare("select lastname, firstname, studnum, $group from $table where $group = ? order by lastname, firstname"); foreach my $grp ( @groups ) { $sth->execute( $grp ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } while ( my ( $lastname, $firstname, $studnum, $grp ) = $sth->fetchrow ) { push @students, $studnum; $lastname =~ s/\(/ /g; $firstname =~ s/\(/ /g; $students{$studnum} = "$lastname, $firstname ($grp)"; } } } # All students now in @students and %students; # Form start print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; # Print Student Information. print qq{\n}; my $studcount = 0; foreach my $studnum ( @students ){ #loop through students my ($dud, $grp) = split /\(/, $students{$studnum}; chop $grp; # remove trailing parens. $oldgrp = $currgrp; $currgrp = $grp; if ( $currgrp ne $oldgrp ) { # switch colors; if ( $class eq 'blue' ) { $class = 'gray'; } else { $class = 'blue'; } } print qq{\n}; $studcount++; if ( $studcount % 20 == 0 ) { print qq{
}; print qq{\n}; print qq{ $students{$studnum}
\n}; } } print qq{
\n}; print qq{
\n}; print qq{
\n}; exit; } #--------------- sub writeRecords { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } print qq{\n}; print qq{\n}; # SQL Setup my $sth = $dbh->prepare("select count(*) from student_medical where studnum = ? and category = ?"); my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); my $sth2 = $dbh->prepare("insert into student_medical ( studnum, category, description ) values ( ?, ?, ? )"); foreach my $key ( sort keys %arr ) { my ( $type, $studnum ) = split(':',$key); if ( $type eq 'D' or $type eq 'N' ) { next; } # we only want category my $dkey = "D:$studnum"; # decription my $nkey = "N:$studnum"; # new category my $ckey = $key; # Get Student Name $sth1->execute( $studnum ); if ( $DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; if ( not $lastname ) { $lastname = qq{$lex{'Not Found'}}; } # Set Category, Description if ( $arr{$nkey} ) { $arr{$ckey} = $arr{$nkey}; } # new cat replaces cat. my $category = $arr{$ckey}; my $description = $arr{$dkey}; if ( not $category ) { # an error print qq{\n}; next; } # Check for duplicates, this student, this category $sth->execute( $studnum, $category ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $catcount = $sth->fetchrow; if ( $catcount ) { print qq{\n}; next; } # print line for this record. print qq{\n}; # Insert the record $sth2->execute( $studnum, $category, $description ); if ( $DBI::errstr ){ print $DBI::errstr; last; } } # Next Student print qq{
$lex{Results}
$lex{Missing} $lex{Category}: $firstname $lastname : }; print qq{$lex{Skipping}
$lex{'Record Exists'}: $firstname $lastname : }; print qq{$category $lex{Skipping}
$lastname, $firstname ($studnum) - $category
\n}; if ( not $DBI::errstr ) { print qq{

$lex{'Record(s) Stored'}.

\n}; } else { print qq{

$lex{Error}. $lex{Contact}:\n}; print qq{ $adminname $adminemail\n}; print qq{$lex{Error}: $DBI::errstr

\n}; } print qq{

[ $lex{Main} ]

\n}; print qq{\n}; exit; } # End of writeRecords