Parent Directory
| 
Revision Log
Revision 842 - (view) (download) (as text)
| 1 : | sh002i | 455 | ################################################################################ |
| 2 : | sh002i | 494 | # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project |
| 3 : | sh002i | 455 | # $Id$ |
| 4 : | ################################################################################ | ||
| 5 : | |||
| 6 : | malsyned | 353 | package WeBWorK::ContentGenerator::Test; |
| 7 : | sh002i | 842 | use base qw(WeBWorK::ContentGenerator); |
| 8 : | malsyned | 353 | |
| 9 : | sh002i | 455 | =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 : | sh002i | 449 | sub initialize { |
| 22 : | my $self = shift; | ||
| 23 : | } | ||
| 24 : | |||
| 25 : | sh002i | 469 | 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 : | sh002i | 692 | return $self->navMacro($args, "", TestMinus1 => "-1/", TestPlusOne => "+1/"); |
| 40 : | sh002i | 469 | } |
| 41 : | |||
| 42 : | malsyned | 353 | sub title { |
| 43 : | sh002i | 439 | return "Welcome to Hell"; |
| 44 : | malsyned | 353 | } |
| 45 : | |||
| 46 : | sh002i | 439 | sub body { |
| 47 : | malsyned | 353 | my $self = shift; |
| 48 : | sh002i | 439 | my $formFields = WeBWorK::Form->new_from_paramable($self->{r}); |
| 49 : | sh002i | 809 | my $courseEnvironment = $self->{ce}; |
| 50 : | sh002i | 439 | return |
| 51 : | sh002i | 469 | 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 : | malsyned | 353 | } |
| 55 : | |||
| 56 : | 1; |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |