[LON-CAPA-cvs] cvs: modules /jerf/tests ApacheRequest.pm

[bowersj2]

bowersj2		Wed Jul  2 16:29:04 2003 EDT

  Modified files:              
    /modules/jerf/tests	ApacheRequest.pm 
  Log:
  Add log_reason method.
  
  
Index: modules/jerf/tests/ApacheRequest.pm
diff -u modules/jerf/tests/ApacheRequest.pm:1.8 modules/jerf/tests/ApacheRequest.pm:1.9
--- modules/jerf/tests/ApacheRequest.pm:1.8	Tue Jul  1 16:20:16 2003
+++ modules/jerf/tests/ApacheRequest.pm	Wed Jul  2 16:29:04 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Apache Request Simulator
 #
-# $Id: ApacheRequest.pm,v 1.8 2003/07/01 20:20:16 bowersj2 Exp $
+# $Id: ApacheRequest.pm,v 1.9 2003/07/02 20:29:04 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -522,6 +522,17 @@
 
 =pod
 
+=item * I<log_reason>(): Current prints the message, and ignores the file.
+
+=cut
+
+sub log_reason {
+    my $self = shift;
+    print shift;
+}
+
+=pod
+
 =back
 
 =cut
@@ -586,7 +597,7 @@
 
     # Replace the ENV
     die $@ if $@;
-    return;
+    return $self->{return_value};
 }
 
 # Private methods: Load and unload the environment.