################################################################################
# WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
# $Id$
################################################################################

package WeBWorK::Authz;

=head1 NAME

WeBWorK::Authz - check user permissions.

=cut

use strict;
use warnings;
use WeBWorK::DB::Auth;

sub new($$$) {
	my $invocant = shift;
	my $class = ref($invocant) || $invocant;
	my $self = {};
	($self->{r}, $self->{courseEnvironment}) = @_;
	bless $self, $class;
	return $self;
}

# This currently only uses two of it's arguments, but it accepts any number, in
# case in the future calculating certain permissions requires more information.
sub hasPermissions {
	my ($self, $user, $activity) = @_;
	my $r = $self->{r};
	my $courseEnvironment = $self->{courseEnvironment};
	my $permissionLevels = $courseEnvironment->{permissionLevels};
	my $auth = WeBWorK::DB::Auth->new($courseEnvironment);
	
	my $permissionLevel = $auth->getPermissions($user);
	if (defined $permissionLevels->{$activity}
	    and $permissionLevel >= $permissionLevels->{$activity}) {
		return 1;
	} else {return 0;}
}

1;