View of /trunk/webwork2/lib/WeBWorK/ContentGenerator/Test.pm

    1 ################################################################################
    2 # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
    3 # $Id$
    4 ################################################################################
    5 
    6 package WeBWorK::ContentGenerator::Test;
    7 use base qw(WeBWorK::ContentGenerator);
    8 
    9 =head1 NAME
   10 
   11 WeBWorK::ContentGenerator::Test - display debugging information.
   12 
   13 =cut
   14 
   15 use strict;
   16 use warnings;
   17 use CGI qw();
   18 use WeBWorK::Form;
   19 use WeBWorK::Utils qw(ref2string);
   20 
   21 sub initialize {
   22   my $self = shift;
   23 }
   24 
   25 sub path {
   26   my $self = shift;
   27   my $args = $_[-1];
   28   return $self->pathMacro($args, Home => "../", Test => "");
   29 }
   30 
   31 sub siblings {
   32   my $self = shift;
   33   return $self->siblingsMacro(Test2 => "blah/", "Test Three" => "spoo");
   34 }
   35 
   36 sub nav {
   37   my $self = shift;
   38   my $args = $_[-1];
   39   return $self->navMacro($args, "", TestMinus1 => "-1/", TestPlusOne => "+1/");
   40 }
   41 
   42 sub title {
   43   return "Welcome to Hell";
   44 }
   45 
   46 sub body {
   47   my $self = shift;
   48   my $formFields = WeBWorK::Form->new_from_paramable($self->{r});
   49   my $courseEnvironment = $self->{ce};
   50   return
   51     CGI::h2("URL Authentication Arguments"), CGI::p($self->url_authen_args()),
   52     CGI::h2("Form Fields"), ref2string($formFields),
   53     CGI::h2("Course Environment"), ref2string($courseEnvironment),
   54 }
   55 
   56 1;