WwScoreGetter

#!/usr/bin/perl -w
use strict;
# wwScoreGetter: get a table of score data for the appropriate WeBWorK
#    sets.  this is really a component of the ExamData system, but we
#    want to use WeBWorK calls rather than going into the WeBWorK 
#    database manually, and so have a Perl script to get the data to 
#    return to the ExamData system.
#
# the call is
#    wwScoreGetter [-c|-f filename] courseNum term [sectionNum]
# the sets that get scored and returned are all those assigned to a 
# randomly chosen student in the course.  if -c is specified, the scoring
# file is written to the scoring directory in the course; if -f filename 
# it is written to the indicated filename; otherwise, it is written to
# STDOUT
#
# we assume that courses all have names in the form
#    maXXX-XXX-XXX, e.g., ma115-001-f07, for math 105, 115, and 116, and
#    maXXX-XXX, e.g., ma215-f07, for math 215 and 216
#
# the data for the scored sets are returned as a data stream with lines
#    NO OF FIELDS ,         ,          ,           ,        ,           \
#                ,          ,          ,          ,        ,            \
#                ,        ,
#    SET NAME     ,         ,          ,           ,        ,           \
#                ,Chap1Sec1 ,Chap1Sec2 ,Chap1Sec3 ,Chap1Sec4 ,ProcEntrGW \
#                ,summary , %score
#    DUE DATE     ,         ,          ,           ,        ,           \
#                ,          ,          ,          ,        ,            \
#                ,        ,
#    PROB VALUE   ,         ,          ,           ,        ,           \
#                ,8         ,6         ,7         ,8         ,7       \
#                ,36.0    ,100.0  
#    STUDENT ID   ,login ID ,LAST NAME ,FIRST NAME ,SECTION ,RECITATION \
#               ,total      ,total     ,total     ,total     ,total   \
#               ,         ,
#    01234567     ,glarose  ,Administrator ,An     ,001     ,001        \
#               ,0.5        ,0.0       ,0.0       ,8.0       ,3.0     \
#               ,11.5     ,31.9
# these are lines (counting from 0) 1, 6, and 7- generated from the calls
# to routines in the Scoring.pm ContentGenerator.
#
my $version = '1.3';
my $lastmod = '7 Feb 2014';
#
#  (c)2014 Regents of the University of Michigan
#  This program 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 3 of the License, or
#  (at your option) any later version.
# 
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
# 
#  You should have received a copy of the GNU General Public License
#  along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
#-------------------------------------------------------------------------------
# setup variables, run script

select STDERR; $|=1;
select STDOUT; $|=1;

my $wwHome = '/var/www/webwork/webwork2';
my $wwCourseDir = "$wwHome/courses";

my $usage = 'wwScoreGetter [-c|-f filename] courseNum term [sectionNum]';

# set environment variables to allow use of WeBWorK scripts
#    to get these set correctly will probably require running this from
#    a wrapper
$ENV{WEBWORK_ROOT} = $wwHome;
$ENV{WEBWORK_DIRECTORY} = $wwHome;
$ENV{MOD_PERL_API_VERSION}=2;

use lib '/var/www/webwork/pg/lib';
use lib '/var/www/webwork/webwork2/lib';
use WeBWorK::PG::ImageGenerator;
use WeBWorK::CourseEnvironment;
use WeBWorK::DB;
use WeBWorK::ContentGenerator;
use WeBWorK::ContentGenerator::Instructor;
use WeBWorK::ContentGenerator::Instructor::Scoring;

use lib '/home/glarose/IFS-Home/Private/mich/projrepo/examdata/bin';
use setLists;

## manually define those sets that we want to score; this becomes
##    necessary because we drop the early sets in the semester
my %scoreSets = %setLists::scoreSetsCurrent;

# run script
main( @ARGV );

# suppress residual errors (why is this necessary?)
open( DN, ">/dev/null" );
*STDERR = *DN;

exit 0;

#-------------------------------------------------------------------------------
# main

sub main {
    my @argv = @_;
    my ( $cNum, $term, $sNum );

    my $writeOutput = 0;
    my $outputFile  = 0;
    my @rest = ();
    foreach ( @argv ) {

if ( $outputFile eq '-1' ) { $outputFile = $_; next; } if ( /^-c$/ ) { $writeOutput = 1; } elsif ( /^-f(.+)$/ ) { $outputFile = $1; } elsif ( /^-f$/ ) { $outputFile = -1; } elsif ( /^--/ || $_ !~ /^-/ || @rest ) { push( @rest, $_ ); }

    }
    if ( @rest >= 2 ) {

$cNum = $rest[0]; $term = lc($rest[1]); if ( @rest == 3 ) { $sNum = $rest[2]; } else { $sNum = ; }

    } else {

die("missing required input variables; $usage\n");

    }

    my $courseName;
    if ( $cNum =~ /^1../ ) {

if ( ! $sNum ) { die("missing required section number for course $cNum\n"); } $courseName = "ma$cNum-$sNum-$term";

    } else {

$courseName = "ma$cNum-$term";

    }

    # get a webwork database object
    my $ce = WeBWorK::CourseEnvironment->new( { webwork_dir => $wwHome,

courseName => $courseName } );

    my $db = WeBWorK::DB->new( $ce->{dbLayout} );

    # get a list of user objects
    my @dbUserList = $db->listUsers;
    my @users = $db->getUsers( @dbUserList );
    # we need to know permissions to see if the users are students or not
    my @perms = ( $db->getPermissionLevels( @dbUserList ) );
    my %perms = map { $_->user_id => $_->permission() } @perms;

    # and sort them by userID
    my %usersById = ();
    foreach my $user ( @users ) { 

next unless $user; $usersById{ $user->user_id } = $user;

    }
    my @sortedIDs = sort { 

lc($usersById{$a}->last_name) cmp lc($usersById{$b}->last_name) || lc($usersById{$a}->first_name) cmp lc($usersById{$b}->first_name) || lc($usersById{$a}->user_id) cmp lc($usersById{$b}->user_id) } keys %usersById;

    # we also need a list of the sets for which we want data
    my @setIDs = ();

    # if we already have a list of sets to score, we use that list
    if ( @{$scoreSets{$cNum}} ) {

@setIDs = @{$scoreSets{$cNum}};

    } else {

# otherwise, get a sample user, trying to avoid instructors, and # use the sets that are assigned to that user my $sampleUser = $users[0]; my $userIndex = 0; my $samplePerm = $db->getPermissionLevel( $sampleUser->user_id ); while ( $samplePerm->permission > 0 && $userIndex < @users-1 ) { $userIndex++; $sampleUser = $users[$userIndex]; $samplePerm = $db->getPermissionLevel( $sampleUser->user_id ); }

@setIDs = $db->listUserSets( $sampleUser->user_id );

    }

    # drop gateway sets
    @setIDs = grep { $_ !~ /GW/ } @setIDs;

    # then we want to call a bunch of methods from the Scoring module, but
    #    of course we don't have the created object.  so build a fake such
    #    object to use
    my $fr = new FakeRequest();
    $fr->db( $db );
    $fr->ce( $ce );
    my $scoringCG = WeBWorK::ContentGenerator::Instructor::Scoring->new( $fr );
    # make sure that padFields is set
    $scoringCG->{padFields} = 1;

    my @data = $scoringCG->scoreSet( $setIDs[0], "info", undef, \%usersById,

\@sortedIDs );

    foreach my $setID ( @setIDs ) {

next unless defined $setID; my @totals = $scoringCG->scoreSet( $setID, "totals", 0, \%usersById, \@sortedIDs ); $scoringCG->appendColumns( \@data, \@totals );

    }
    my @sumScores = $scoringCG->sumScores(\@data, 0, \%usersById, \@sortedIDs);
    $scoringCG->appendColumns( \@data, \@sumScores );

    # now @data is an array of the scoring data, with element in the
    #    array being one line in standard WeBWorK output.  the following
    #    (not surprisingly) rely on this format

    if ( $writeOutput ) {

my $scoringDir = "$wwCourseDir/$courseName/scoring"; my $scoringFileName = "${courseName}_totals.csv"; $scoringCG->writeCSV("$scoringDir/$scoringFileName", @data);

    } elsif ( $outputFile ) {

my $scoringDir = "."; my $scoringFileName = "$outputFile"; $scoringCG->writeCSV("$scoringDir/$scoringFileName", @data);

    } else {

# otherwise, send the data to STDOUT

my @outputLines = (); my $i = 0; foreach my $line ( @data ) { $i++; # next if ( ! ( $i-1 > 6 || $i-1 == 1 || $i-1 == 6 ) ); print join(",", map { $scoringCG->quote($_) } @$line ), "\n"; }

    }

    return 1;
}

# end main
#-------------------------------------------------------------------------------
# fake packages

package FakeRequest;
sub new {
    my $class = shift();
    my $authz = new FakeAuthz;
    return( bless( { ce => , db => , authz => $authz }, $class ) );
}
sub ce {
    my $self = shift();
    $self->{ce} = shift() if ( @_ );
    return $self->{ce};
}
sub db {
    my $self = shift();
    $self->{db} = shift() if ( @_ );
    return $self->{db};
}
sub authz {
    my $self = shift();
    $self->{authz} = shift() if ( @_ );
    return $self->{authz};
}
1;

package FakeAuthz;
sub new { 
    my $class = shift();
    return( bless( { }, $class ) );
}
sub hasPermissions {
    return 1;
}
1;

# end subroutines
#-------------------------------------------------------------------------------
# end script
#-------------------------------------------------------------------------------