| 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: webwork-modperl/lib/WeBWorK/ContentGenerator/CourseAdmin.pm,v 1.5 2004/05/07 04:28:54 jj Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/CourseAdmin.pm,v 1.6 2004/05/07 14:12:20 gage 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. |
| … | |
… | |
| 507 | $ce->{webworkURLs}->{root}, |
507 | $ce->{webworkURLs}->{root}, |
| 508 | $ce->{pg}->{directories}->{root}, |
508 | $ce->{pg}->{directories}->{root}, |
| 509 | $add_courseID, |
509 | $add_courseID, |
| 510 | ); |
510 | ); |
| 511 | |
511 | |
| 512 | my %courseOptions = { dbLayoutName => $add_dbLayout }; |
512 | my %courseOptions = ( dbLayoutName => $add_dbLayout ); |
| 513 | if ($add_dbLayout eq "gdbm") { |
513 | if ($add_dbLayout eq "gdbm") { |
| 514 | $courseOptions{globalUserID} = $add_gdbm_globalUserID if $add_gdbm_globalUserID ne ""; |
514 | $courseOptions{globalUserID} = $add_gdbm_globalUserID if $add_gdbm_globalUserID ne ""; |
| 515 | } |
515 | } |
| 516 | |
516 | |
| 517 | my %dbOptions; |
517 | my %dbOptions; |