[WWcvs] webwork2: Changed the message on the email message a bit.

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Changed the message on the email message a bit.

Modified Files:
--------------
    webwork2/lib/WeBWorK/ContentGenerator:
        CourseAdmin.pm

Revision Data
-------------
Index: CourseAdmin.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/CourseAdmin.pm,v
retrieving revision 1.71
retrieving revision 1.72
diff -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -u -r1.71 -r1.72
--- lib/WeBWorK/ContentGenerator/CourseAdmin.pm
+++ lib/WeBWorK/ContentGenerator/CourseAdmin.pm
@@ -2454,13 +2454,22 @@
 }
 sub registration_form {
 my $self = shift;
+my $ce = $self->r->ce;
+
 print "<center>";
 print  "\n",CGI::p({style=>"text-align: left; width:60%"},
 "\nPlease ",
 CGI::a({href=>'mailto:ga...@ma...?'
 .'subject=WeBWorK%20Server%20Registration'
 .'&body='
-.uri_escape("Server URL: \n\n")
+.uri_escape("Thanks for registering your WeBWorK server.  We'd appreciate if you would answer
+as many of these questions as you can conveniently.  We need this data so we can better 
+answer questions such as 'How many institutions have webwork servers?' and 'How many students
+use WeBWorK?'.  Your email and contact information  will be kept private.  We will 
+list your institution as one that uses WeBWorK unless you tell us to keep that private as well.
+\n\nThank you. \n\n--Mike Gage \n\n
+")
+.uri_escape("Server URL: ".$ce->{apache_root_url}." \n\n")
 .uri_escape("WeBWorK version: $main::VERSION \n\n")
 .uri_escape("Institution name (e.g. University of Rochester): \n\n")
 .uri_escape("Contact person name: \n\n")