#!/usr/bin/perl # Copyright Les Richardson 2001-2019 # This file is part of Open Administration for Schools. Released under GPL Licensing. my %lex = ('Reset' => 'Reset', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Continue' => 'Continue', 'Fields' => 'Fields', 'Field' => 'Field', 'Type' => 'Type', 'Enter Values' => 'Enter Values', 'Select from List' => 'Select from List', 'No Field Selected' => 'No Field Selected', 'Field Fill' => 'Field Fill', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Student Group' => 'Student Group', 'Separate with Spaces' => 'Separate with Spaces', 'Blank=All' => 'Blank=All', 'Student' => 'Student', 'Contact' => 'Contact', 'Error' => 'Error', 'Record(s) Updated' => 'Record(s) Updated', 'Blank' => 'Blank', 'Students' => 'Students', 'Current' => 'Current', 'Withdrawn' => 'Withdrawn', 'Update' => 'Update', 'Select' => 'Select', ); my $self = 'resetaddress.pl'; my $maxTypeCount = 30; # don't allow more than $maxTypeCount different types in a selection list my %disallow = qw(studid 1 grade 1 homeroom 1 medical 1 utag 1 owing 1 studnum 1 entry 1); # double since a HASH. 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); # Show top of page. my $title = qq{$lex{Reset}/Fill $lex{Student} Address}; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} | \n}; print qq{Export ]\n}; print qq{

$title

\n}; # Select what to do. if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectChanges(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeChanges(); } #---------------- sub showStartPage { #---------------- # Start the form. print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Address 1 print qq{\n}; # City 1 print qq{\n}; # Postal Code print qq{\n}; # Blank Fill? print qq{\n}; my @grades; my $sth = $dbh->prepare("select distinct grade from student where grade is not NULL and grade != ''"); $sth->execute; if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $grade = $sth->fetchrow ) { push @grades, $grade; } # Grade print qq{\n}; # Continue print qq{
Blank Fill FieldFill Value
Address 1\n}; print qq{
City 1\n}; print qq{
Postal Code 1\n}; print qq{
Blank Fill?\n}; print qq{
Select Grade\n}; print qq{
\n}; print qq{\n}; print qq{
\n}; exit; } # end of showStartPage #---------------- sub selectChanges { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $tableview = "

$lex{Current} $lex{Students}

\n"; my $grade = $arr{grade}; delete $arr{grade}; if ( not $grade ) { print qq{

Error: No Grade Selected!

\n}; print qq{\n}; exit; } $sth = $dbh->prepare("select studnum from student where grade = ? order by lastname, firstname"); $sth->execute( $grade ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } while ( my $studnum = $sth->fetchrow ) { push @students, $studnum; } $sth = $dbh->prepare("select * from student where studnum = ?"); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } # print which students we're viewing print $tableview, "\n"; # Start the Form... print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; # Loop through students foreach my $studnum ( @students ) { # Get Student Info $sth->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; my $studid = $r{studid}; # If no field in current record, and we have default fill set, then put it in... if ( $arr{blankfill} ) { if ( not $r{address1} ) { $r{address1} = $arr{address1}; } if ( not $r{city1} ) { $r{city1} = $arr{city1}; } if ( not $r{pcode1} ) { $r{pcode1} = $arr{pcode1}; } if ( not $r{prov1} ) { $r{prov1} = 'SK'; } } # Print Main Fields print qq{}; print qq{\n}; # Address 1 print qq{\n}; # City 1 print qq{\n}; # Province print qq{\n}; # Postal Code 1 print qq{\n}; print qq{\n}; } # End of Student Loop print qq{
$lex{Student}$lex{Grade}/$lex{Homeroom}Address 1City 1Prov 1Postal Code 1
$r{lastname}, $r{firstname} ($r{studnum})$r{grade} / $r{homeroom}
\n}; print qq{
\n}; exit; } # end of selectChanges #--------------- sub writeChanges { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } foreach my $key ( sort keys %arr ) { my ($id, $fld ) = split(':', $key); my $sth = $dbh->prepare("update student set $fld = ? where studid = ?"); $sth->execute( $arr{$key}, $id ); print qq{ID:$id FIELD:$fld VALUE:$arr{$key}
\n}; if ($DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } } print qq{

$lex{'Record(s) Updated'}

}; print qq{\n}; exit; } # end of writeChanges