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.";
|
