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

package WeBWorK::ContentGenerator::Test;

=head1 NAME

WeBWorK::ContentGenerator::Test - display debugging information.

=cut

use strict;
use warnings;
use base qw(WeBWorK::ContentGenerator);
use CGI qw();
use WeBWorK::Form;
use WeBWorK::Utils qw(ref2string);

sub initialize {
	my $self = shift;
}

sub path {
	my $self = shift;
	my $args = $_[-1];
	return $self->pathMacro($args, Home => "../", Test => "");
}

sub siblings {
	my $self = shift;
	return $self->siblingsMacro(Test2 => "blah/", "Test Three" => "spoo");
}

sub nav {
	my $self = shift;
	my $args = $_[-1];
	return $self->navMacro($args, "", TestMinus1 => "-1/", TestPlusOne => "+1/");
}

sub title {
	return "Welcome to Hell";
}

sub body {
	my $self = shift;
	my $formFields = WeBWorK::Form->new_from_paramable($self->{r});
	my $courseEnvironment = $self->{courseEnvironment};
	return
		CGI::h2("URL Authentication Arguments"), CGI::p($self->url_authen_args()),
		CGI::h2("Form Fields"), ref2string($formFields),
		CGI::h2("Course Environment"), ref2string($courseEnvironment),
}

1;