#!/usr/bin/perl # Copyright 2001-2022 Leslie Richardson # This file is part of Open Admin for Schools. # rptStudPwd.pl - Report Web Student Passwords, local student numbers my $self = qq{rptStudPwd.pl}; my %lex = ('View/Print Student Passwords' => 'View/Print Student Passwords', 'Main' => 'Main', 'GB Main' => 'GB Main', 'Report Menu' => 'Report Menu', 'Grade' => 'Grade', 'Error' => 'Error', 'Select' => 'Select', 'Grades' => 'Grades', 'Homeroom' => 'Homeroom', 'Continue' => 'Continue', ); 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 ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $iddst) = localtime(time); $year = $year + 1900; $mon++; $wday++; $currdate = "$dow[$wday], $month[$mon] $mday, $year"; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $title = $lex{'View/Print Student Passwords'}; print qq{$doctype\n$title \n}; print qq{[ $lex{Main} |\n}; print qq{$lex{'GB Main'} |\n}; print qq{$lex{'Report Menu'} ]\n}; print qq{

$title

}; print qq{

Printed Large for cutting apart. }; print qq{Allow Students/Parent access to the separate Student/Parent site }; print qq{to see their gradebook marks (if allowed), report card and attendance

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; printReport(); } #---------------- sub showStartPage { #---------------- my $sth = $dbh->prepare("select distinct grade from student where grade is not NULL and grade != ''"); $sth->execute; my @grades; while ( my $gr = $sth->fetchrow ) { push @grades, $gr; } @grades = sort { $a <=> $b } @grades; my $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != ''"); $sth->execute; my @hroom; while ( my $hr = $sth->fetchrow ) { push @hroom, $hr; } @hroom = sort @hroom; # Select Homerooms / Grades to print print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; foreach my $grade ( sort {$a <=> $b} @grades ) { print qq{\n}; } # Homerooms print qq{\n}; foreach my $hr ( sort {$a <=> $b} @hroom ) { print qq{\n}; } print qq{\n}; print qq{
$lex{Select} $lex{Grades}
$grade
and/or $lex{Homerooms}
$hr
\n}; print qq{\n}; exit; } # end of showStartPage #-------------- sub printReport { #-------------- # foreach my $key ( sort keys %arr ) { print qq{
K:$key V:$arr{$key}
\n}; } print qq{\n}; my (@homerooms, @grades); foreach my $key ( keys %arr ) { my ($type,$val) = split(':', $key); if ( $type eq 'H' ) { push @homerooms, $val; } elsif ( $type eq 'G' ) { push @grades, $val; } } if ( @grades ) { my $type = 'Grade'; my $sortorder = 'lastname, firstname'; my $sth = $dbh->prepare("select lastname, firstname, studnum, grade, homeroom, password from student where grade = ? order by $sortorder"); foreach my $grade ( sort {$a <=> $b} @grades ) { $sth->execute($grade); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{}; print qq{\n}; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ){ my %r = %$ref; print qq{}; print qq{\n}; } print qq{
$lex{Grade} $grade
NameStud #Password
$r{lastname}, $r{firstname}$r{studnum}$r{password}
\n}; } # end of grades } else { # homeroom my $type = 'Homeroom'; my $sortorder = 'lastname, firstname'; my $sth = $dbh->prepare("select lastname, firstname, studnum, grade, homeroom, password from student where homeroom = ? order by $sortorder"); foreach my $hr ( sort {$a <=> $b} @homerooms ) { $sth->execute($hr); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{}; print qq{\n}; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ){ my %r = %$ref; print qq{}; print qq{\n}; } print qq{
$lex{Homeroom} $hr
NameStud #Password
$r{lastname}, $r{firstname}$r{studnum}$r{password}
\n}; } } # end of homerooms print qq{\n}; exit; } # end of printReport