| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator.pm,v 1.123 2004/10/21 01:16:18 sh002i Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator.pm,v 1.123.2.1 2005/01/07 20:17:20 sh002i Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 1376 | @values = $value; |
1376 | @values = $value; |
| 1377 | } |
1377 | } |
| 1378 | } elsif (defined $r->param($name)) { |
1378 | } elsif (defined $r->param($name)) { |
| 1379 | @values = $r->param($name); |
1379 | @values = $r->param($name); |
| 1380 | } |
1380 | } |
| 1381 | |
1381 | #FIXME -- evntually we'd like to catch where this happens |
|
|
1382 | croak "internal error -- user has been multiply defined!" if $name eq 'user' and @values >1; |
| 1382 | if (@values) { |
1383 | if (@values) { |
| 1383 | if ($first) { |
1384 | if ($first) { |
| 1384 | $url .= "?"; |
1385 | $url .= "?"; |
| 1385 | $first = 0; |
1386 | $first = 0; |
| 1386 | } else { |
1387 | } else { |