| 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.7 2004/05/07 22:26:49 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/CourseAdmin.pm,v 1.8 2004/05/07 23:13:44 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. |
| … | |
… | |
| 502 | my $delete_sql_username = $r->param("delete_sql_username") || ""; |
502 | my $delete_sql_username = $r->param("delete_sql_username") || ""; |
| 503 | my $delete_sql_password = $r->param("delete_sql_password") || ""; |
503 | my $delete_sql_password = $r->param("delete_sql_password") || ""; |
| 504 | my $delete_sql_database = $r->param("delete_sql_database") || ""; |
504 | my $delete_sql_database = $r->param("delete_sql_database") || ""; |
| 505 | |
505 | |
| 506 | my @courseIDs = listCourses($ce); |
506 | my @courseIDs = listCourses($ce); |
|
|
507 | @courseIDs = sort @courseIDs; |
| 507 | |
508 | |
| 508 | my %courseLabels; # records... heh. |
509 | my %courseLabels; # records... heh. |
| 509 | foreach my $courseID (@courseIDs) { |
510 | foreach my $courseID (@courseIDs) { |
| 510 | my $tempCE = WeBWorK::CourseEnvironment->new( |
511 | my $tempCE = WeBWorK::CourseEnvironment->new( |
| 511 | $ce->{webworkDirs}->{root}, |
512 | $ce->{webworkDirs}->{root}, |
| … | |
… | |
| 756 | my @export_tables = $r->param("export_tables"); |
757 | my @export_tables = $r->param("export_tables"); |
| 757 | |
758 | |
| 758 | @export_tables = @tables unless @export_tables; |
759 | @export_tables = @tables unless @export_tables; |
| 759 | |
760 | |
| 760 | my @courseIDs = listCourses($ce); |
761 | my @courseIDs = listCourses($ce); |
|
|
762 | @courseIDs = sort @courseIDs; |
| 761 | |
763 | |
| 762 | my %courseLabels; # records... heh. |
764 | my %courseLabels; # records... heh. |
| 763 | foreach my $courseID (@courseIDs) { |
765 | foreach my $courseID (@courseIDs) { |
| 764 | my $tempCE = WeBWorK::CourseEnvironment->new( |
766 | my $tempCE = WeBWorK::CourseEnvironment->new( |
| 765 | $ce->{webworkDirs}->{root}, |
767 | $ce->{webworkDirs}->{root}, |
| … | |
… | |
| 903 | my $import_conflict = $r->param("import_conflict") || "skip"; |
905 | my $import_conflict = $r->param("import_conflict") || "skip"; |
| 904 | |
906 | |
| 905 | @import_tables = @tables unless @import_tables; |
907 | @import_tables = @tables unless @import_tables; |
| 906 | |
908 | |
| 907 | my @courseIDs = listCourses($ce); |
909 | my @courseIDs = listCourses($ce); |
|
|
910 | @courseIDs = sort @courseIDs; |
|
|
911 | |
| 908 | |
912 | |
| 909 | my %courseLabels; # records... heh. |
913 | my %courseLabels; # records... heh. |
| 910 | foreach my $courseID (@courseIDs) { |
914 | foreach my $courseID (@courseIDs) { |
| 911 | my $tempCE = WeBWorK::CourseEnvironment->new( |
915 | my $tempCE = WeBWorK::CourseEnvironment->new( |
| 912 | $ce->{webworkDirs}->{root}, |
916 | $ce->{webworkDirs}->{root}, |
Parent Directory
| 
Revision Log
| 
Patch