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);
}
'';
}
|
