#!/usr/bin/perl
# Copyright 2001-2022 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',
'Export' => 'Export',
'View Student Pictures' => 'View Student Pictures',
'No Pictures Found' => 'No Pictures Found',
'Cannot open folder' => 'Cannot open folder',
'Page' => 'Page',
'View' => 'View',
'Large' => 'Large',
'Small' => 'Small',
'Pics/Page' => 'Pics/Page',
'QuickPage' => 'QuickPage',
'Error' => 'Error',
);
my $self = 'imageview.pl';
use CGI;
use DBI;
my $picsPerPage = 50; # default value
my $tempimage = "temp$$.jpg";
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@ \n";
die $lex{Error}. ": $@\n";
}
my $q = new CGI;
my %arr= $q->Vars;
print $q->header( -charset, $charset );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Select Viewing Directory.
if ($arr{size} eq $lex{Large} ){
$viewdirurl = $picdirurl;
$viewdir = $picdir;
} else {
$arr{size} = $lex{Small}; # set for passed values
$viewdirurl = $tndirurl;
$viewdir = $tndir;
}
my $title = $lex{'View Student Pictures'};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{
\n};
# Read Files in picture folder
opendir (DH,"$viewdir") || die $lex{'Cannot open folder'}. " $viewdir $!\n";
my @files = grep !/^\./, readdir DH;
close DH;
if ( not @files ) {
print qq{
$lex{'No Pictures Found'}
\n};
exit;
} else {
@files = sort {$a <=> $b} @files;
$filecount = scalar @files + 1;
# $filecount++; # actual # of files
if ($arr{ppp} > 0 ){ $picsPerPage = $arr{ppp};}
$pagecount = int($filecount / $picsPerPage);
if (($filecount / $picsPerPage) > $pagecount){ # if any remainder, increment count.
$pagecount++;
}
}
doNavigation();
if ( $arr{del} ){
doDelete( $arr{del} );
}
if ( not $arr{page} ) { $arr{page} = 1;}
print qq{
$lex{Page} $arr{page}
\n};
# Calculate pictures to show
my $picend = $arr{page} * $picsPerPage - 1;
my $picstart = $picend - ($picsPerPage - 1);
#print qq{PPP: $picsPerPage PG: $arr{page} ST: $picstart END: $picend \n};
# Find Name
$sth = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
for( $picstart.. $picend ){
my $file = $files[$_];
if (not $file){ next;} # nothing to display;
my ($studnum,$ext) = split /\./,$file;
$sth->execute($studnum);
if ($DBI::errstr){print $DBI::errstr; die $DBI::errstr;}
my ($lastname,$firstname) = $sth->fetchrow;
if (not $lastname){ $lastname = " ";}
#print qq{LN: $lastname FN: $firstname SN: $studnum \n};
print qq{