[LON-CAPA-cvs] cvs: modules /raeburn/register registrations.pm

raeburn raeburn@source.lon-capa.org
Fri, 08 Apr 2011 20:56:02 -0000


raeburn		Fri Apr  8 20:56:02 2011 EDT

  Modified files:              
    /modules/raeburn/register	registrations.pm 
  Log:
  - Registration form administration. 
    - Fix typos.
    - Add new form types: alldomslong and alldoms - LON-CAPA domain selectors
      for use as dropdown lists in registration forms
    - SSL for s10
    - Update contact name
  
  
Index: modules/raeburn/register/registrations.pm
diff -u modules/raeburn/register/registrations.pm:1.10 modules/raeburn/register/registrations.pm:1.11
--- modules/raeburn/register/registrations.pm:1.10	Sun May 11 18:45:28 2008
+++ modules/raeburn/register/registrations.pm	Fri Apr  8 20:56:02 2011
@@ -6,7 +6,7 @@
 # privilege for an event can edit the contents of the registration 
 # form. 
 #
-# $Id: registrations.pm,v 1.10 2008/05/11 18:45:28 raeburn Exp $
+# $Id: registrations.pm,v 1.11 2011/04/08 20:56:02 raeburn Exp $
 #
 # Stuart P Raeburn
 #
@@ -216,7 +216,7 @@
         return OK;
     }
     my $contact_email = "helpdesk\@lon-capa.org";
-    my $contact_name = "LON-CAPA support team";
+    my $contact_name = "MSU LON-CAPA group";
     if ($branch eq 'edit') {
         if ($choice eq 'formfields') {
             if ($editaction eq '') {
@@ -1401,7 +1401,7 @@
 
 sub get_domains {
     my $domref = shift;
-    my $URL = "http://s10.lite.msu.edu/cgi-bin/check_auth.pl";
+    my $URL = "https://s10.lite.msu.edu/cgi-bin/check_auth.pl";
     my $request = HTTP::Request->new(POST => $URL);
     $request->content_type('application/x-www-form-urlencoded');
     $request->content('action=domainlist');
@@ -1729,7 +1729,7 @@
 END_ITEM
         if ($item eq 'type') {
             $r->print('<select name="'.$item.'">'."\n");
-            foreach my $type ('textbox','selectbox','checkbox','radio','textarea','hidden') {
+            foreach my $type ('textbox','selectbox','checkbox','radio','textarea','hidden','alldomslong','alldoms') {
                 $r->print('<option value="'.$type.'">'.$type.'</option>');
             }
             $r->print('</select>'."\n");
@@ -2427,7 +2427,7 @@
     my $output;
     if ($item eq 'type') {
         $output = '<select name="'.$name.'_'.$item.'">'."\n";
-        foreach my $type ('textbox','selectbox','checkbox','radio','textarea','hidden') {
+        foreach my $type ('textbox','selectbox','checkbox','radio','textarea','hidden','alldomslong','alldoms') {
             if ($type eq $current) {
                 $output.='<option value="'.$type.'" selected="selected">'.$type.'</option>';
             } else {
@@ -3074,7 +3074,7 @@
     } elsif ($item eq 'longdesc') {
         $output='<textarea rows="5" cols="40" name="'.$name.'_'.$item.'">'.$current.'</textarea>'."\n";
     } elsif ($item eq 'type') {
-        my @types = ('reg','accom','conditional');
+        my @types = ('reg','accomm','conditional');
         $output = '<span class="nobreak"><select name="'.$name.'_'.$item.'">'."\n";
         foreach my $type (@types) {
             if ($type eq $current) {
@@ -3435,7 +3435,7 @@
                         $newfee[$j] = $dbh->quote( $params->{'newitem_'.$params[$j]} );
                     }
                 }
-                unshift(@params,'eventid');
+                unshift(@params,'event_id');
                 unshift(@newfee,$eventid_quoted);
                 my $itemstr = join(',',@params);
                 my $newfeestr = join(',',@newfee);
@@ -3541,7 +3541,7 @@
                     }
                 }
                 $newcondfee[$numparam-1] = $newcpt;
-                unshift(@params,('iid','eventid'));
+                unshift(@params,('iid','event_id'));
                 unshift(@newcondfee,($iid_quoted,$eventid_quoted));
                 my $condstr = join(',',@params);
                 my $newcondfeestr = join(',',@newcondfee);
@@ -3561,7 +3561,7 @@
                     }
                 }
                 $newcondfee[$numparam-1] = $params->{'addsubcondition'};
-                unshift(@params,('iid','eventid'));
+                unshift(@params,('iid','event_id'));
                 unshift(@newcondfee,($iid_quoted,$eventid_quoted));
                 my $condstr = join(',',@params);
                 my $newcondfeestr = join(',',@newcondfee);