[WWcvs] webwork-modperl: Update to support version 2 of the ProblemLibrary.

[jj v. a. <we...@ma...>]

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 = '';