[WWcvs] webwork-modperl: modified the way we attempt to find out the referring

[Mike G. v. a. <act...@de...>]

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