File Coverage

blib/lib/Labyrinth/Plugin/Survey/Course.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Labyrinth::Plugin::Survey::Course;

use warnings;
use strict;

use vars qw($VERSION);
$VERSION = '0.08';

=head1 NAME

Labyrinth::Plugin::Survey::Course - YAPC Surveys' Course management plugin for Labyrinth framework

=head1 DESCRIPTION

Provides all the course evaluation survey handling functionality for YAPC Surveys.

=cut

# -------------------------------------
# Library Modules

use base qw(Labyrinth::Plugin::Survey);

use Labyrinth::Audit;
use Labyrinth::DBUtils;
use Labyrinth::DTUtils;
use Labyrinth::MLUtils;
use Labyrinth::Support;
use Labyrinth::Users;
use Labyrinth::Variables;

# -------------------------------------
# The Subs

=head1 PUBLIC INTERFACE METHODS

=over 4

=item Check

Checks whether the user has signed in, if they have, have they already
submitted a response to this course evaluation survey?

If not, then load the evaluation questions.

=item Save

Saves the question responses from the given course evaluation.

=back

=cut

sub Check {
    my $self = shift;

	unless($tvars{loggedin}) {
		LogDebug("CourseCheck: user session timed out");
		$tvars{errcode} = 'FAIL';
		return;
    }

    unless($cgiparams{courseid}) {
		LogDebug("CourseCheck: missing courseid");
		$tvars{errcode} = 'FAIL';
		return;
	}

    my @rows = $dbi->GetQuery('hash','CourseCheck',$cgiparams{courseid},$tvars{loginid});
    unless(@rows) {
        # force failure
        LogDebug("CourseCheck: course look up failed");
        $tvars{errcode} = 'FAIL';
        return;
    }

   	$tvars{course}{tutor}   = $self->TutorFixes($rows[0]->{tutor});
   	$tvars{course}{title}   = $self->CourseFixes($rows[0]->{course});

    if($rows[0]->{userid} != $tvars{loginid}) {
        # force failure
        LogDebug("CourseCheck: userid look up failed");
        $tvars{errcode} = 'FAIL';
        return;
    }

  	$tvars{data}{userid}    = $rows[0]->{userid};
   	$tvars{data}{courseid}  = $cgiparams{courseid};
   	$tvars{data}{submitted} = 1	if($rows[0]->{completed} && $rows[0]->{completed} > 0);

    $tvars{survey} = $self->LoadSurvey($settings{'evaluate'});
}

sub Save {
    return  if($tvars{data}->{submitted});

    my $self = shift;

    # reload survey with valid inputs
    $tvars{survey} = $self->LoadSurvey($settings{'evaluate'});
    return  unless($tvars{survey});

    my ($all,$man,$collate,$qu) = $self->AnalyseSurvey();

    # ensure we have a valid survey
	return	if FieldCheck($all,$man);

	# now save the survey results
    my $taken = 0;
    my $idcode = $self->CreateID();
    for my $name (@$all) {
        my $c = $idcode    if($collate->{$name});

        if($qu->{$name}{tag}) {
            if($cgiparams{$name}) {
                $cgiparams{$name} = sprintf "%s <%s>", $tvars{user}{name}, $tvars{user}{email};
            }
        }

	    $dbi->DoQuery('SaveEvaluation',$cgiparams{courseid},$name,$cgiparams{$name},$c)   if($cgiparams{$name});
        $taken = 1;
    }

    if($taken) {
        my $completed = $self->CreateID();
        $dbi->DoQuery('SaveEvaluationIndex',$completed,$cgiparams{courseid},$tvars{loginid});
        $tvars{data}->{thanks} = 1;
    } else {
        $tvars{data}->{thanks} = 2;
    }
}

1;

__END__