Menu
▾
▴
[WWcvs] webwork-modperl: Mainly improvements for problem library version 2.
|
From: jj v. a. <we...@ma...> - 2005-07-27 16:29:21
|
Log Message:
-----------
Mainly improvements for problem library version 2. Also removed comments
and added "Edit it" link back in for library problems. These were not the
only read-only problems in a course, and being able to Edit it, and then
save as is pretty useful.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor:
SetMaker.pm
Revision Data
-------------
Index: SetMaker.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -Llib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm -Llib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm -u -r1.42 -r1.43
--- lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm
@@ -464,10 +464,15 @@
my $r = $self->r;
my $ce = $r->ce;
+ my $default_subj = "All Subjects";
my $default_chap = "All Chapters";
my $default_sect = "All Sections";
- my @chaps = WeBWorK::Utils::ListingDB::getAllDBchapters($ce);
+ my @subjs = WeBWorK::Utils::ListingDB::getAllDBsubjects($ce);
+ unshift @subjs, $default_subj;
+ my $subject_selected = $r->param('library_subjects') || $default_subj;
+
+ my @chaps = WeBWorK::Utils::ListingDB::getAllDBchapters($ce, $subject_selected);
unshift @chaps, $default_chap;
my $chapter_selected = $r->param('library_chapters') || $default_chap;
@@ -482,6 +487,14 @@
print CGI::Tr(CGI::td({-class=>"InfoPanel", -align=>"left"},
CGI::start_table(),
CGI::Tr(
+ CGI::td(["Subject:",
+ CGI::popup_menu(-name=> 'library_subjects',
+ -values=>\@subjs,
+ -default=> $subject_selected,
+ -onchange=>"submit();return true"
+ ),
+ CGI::submit(-name=>"lib_select_subject", -value=>"Update Chapter List")])),
+ CGI::Tr(
CGI::td(["Chapter:",
CGI::popup_menu(-name=> 'library_chapters',
-values=>\@chaps,
@@ -656,18 +669,15 @@
: CGI::div({class=>"RenderSolo"}, $pg->{body_text});
- my $edit_link = '';
#if($self->{r}->param('browse_which') ne 'browse_library') {
my $problem_seed = $self->{r}->param('problem_seed') || 0;
- if($sourceFileName !~ /^Library\//) {
- $edit_link = CGI::a({href=>$self->systemLink(
- $urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::PGProblemEditor",
- courseID =>$urlpath->arg("courseID"),
- setID=>"Undefined_Set",
- problemID=>"1"),
- params=>{sourceFilePath => "$sourceFileName", problemSeed=> $problem_seed}
- )}, "Edit it" );
- }
+ my $edit_link = CGI::a({href=>$self->systemLink(
+ $urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::PGProblemEditor",
+ courseID =>$urlpath->arg("courseID"),
+ setID=>"Undefined_Set",
+ problemID=>"1"),
+ params=>{sourceFilePath => "$sourceFileName", problemSeed=> $problem_seed}
+ )}, "Edit it" );
my $try_link = CGI::a({href=>$self->systemLink(
$urlpath->newFromModule("WeBWorK::ContentGenerator::Problem",
@@ -1119,90 +1129,10 @@
return "";
}
-############################################## End of Body
-
-# SKEL: To emit your own HTTP header, uncomment this:
-#
-#sub header {
-# my ($self) = @_;
-#
-# # Generate your HTTP header here.
-#
-# # If you return something, it will be used as the HTTP status code for this
-# # request. The Apache::Constants module might be useful for gerating status
-# # codes. If you don't return anything, the status code "OK" will be used.
-# return "";
-#}
-
-# SKEL: If you need to do any processing after the HTTP header is sent, but before
-# any template processing occurs, or you need to calculate values that will be
-# used in multiple methods, do it in this method:
-#
-#sub initialize {
-#my ($self) = @_;
-#}
-
-# SKEL: If you need to add tags to the document <HEAD>, uncomment this method:
-#
-#sub head {
-# my ($self) = @_;
-#
-# # You can print head tags here, like <META>, <SCRIPT>, etc.
-#
-# return "";
-#}
-
-# SKEL: To fill in the "info" box (to the right of the main body), use this
-# method:
-#
-#sub info {
-# my ($self) = @_;
-#
-# # Print HTML here.
-#
-# return "";
-#}
-
-# SKEL: To provide navigation links, use this method:
-#
-#sub nav {
-# my ($self, $args) = @_;
-#
-# # See the documentation of path() and pathMacro() in
-# # WeBWorK::ContentGenerator for more information.
-#
-# return "";
-#}
-
-# SKEL: For a little box for display options, etc., use this method:
-#
-#sub options {
-# my ($self) = @_;
-#
-# # Print HTML here.
-#
-# return "";
-#}
-
-# SKEL: For a list of sibling objects, use this method:
-#
-#sub siblings {
-# my ($self, $args) = @_;
-#
-# # See the documentation of siblings() and siblingsMacro() in
-# # WeBWorK::ContentGenerator for more information.
-# #
-# # Refer to implementations in ProblemSet and Problem.
-#
-# return "";
-#}
-
=head1 AUTHOR
Written by John Jones, jj (at) asu.edu.
=cut
-
-
1;
|
