Log Message:
-----------
Update to support version 2 of the ProblemLibrary.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK/Utils:
ListingDB.pm
Revision Data
-------------
Index: ListingDB.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/Utils/ListingDB.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -Llib/WeBWorK/Utils/ListingDB.pm -Llib/WeBWorK/Utils/ListingDB.pm -u -r1.4 -r1.5
--- lib/WeBWorK/Utils/ListingDB.pm
+++ lib/WeBWorK/Utils/ListingDB.pm
@@ -335,10 +335,11 @@
# if section is omitted, get all from the chapter
sub getSectionListings {
#print STDERR "ListingDB::getSectionListings(chapter,section)\n";
-
my $ce = shift;
my $chap = shift;
my $sec = shift;
+ my $version = $ce->{problemLibrary}->{version} || 1;
+ if($version == 2) { return(getDBsectionListings($ce, $chap, $sec))}
my $chapstring = '';
|
