[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);