Menu
▾
▴
[WWcvs] webwork2: beginnings of lightweight problem renderer
|
From: Sam H. v. a. <we...@ma...> - 2008-04-29 19:42:51
|
Log Message:
-----------
beginnings of lightweight problem renderer
Modified Files:
--------------
webwork2/lib/WeBWorK:
URLPath.pm
Added Files:
-----------
webwork2/lib/WeBWorK/ContentGenerator:
ProblemRenderer.pm
Revision Data
-------------
Index: URLPath.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/URLPath.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -Llib/WeBWorK/URLPath.pm -Llib/WeBWorK/URLPath.pm -u -r1.35 -r1.36
--- lib/WeBWorK/URLPath.pm
+++ lib/WeBWorK/URLPath.pm
@@ -58,6 +58,7 @@
logout /$courseID/logout/
options /$courseID/options/
#test /$courseID/test/
+ #render /$courseID/render/
instructor_tools /$courseID/instructor/
@@ -240,6 +241,15 @@
# produce => 'test/',
# display => 'WeBWorK::ContentGenerator::Test',
#},
+ #render => {
+ # name => 'Render',
+ # parent => 'set_list',
+ # kids => [ qw// ],
+ # match => qr|^render/|,
+ # capture => [ qw// ],
+ # produce => 'render/',
+ # display => 'WeBWorK::ContentGenerator::ProblemRenderer',
+ #},
################################################################################
--- /dev/null
+++ lib/WeBWorK/ContentGenerator/ProblemRenderer.pm
@@ -0,0 +1,85 @@
+################################################################################
+# WeBWorK Online Homework Delivery System
+# Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/
+# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/ProblemRenderer.pm,v 1.1 2008/04/29 19:27:34 sh002i Exp $
+#
+# This program is free software; you can redistribute it and/or modify it under
+# the terms of either: (a) the GNU General Public License as published by the
+# Free Software Foundation; either version 2, or (at your option) any later
+# version, or (b) the "Artistic License" which comes with this package.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the
+# Artistic License for more details.
+################################################################################
+
+package WeBWorK::ContentGenerator::ProblemRenderer;
+use base qw(WeBWorK::ContentGenerator);
+
+=head1 NAME
+
+WeBWorK::ContentGenerator::ProblemRenderer - render a problem with a minimal
+amount of UI garbage.
+
+=cut
+
+use strict;
+use warnings;
+use WeBWorK::CGI;
+use WeBWorK::Utils::Tasks qw(renderProblems);
+
+sub pre_header_initialize {
+ my ($self) = @_;
+ my $r = $self->r;
+
+ my $pg = $r->param('pg');
+ my $file = $r->param('file');
+ my $seed = $r->param('seed');
+ my $mode = $r->param('mode');
+ my $hint = $r->param('hint');
+ my $sol = $r->param('sol');
+
+ die "must specify either a PG problems (param 'pg') or a path to a PG file (param 'file') and not both"
+ unless defined $pg and length $pg xor defined $file and length $file;
+
+ my $problem = $self->get_problem($pg, $file);
+ my @options = (r=>$r, problem_list=>[\$pg]);
+
+ #push @options, (problem_seed=>$seed) if defined $seed;
+ #push @options, (displayMode=>$mode) if defined $mode;
+ #push @options, (showHints=>$hint) if defined $hint;
+ #push @options, (showSolutions=>$sol) if defined $sol;
+
+ ($self->{result}) = renderProblems(@options);
+}
+
+sub get_problem {
+ my ($self, $pg, $file) = @_;
+
+ if (defined $pg) {
+ return \$pg;
+ } else {
+ return $file;
+ }
+}
+
+use Data::Dumper;
+sub content {
+ my ($self) = @_;
+ my $result = $self->{result};
+ my $dump = Dumper($result);
+
+ print <<EOF;
+<html>
+<head>
+<title>Yuck!</title>
+</head>
+<body>
+<pre>$dump</pre>
+</body>
+</html>
+EOF
+}
+
+1;
|
