#!/usr/bin/perl # Copyright 2001-2022 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Weight by Item' => 'Weight by Item', 'GB Main' => 'GB Main', 'Weight by Group' => 'Weight by Group', 'Please Log In' => 'Please Log In', 'Name' => 'Name', 'Date' => 'Date', 'Group' => 'Group', 'Weight' => 'Weight', 'Update Weights' => 'Update Weights', 'Group Weight' => 'Group Weight', 'Percent' => 'Percent', 'C = custom weight set by direct edit' => 'C = custom weight set by direct edit', 'Error' => 'Error', ); my $self = 'weightadj.pl'; # script to adjust test weighting use DBI; use CGI; use CGI::Session; use Number::Format qw{ round }; my $q = new CGI; my %arr = $q->Vars; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@
\n"; } eval require "../../etc/gbook.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@
\n"; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; # Get Session Information... my $session = new CGI::Session("driver:mysql;serializer:FreezeThaw", undef,{Handle => $dbh}) or die CGI::Session->errstr; my $logged_in = $session->param(logged_in); if (not $logged_in){ print $q->header( -charset, $charset ); print qq{[ $lex{'GB Main'} ]\n}; print qq{

$lex{'Please Log In'}

\n}; print qq{\n}; exit; } my $subjsec = $session->param('subjsec'); print $q->header( -charset, $charset ); # build a hash to map a weight number -> multiplier value (ie. 500 -> 5, 750 -> 6) my %weightToMult; foreach my $key (keys %wtmult) { # %wtmult from gbook.conf file my $value = round( $wtmult{$key} * $defaultItemWeight, 0); $weightToMult{$value} = $key; } #foreach my $key (keys %weightToMult) { print "K:$key V:$weightToMult{$key}
\n"; } # Get Totals for Weights and setup weight hash. my $sth = $dbh->prepare("select id, weight from gbtest where subjsec = ? "); $sth->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $totalweight; while ( my ($id,$wt) = $sth->fetchrow ) { $totalweight += $wt; $weight{$id} = $wt; } # Write out updates if ($arr{update}) { delete $arr{update}; weightupdate(); } # Now get group weights my $sth = $dbh->prepare("select distinct grp, sum(weight) from gbtest where subjsec = ? group by grp"); $sth->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while (my ($grp, $wt) = $sth->fetchrow) { $grpweight{$grp} = $wt; } # Get name of course $sth = $dbh->prepare("select description from subject where subjsec = ?"); $sth->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $course = $sth->fetchrow; # select item values $sth = $dbh->prepare("select id, name, description, tdate, weight, grp from gbtest where subjsec = ? and name != 'sortorder' order by grp,tdate"); $sth->execute( $subjsec ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } # Print Page head my $title = qq{$lex{'Weight by Item'} - $course}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n}; print qq{[ $lex{'GB Main'} | \n}; print qq{$lex{'Weight by Group'} ]\n}; print qq{

$title

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; my $grpcolor = -1; my $group; my $groupweight; # Loop over all test items while ( my ( $id, $name, $desc, $tdate, $weight, $grp ) = $sth->fetchrow ){ if ($group ne $grp){ $grpcolor++; if (5 == 4) { #$group){ # Avoids an empty row at top. if (not $totalweight){ $grouppercent = "0.0%";} else { $grouppercent = round($groupweight / $totalweight * 100, 1); } print qq{}; print qq{}; print qq{\n}; } $groupweight = 0; $group = $grp; } $groupweight += $weight; my $percent; if ($grpweight{$grp}) { $percent = round( $weight / $grpweight{$grp} * 100, 1); } else { $percent = '0.0'; } print qq{\n}; print qq{\n}; # print the select box or else an entry box. if ( $useMultipliers ) { # we have a weight value my $key = $weightToMult{$weight}; # key will be a number 1-9; an index. print qq{\n}; } else { print qq{\n}; } } # End of test loop. print qq{}; print qq{\n}; print qq{
$lex{Name}$lex{Date}$lex{Group}$lex{Percent}
Within Grp		$lex{Weight}
Within Grp
$lex{'Group Weight'} - $group$groupweight ($grouppercent%)
$name ($desc)$tdate$grp$percent%
}; print qq{
\n}; print qq{\n}; #--------------- sub weightupdate { #--------------- # foreach my $key (keys %arr) { print qq{K: $key V: $arr{$key}
\n}; } # passed: record id => weight value; my $sth = $dbh->prepare("update gbtest set weight = ? where id = ?"); foreach my $id (keys %arr) { # id is the record id of the test. my $weight = $arr{$id}; $sth->execute( $weight, $id ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } # reset total # $totalweight = 0; # foreach my $wt (values %weight) { $totalweight += $wt;} # reload grpweight values # $sth = $dbh->prepare("select distinct grp, sum(weight) from gbtest # where subjsec = ? group by grp"); # $sth->execute($subjsec); # if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } # while (my ($grp, $wt) = $sth->fetchrow) { # $grpweight{$grp} = $wt; # } print qq{

Weights Updated!

\n}; return; }