[WWcvs] pg: remove extraneous warning signs.

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

Log Message:
-----------
remove extraneous warning signs.

Modified Files:
--------------
    pg/lib:
        PGcore.pm
    pg/macros:
        PG.pl

Revision Data
-------------
Index: PGcore.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/PGcore.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -Llib/PGcore.pm -Llib/PGcore.pm -u -r1.1 -r1.2
--- lib/PGcore.pm
+++ lib/PGcore.pm
@@ -34,6 +34,16 @@
 # Utility macro 
 ##################################
 
+=head2  Utility Macros
+
+  not_null(item)  returns 1 or 0
+     
+     empty arrays, empty hashes, strings containing only whitespace are all NULL and return 0
+     all undefined quantities are null and return 0
+
+
+=cut
+
 sub not_null {        # empty arrays, empty hashes and strings containing only whitespace are all NULL
     my $item = shift;
 	return 0 unless defined($item);
Index: PG.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PG.pl,v
retrieving revision 1.41
retrieving revision 1.42
diff -Lmacros/PG.pl -Lmacros/PG.pl -u -r1.41 -r1.42
--- macros/PG.pl
+++ macros/PG.pl
@@ -255,7 +255,7 @@
 	if (defined ($PG->{PG_ANSWERS_HASH}->{$ans_label}) ) {
 		my $responsegroup = $PG->{PG_ANSWERS_HASH}->{$ans_label}->{response};
 		$responsegroup->extend_response($response_label, $ans_value,$selected);
-		warn "\n$responsegroup responses are now ", pretty_print($response_group);
+		#warn "\n$responsegroup responses are now ", pretty_print($response_group);
 	}
     '';
 }