From: jj v. a. <we...@ma...> - 2005-07-28 21:23:31
|
Log Message: ----------- Fixed minor glitch from problems not associated to any textbook. 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.9 retrieving revision 1.10 diff -Llib/WeBWorK/Utils/ListingDB.pm -Llib/WeBWorK/Utils/ListingDB.pm -u -r1.9 -r1.10 --- lib/WeBWorK/Utils/ListingDB.pm +++ lib/WeBWorK/Utils/ListingDB.pm @@ -85,7 +85,7 @@ $chapstring $subjstring $sectstring "; my $text_ref = $dbh->selectall_arrayref($query); my @texts = @{$text_ref}; - #@texts = grep { $_->[1] =~ /\S/ } @texts; + @texts = grep { $_->[1] =~ /\S/ } @texts; return(\@texts); } |