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

[raeburn]

raeburn		Tue Mar 19 23:59:14 2019 EDT

  Modified files:              
    /modules/raeburn/register	registrations.pm 
  Log:
  - Registration form can include different messages about fees for local and
    non-local users.
  
  
Index: modules/raeburn/register/registrations.pm
diff -u modules/raeburn/register/registrations.pm:1.12 modules/raeburn/register/registrations.pm:1.13
--- modules/raeburn/register/registrations.pm:1.12	Fri Mar 10 17:16:54 2017
+++ modules/raeburn/register/registrations.pm	Tue Mar 19 23:59:13 2019
@@ -6,7 +6,7 @@
 # privilege for an event can edit the contents of the registration 
 # form. 
 #
-# $Id: registrations.pm,v 1.12 2017/03/10 17:16:54 raeburn Exp $
+# $Id: registrations.pm,v 1.13 2019/03/19 23:59:13 raeburn Exp $
 #
 # Stuart P Raeburn
 #
@@ -2696,6 +2696,10 @@
             $r->print($dateforms{'endcredit'});
         } elsif ($cols->[$i] eq 'feesmsg') {
             $r->print('<input type="text" size="60" name="feesmsg" value="'.$in->{'feesmsg'}.'" />');
+        } elsif ($cols->[$i] eq 'localfeesmsg') {
+            $r->print('<input type="text" size="60" name="localfeesmsg" value="'.$in->{'localfeesmsg'}.'" />');
+        } elsif ($cols->[$i] eq 'nonlocalfeesmsg') {
+            $r->print('<input type="text" size="60" name="nonlocalfeesmsg" value="'.$in->{'nonlocalfeesmsg'}.'" />');
         } elsif ($cols->[$i] eq 'condmail') {
            my ($checkedon,$checkedoff);
            if ($in->{'condmail'} eq 'Y') {
@@ -3629,6 +3633,8 @@
                          'endcredit'     => 'Refunds for cancellations until:',
                          'condmail'      => 'Customize confirmation e-mail',
                          'feesmsg'       => 'General Message about fees',
+                         'localfeesmsg'  => "Fees message for hosting institution's users",
+                         'nonlocalfeesmsg' => "Fees message for other users",
                       );
     return %configitems;
 }
@@ -3663,7 +3669,7 @@
 sub current_config {
     my ($dbh,$eventid_quoted) = @_; 
     my @cols = ('eventstart','eventend','location','webpath','directlogin','registeropen',
-             'registerclose','fees','endcredit','condmail','feesmsg');
+             'registerclose','fees','endcredit','condmail','feesmsg','localfeesmsg','nonlocalfeesmsg');
     my $colstr = join(',', at cols);
     my @items = $dbh->selectrow_array("SELECT $colstr FROM event_config WHERE event_id = $eventid_quoted");
     my %in;