[system] / branches / rel-2-0-patches / webwork-modperl / lib / WeBWorK / ContentGenerator / CourseAdmin.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-0-patches/webwork-modperl/lib/WeBWorK/ContentGenerator/CourseAdmin.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 2717 Revision 2718
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.23 2004/07/10 16:06:59 sh002i Exp $ 4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/CourseAdmin.pm,v 1.24 2004/07/10 16:28:56 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.
… …
173 173
174sub content { 174sub content {
175 my ($self) = @_; 175 my ($self) = @_;
176 my $method_to_call = $self->{method_to_call}; 176 my $method_to_call = $self->{method_to_call};
177 if (defined $method_to_call and $method_to_call eq "do_export_database") { 177 if (defined $method_to_call and $method_to_call eq "do_export_database") {
178 print "<!-- Ϸĩ½ōú -->\n"; 178 print "<!-- ؆˸͖۵ -->\n";
179 print "<!-- Those were some high-bit characters to convince Safari that we really do want this saved as a file. -->\n"; 179 print "<!-- Those were some high-bit characters to convince Safari that we really do want this saved as a file. -->\n";
180 $self->do_export_database; 180 $self->do_export_database;
181 } else { 181 } else {
182 $self->SUPER::content; 182 $self->SUPER::content;
183 } 183 }
… …
644 permission => "10", 644 permission => "10",
645 ); 645 );
646 push @users, [ $User, $Password, $PermissionLevel ]; 646 push @users, [ $User, $Password, $PermissionLevel ];
647 } 647 }
648 648
649 push @{$courseOptions{PRINT_FILE_NAMES_FOR}}, map { $_->[0]->email_address } @users; 649 push @{$courseOptions{PRINT_FILE_NAMES_FOR}}, map { $_->[0]->user_id } @users;
650 650
651 my %optional_arguments; 651 my %optional_arguments;
652 if ($add_templates_course ne "") { 652 if ($add_templates_course ne "") {
653 $optional_arguments{templatesFrom} = $add_templates_course; 653 $optional_arguments{templatesFrom} = $add_templates_course;
654 } 654 }
… …
766 "If the course's database layout (indicated in parentheses above) is " 766 "If the course's database layout (indicated in parentheses above) is "
767 . CGI::b("sql") . ", supply the SQL connections information requested below." 767 . CGI::b("sql") . ", supply the SQL connections information requested below."
768 ); 768 );
769 769
770 print CGI::start_table({class=>"FormLayout"}); 770 print CGI::start_table({class=>"FormLayout"});
771 print CGI::Tr(CGI::td({colspan=>2},
772 "Enter the user ID and password for an SQL account with sufficient permissions to delete an existing database."
773 )
774 );
775 print CGI::Tr(
776 CGI::th({class=>"LeftHeader"}, "SQL Admin Username:"),
777 CGI::td(CGI::textfield("delete_sql_username", $delete_sql_username, 25)),
778 );
779 print CGI::Tr(
780 CGI::th({class=>"LeftHeader"}, "SQL Admin Password:"),
781 CGI::td(CGI::password_field("delete_sql_password", $delete_sql_password, 25)),
782 );
783
784 #print CGI::Tr(CGI::td({colspan=>2},
785 # "The optionial SQL settings you enter below must match the settings in the DBI source"
786 # . " specification " . CGI::tt($dbi_source) . ". Replace " . CGI::tt("COURSENAME")
787 # . " with the course name you entered above."
788 # )
789 #);
771 print CGI::Tr( 790 print CGI::Tr(
772 CGI::th({class=>"LeftHeader"}, "SQL Server Host:"), 791 CGI::th({class=>"LeftHeader"}, "SQL Server Host:"),
773 CGI::td( 792 CGI::td(
774 CGI::textfield("delete_sql_host", $delete_sql_host, 25), 793 CGI::textfield("delete_sql_host", $delete_sql_host, 25),
775 CGI::br(), 794 CGI::br(),
… …
782 CGI::textfield("delete_sql_port", $delete_sql_port, 25), 801 CGI::textfield("delete_sql_port", $delete_sql_port, 25),
783 CGI::br(), 802 CGI::br(),
784 CGI::small("Leave blank to use the default port."), 803 CGI::small("Leave blank to use the default port."),
785 ), 804 ),
786 ); 805 );
787 print CGI::Tr( 806
788 CGI::th({class=>"LeftHeader"}, "SQL Admin Username:"),
789 CGI::td(CGI::textfield("delete_sql_username", $delete_sql_username, 25)),
790 );
791 print CGI::Tr(
792 CGI::th({class=>"LeftHeader"}, "SQL Admin Password:"),
793 CGI::td(CGI::password_field("delete_sql_password", $delete_sql_password, 25)),
794 );
795 print CGI::Tr( 807 print CGI::Tr(
796 CGI::th({class=>"LeftHeader"}, "SQL Database Name:"), 808 CGI::th({class=>"LeftHeader"}, "SQL Database Name:"),
797 CGI::td( 809 CGI::td(
798 CGI::textfield("delete_sql_database", $delete_sql_database, 25), 810 CGI::textfield("delete_sql_database", $delete_sql_database, 25),
799 CGI::br(), 811 CGI::br(),
Legend:
Removed from v.2717  
changed lines
  Added in v.2718
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9