#!/usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
# weightgrp.pl - script to adjust test weighting by group percent
# vars showWeights - from gbook.conf
my %lex = ( 'Adjust Group Weights' => 'Adjust Group Weights',
'GB Main' => 'GB Main',
'Weight by Item' => 'Weight by Item',
'Group' => 'Group',
'Weight' => 'Weight',
'Items' => 'Items',
'Update Weights' => 'Update Weights',
'Total Weight' => 'Total Weight',
'Please Log In' => 'Please Log In',
'Error' => 'Error',
'No Course' => 'No Course',
);
# Number of blank group entries to allow
my $maxEntries = 6;
my $self = 'weightgrp.pl';
use DBI;
use CGI;
use CGI::Session;
my $q = new CGI;
my %arr = $q->Vars;
delete $arr{subjsec}; # no longer needed; session based.
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;
print $q->header( -charset, $charset );
my $logged_in = $session->param(logged_in);
if ( not $logged_in ) {
print qq{[ $lex{'GB Main'} ]\n};
print qq{