[WWcvs] pg: regularizing calls to no_null -- something puzzling is going on here since it appears to work on some systems but not

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

Log Message:
-----------
regularizing calls to no_null   -- something puzzling is going on here
since it appears to work on some systems but not others.

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

Revision Data
-------------
Index: PGanswergroup.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/PGanswergroup.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -Llib/PGanswergroup.pm -Llib/PGanswergroup.pm -u -r1.1 -r1.2
--- lib/PGanswergroup.pm
+++ lib/PGanswergroup.pm
@@ -15,7 +15,7 @@
 ################################################################################
 package PGanswergroup;
 use Exporter;
-use PGcore qw( not_null);
+use PGcore qw(not_null);
 use PGresponsegroup;
 
 our @ISA=qw(PGcore);
Index: PGresponsegroup.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/PGresponsegroup.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -Llib/PGresponsegroup.pm -Llib/PGresponsegroup.pm -u -r1.1 -r1.2
--- lib/PGresponsegroup.pm
+++ lib/PGresponsegroup.pm
@@ -17,7 +17,7 @@
 
 use strict;
 use Exporter;
-use PGcore( qw( not_null ) );
+use PGcore  qw(not_null) ;
 use PGanswergroup;
 use Tie::IxHash;
 
@@ -68,7 +68,7 @@
 	my $self = shift;
 	my $response_label = shift;
 	my $response_value =shift;
-	if (PGcore::not_null($response_label) ) {
+	if (not_null($response_label) ) {
 		if (not exists ($self->{responses}->{$response_label}) ) {
 			push @{ $self->{response_order}} , $response_label;
 			$self->{responses}->{$response_label} = $response_value;