Log Message:
-----------
modified the way we attempt to find out the referring page.
Modified Files:
--------------
webwork-modperl/lib/WeBWorK:
ContentGenerator.pm
Revision Data
-------------
Index: ContentGenerator.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/ContentGenerator.pm,v
retrieving revision 1.130
retrieving revision 1.131
diff -Llib/WeBWorK/ContentGenerator.pm -Llib/WeBWorK/ContentGenerator.pm -u -r1.130 -r1.131
--- lib/WeBWorK/ContentGenerator.pm
+++ lib/WeBWorK/ContentGenerator.pm
@@ -1504,7 +1504,7 @@
my $user = $r->param("user");
$r->param(user => $user);
@values = ($user);
- warn "requesting page is ", $r->headers_in('Referer');
+ warn "requesting page is ", $r->headers_in->{'Referer'};
warn "Parameters are ", join("|",$r->param());
}
|
