[WWcvs] webwork2: Added a few more cosmetic tweaks to the text and to the execution flow.

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

Log Message:
-----------
Added a few more cosmetic tweaks to the text and to the execution flow. 

This registration is now acceptable except that the questions asked in the email
need to be examined more closely.  

A later version might allow for automatic registration.

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.72
retrieving revision 1.73
diff -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -u -r1.72 -r1.73
--- lib/WeBWorK/ContentGenerator/CourseAdmin.pm
+++ lib/WeBWorK/ContentGenerator/CourseAdmin.pm
@@ -2426,9 +2426,10 @@
 my $ce   = $self->r->ce;
 my $registeredQ = (-e ($ce->{courseDirs}->{root})."/$registered_file_name")?1:0;
 my $registration_subDisplay = ( $self->{method_to_call} eq "registration_form") ?  1: 0;
-return 0  if $registeredQ or $registration_subDisplay;     #otherwise return registration form
-return  q!  
-<table class="messagebox" style="background-color:#FFFFCC;cellpadding:100px">
+return 0  if $registeredQ or $self->r->param("register_site");     #otherwise return registration form
+return  q! 
+<center>
+<table class="messagebox" style="background-color:#FFFFCC;width:60%">
 <tr><td>
 !,
 CGI::p("If you are using your WeBWorK server for courses please help us out by registering your server."),
@@ -2447,6 +2448,7 @@
 q!
 </td></tr>
 </table>
+</center>
 !;
 
 
@@ -2477,6 +2479,7 @@
 .uri_escape("Approximate number of courses run each term: \n\n")
 .uri_escape("Approximate number of students using this server each term: \n\n")
 .uri_escape("Other institutions who use WeBWorK courses hosted on this server: \n\n")
+.uri_escape("Other comments: \n\n")
 },
 'click here'),
 q! to open your email application.  There are a few questions, some of which have already
@@ -2487,7 +2490,7 @@
 
 
 
-print  "\n",CGI::p({style=>"text-align: left; width:60%"},,q!Once you have emailed your registration information you can hide the "registration" banner 
+print  "\n",CGI::p({style=>"text-align: left; width:60%"},q!Once you have emailed your registration information you can hide the "registration" banner 
 for successive visits by clicking
 the button below.!)
 ;
@@ -2512,7 +2515,13 @@
 my $registered_file_path = $ce->{courseDirs}->{root}."/$registered_file_name";
 # warn qq!`echo "info" >$registered_file_path`!;
 `echo "info" >$registered_file_path`;
-print "\n registration action done";
+print  "\n",CGI::p({style=>"text-align: center; width:60%"},q{Registration action completed.  Thank you very much!"});
+
+print CGI::start_form(-method=>"POST", -action=>$self->r->uri);
+print $self->hidden_authen_fields;
+#print $self->hidden_fields("subDisplay");
+print CGI::p({style=>"text-align: center"}, CGI::submit(-name=>"registration_completed", -label=>"Continue"));
+print CGI::end_form();
 
 }
 ################################################################################