[WWcvs] webwork-modperl: modified code for checking multiple user names.

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

Log Message:
-----------
modified code for checking multiple user names.  We'll see if we can
track down the problem.

--Mike

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.129
retrieving revision 1.130
diff -Llib/WeBWorK/ContentGenerator.pm -Llib/WeBWorK/ContentGenerator.pm -u -r1.129 -r1.130
--- lib/WeBWorK/ContentGenerator.pm
+++ lib/WeBWorK/ContentGenerator.pm
@@ -1499,7 +1499,16 @@
 			@values = $r->param($name);
 		}
 		#FIXME  -- evntually we'd like to catch where this happens
-		croak "internal error --  user has been multiply defined!" if $name eq 'user' and @values >1;
+		if ($name eq 'user' and @values >1 )    {
+			warn "internal error --  user has been multiply defined!";
+			my $user = $r->param("user");
+			$r->param(user => $user);
+		    @values = ($user);
+		    warn "requesting page is ", $r->headers_in('Referer');
+		    warn "Parameters are ", join("|",$r->param());
+
+		}
+		 
 		if (@values) {
 			if ($first) {
 				$url .= "?";