#!/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 = ('Main' => 'Main', 'Enrol' => 'Enrol', 'Student' => 'Student', 'Continue' => 'Continue', 'Contact' => 'Contact', 'Error' => 'Error', 'Grade' => 'Grade', 'Description' => 'Description', 'Reason' => 'Reason', 'Date' => 'Date', 'Withdrawn' => 'Withdrawn', 'School' => 'School', 'Cannot open' => 'Cannot open', 'Record(s) Stored' => 'Record(s) Stored', 'Select' => 'Select', 'Students' => 'Students', 'Duplicate Check' => 'Duplicate Check', 'Mass' => 'Mass', 'Blank=All' => 'Blank=All', 'Password' => 'Password', 'Eoy' => 'Eoy', 'Withdrawn' => 'Withdrawn', 'Birthdate' => 'Birthdate', ); use DBI; use CGI; use Fcntl qw(:DEFAULT :flock); use Crypt::GeneratePassword qw(:all); # password generation. use Cwd; my $self = 'massenrol.pl'; my $pwd = 'tansi'; # later, pull from security system. 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; if ( not -e "$globdir/global.conf" ) { print $lex{'Cannot open'}. " global.conf file!"; print qq{\n}; exit; } # Read database names and also the global enrol/withdraw reasons. eval { require "$globdir/global.conf"; }; if ( $@ ) { print qq{

$lex{'Cannot open'} global.conf:\n $@

\n}; die $lex{'Cannot open'}. " global.conf: $@\n"; } # Check if onion lake schools. my $dir = getcwd; foreach my $db ( keys %oldbase ) { if ( $dir =~ m/.*$db.*/ ) { %dbase = %oldbase; last; } } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header. my $title = "$lex{Mass} $lex{Enrol} $lex{Students}"; print qq{$doctype\n$title \n}; if ( not $arr{page} ) { # calendar popup. print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } # Set Focus to Last Name field. print qq{$chartype\n}; if ( not $arr{page} ) { print qq{\n}; } else { print qq{\n}; } print qq{
[ $lex{Main} | }; print qq{ $lex{Eoy} ]
\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}; enrolStudents(); } #----------------- sub selectStudents { #----------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Check Password if ( not $arr{password} or $arr{password} ne $pwd ) { print qq{
}; print qq{$lex{Password} $lex{Error}
\n}; print qq{\n}; exit; } # Open the remote database and get the students. my $db = $arr{dbase}; my $dsn1 = "DBI:$dbtype:dbname=$db"; my $dbh1 = DBI->connect($dsn1,$guser,$gpassword); my $schoolname = $dbase{$db}; my $sth; if ( $arr{grade} ) { $sth = $dbh1->prepare("select * from studentwd where grade = ? order by grade, lastname, firstname"); $sth->execute( $arr{grade} ); } else { # all students $sth = $dbh1->prepare("select * from studentwd order by lastname, firstname"); $sth->execute; } print qq{

$lex{School} $schoolname

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

$lex{Select} $lex{Withdrawn} $lex{Students}

\n}; print qq{\n}; print qq{\n}; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ) { my %rec = (); %rec = %$ref; print qq{\n}; print qq{\n}; } print qq{\n}; print qq{
$lex{Students}$lex{Grade}$lex{Birthdate}
}; print qq{}; print qq{$rec{lastname}, $rec{firstname} ($rec{studnum})$rec{grade}$rec{birthdate}
}; print qq{
\n}; print qq{
\n}; print qq{\n}; exit; } # end of selectStudents #---------------- sub enrolStudents { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $date = $arr{date}; delete $arr{date}; my $description = $arr{description}; delete $arr{description}; my $dbase = $arr{dbase}; delete $arr{dbase}; my $entrytype = $arr{entrytype}; delete $arr{entrytype}; # Now only student numbers left in %arr. One approach. # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Loop through all students to enrol foreach my $remotestudnum ( keys %arr ) { # Open the remote database and get the students. my $db = $dbase; my $dsn1 = "DBI:$dbtype:dbname=$db"; my $dbh1 = DBI->connect($dsn1,$guser,$gpassword); # Remote school database my $sth1 = $dbh1->prepare("select * from studentwd where studnum = ?"); # Check for duplicate student number $sth = $dbh->prepare("select count(*) from student where studnum = ?"); # check for duplicate student name and dob $sth2 = $dbh->prepare("select count(*) from studentall where lastname = ? and firstname = ? and birthdate = ?"); # Load the remote record into a hash. $sth1->execute( $remotestudnum ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr \n"; } my $ref = $sth1->fetchrow_hashref; my %rec = %$ref; # Check for an existing student with same name and birthdate. $sth2->execute( $rec{lastname},$rec{firstname},$rec{birthdate} ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr \n"; } my $dupcount = $sth2->fetchrow; if ( $dupcount ) { print qq{

Student already exists in this school:}; print qq{$rec{lastname},$rec{firstname} ($rec{birthdate})
\n}; print qq{Skipping!

\n}; next; # student } ## # print qq{Student Record:
\n}; # foreach my $id ( sort keys %rec ) { print qq{K:$id V:$rec{$id}
\n}; } ## delete $rec{studid}; delete $rec{graddate}; if ( $rec{birthdate} eq '0000-00-00' ) { delete $rec{birthdate}; } # Get next Student number and update file. sysopen (SNUM, "../../etc/studentnumber", O_RDWR | O_CREAT) or die "$lex{'Cannot open'} student number file\n"; flock(SNUM,LOCK_EX); $studentnum = || 0; chomp $studentnum; seek(SNUM,0,0) or die "Cannot rewind student number file: $!\n"; truncate(SNUM,0) or die "Cannot truncate student number file'}: $!\n"; my $done = 0; while ( not $done ) { # Duplicate Check $sth->execute( $studentnum ); if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; } my $count = $sth->fetchrow; if ( $count > 0 ) { print qq{
$lex{'Duplicate Check'} $studentnum
\n}; $studentnum++; # try next number } else { $done = 1; } } # Write next available student number into the file $newstudentnum = $studentnum + 1; print SNUM $newstudentnum or die "Cannot write to student number file:$!\n"; close SNUM or die "Cannot close student number file:$!\n"; print qq{New Student Number:$studentnum
\n}; $rec{studnum} = $studentnum; # Create array called "@fields" storing fieldid values. my @fields = (); $sth2 = $dbh->prepare("select fieldid from meta where tableid = 'student' order by arrayidx"); $sth2->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} while (my $fld = $sth2->fetchrow){ push @fields,$fld; } # Add a Password ... my $password = word( $g_studentpwd_minlen, $g_studentpwd_maxlen, $g_studentpwd_lang, $g_studentpwd_signs, $g_studentpwd_caps, $g_studentpwd_minfreq, $g_studentpwd_avgfreq ); $rec{password} = $password; # Now run through @fields array and populate arrays. my @values = (); my @fieldnames = (); foreach my $fld ( @fields ) { if ( $rec{$fld} ) { # if matching hash value exists, use it. push @fieldnames, $fld; push @values, $dbh->quote( $rec{$fld} ); } } my $fields = join(',', @fieldnames ); my $values = join(',', @values ); # print qq{Insert Fields: $fields
Values: $values
\n}; my $sth = $dbh->prepare("insert into student ( $fields ) values( $values )"); $sth->execute; if ($DBI::errstr){ print qq{$lex{Error}: $DBI::errstr; $!\n}; die $DBI::errstr; } # Add Transfer Record my $sth = $dbh->prepare("insert into transfer ( studnum, date, type, description, entrytype, lastname, firstname, middlename, birthdate, provnum ) values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )"); $sth->execute( $rec{studnum}, $date, 'enrol', $description, $entrytype, $rec{lastname}, $rec{firstname}, $rec{initial}, $rec{birthdate}, $rec{provnum} ); if ($DBI::errstr) { print qq{$DBI::errstr\n}; die $DBI::errstr; } } # end of loop to add student records if ( not $DBI::errstr ) { print qq{

$lex{'Record(s) Stored'}

\n}; } else { print qq{

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

\n}; } print qq{

[ $title |\n}; print qq{ $lex{Main} | \n}; print qq{ $lex{Eoy} ]

\n}; print qq{\n}; exit; } # end of enrolStudents #---------------- sub showStartPage { #---------------- # Get current date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = "$year-$month-$day"; print qq{
\n}; print qq{\n}; print qq{\n}; # Password print qq{\n}; print qq{\n}; # School Database print qq{\n}; print qq{\n}; # Student Grade print qq{\n}; print qq{\n}; # Enrol Date print qq{\n\n}; # Enrol Reason print qq{\n}; print qq{\n}; # Enrolment Description print qq{\n\n}; print qq{\n}; print qq{
$lex{Password}
$lex{School}
$lex{Withdrawn} $lex{Student} $lex{Grade} $lex{'Blank=All'}
$lex{Enrol} $lex{Date}}; print qq{\n}; print qq{\n}; print qq{
$lex{Enrol} $lex{Reason}
$lex{Enrol} $lex{Description}}; print qq{
}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage