[WWcvs] pg: Fixed the not_null bug? perhaps.

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Fixed the   not_null bug?  perhaps.  Insure that the Exporter 'import' subroutine is available
in the BEGIN statement of PGcore

Modified Files:
--------------
    pg/lib:
        PGcore.pm
        PGresponsegroup.pm

Revision Data
-------------
Index: PGcore.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/PGcore.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -Llib/PGcore.pm -Llib/PGcore.pm -u -r1.5 -r1.6
--- lib/PGcore.pm
+++ lib/PGcore.pm
@@ -17,12 +17,12 @@
 
 use strict;
 BEGIN {
-	use Exporter;
+	use Exporter 'import';
 	our @EXPORT_OK = qw(not_null);
 }
 our $internal_debug_messages = [];
 
-our @ISA = qw(Exporter);
+
 use PGanswergroup;
 use PGresponsegroup;
 use PGrandom;
Index: PGresponsegroup.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/PGresponsegroup.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -Llib/PGresponsegroup.pm -Llib/PGresponsegroup.pm -u -r1.2 -r1.3
--- lib/PGresponsegroup.pm
+++ lib/PGresponsegroup.pm
@@ -159,7 +159,7 @@
 	if ( ! not_null ($self->{answergroup_label}) ) { #if $answergroup is not yet defined
 		$self->{answergroup_label} = ${$self->{response_order}}[0];
 	}
-	if ( not_null ($self->{answergroup_label}) ) { #if $answergroup is not yet defined
+	if ( not_null ($self->{answergroup_label}) ) { #if $answergroup is now defined
 		return $self->{answergroup_label};
 	} else {
 		warn "This answer group has no labeled responses.";