--- loncom/interface/lonpreferences.pm	2007/05/08 18:26:54	1.103
+++ loncom/interface/lonpreferences.pm	2007/07/05 21:37:38	1.107
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.103 2007/05/08 18:26:54 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.107 2007/07/05 21:37:38 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -562,6 +562,46 @@ sub verify_and_change_icons {
 }
 
 ################################################################
+#                     Clicker Subroutines                      #
+################################################################
+
+sub clickerchanger {
+    my $r = shift;
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+    my %userenv = &Apache::lonnet::get
+        ('environment',['clickers']);
+    my $clickers=$userenv{'clickers'};
+    $clickers=~s/\,/\n/gs;
+    my $text=&mt('Enter response device ("clicker") numbers');
+    my $change=&mt('Register');
+    my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration', 'Locating your clicker ID');
+    $r->print(<<ENDSCREEN);
+<form name="prefs" action="/adm/preferences" method="post">
+<input type="hidden" name="action" value="verify_and_change_clicker" />
+<label>$text $helplink<br />
+<textarea name="clickers" rows="5" cols="10">$clickers</textarea>
+</label>
+<input type="submit" value="$change" />
+</form>
+ENDSCREEN
+}
+
+sub verify_and_change_clicker {
+    my $r = shift;
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+    my $newclickers  = $env{'form.clickers'};
+    $newclickers=~s/\W+/\,/gs;
+    $newclickers=~tr/a-z/A-Z/;
+    $newclickers=~s/^\,//;
+    $newclickers=~s/\,$//;
+    &Apache::lonnet::put('environment',{'clickers' => $newclickers});
+    &Apache::lonnet::appenv('environment.clickers' => $newclickers);
+    $r->print(&mt('Registering clickers: [_1]',$newclickers));
+}
+
+################################################################
 #         Message Forward                                      #
 ################################################################
 
@@ -578,7 +618,7 @@ sub msgforwardchanger {
                                           foad  => 'Forwarding Address(es)',
                                           mnot  => 'Message Notification Email Address(es)',
                                           chg   => 'Change',
-                                          email => 'The e-mail address you entered',
+                                          email => 'The e-mail address entered in row ',
                                           notv => 'is not a valid e-mail address',
                                           toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", 
                                           prme => 'Back to preferences menu',
@@ -595,28 +635,56 @@ sub msgforwardchanger {
     my $jscript = qq|
 <script type="text/javascript">
 function validate() {
-    var checkaddress = 0;
     for (var i=0; i<document.prefs.numnotify.value; i++) {
+        var checkaddress = 0;
         var addr = document.prefs.elements['address_'+i].value;
+        var rownum = i+1;
         if (i < document.prefs.numnotify.value-1) {
-            if (document.prefs.elements['del_notify_'+i].value == false) {
+            if (document.prefs.elements['modify_notify_'+i].checked) {
                 checkaddress = 1;
-            } 
+            }
         } else {
             if (document.prefs.elements['add_notify_'+i].checked == true) { 
                 checkaddress = 1;
             }
         }
-        if (checkaddress== 1) {
+        if (checkaddress == 1)  {
             var addr = document.prefs.elements['address_'+i].value;
             if (validmail(document.prefs.elements['address_'+i]) == false) {
-                alert("$lt{'email'}: "+addr+" $lt{'notv'}.\\n($lt{'toen'}).");
+                var multimsg = '';
+                if (addr.indexOf(",") >= 0) {
+                    multimsg = "\\n($lt{'toen'}).";
+                }
+                alert("$lt{'email'} "+rownum+": '"+addr+"' $lt{'notv'}."+multimsg);
                 return;
             }
         }
     }
     document.prefs.submit();
 }
+
+function address_changes (adnum) {
+     if (!document.prefs.elements['del_notify_'+adnum].checked) { 
+         document.prefs.elements['modify_notify_'+adnum].checked = true;
+     }   
+}
+
+function new_address(adnum) {
+     document.prefs.elements['add_notify_'+adnum].checked = true;
+}
+
+function delete_address(adnum) {
+     if (document.prefs.elements['del_notify_'+adnum].checked) {
+          document.prefs.elements['modify_notify_'+adnum].checked = false;
+     }
+}
+
+function modify_address(adnum) {
+    if (document.prefs.elements['modify_notify_'+adnum].checked) {
+        document.prefs.elements['del_notify_'+adnum].checked = false;
+    }
+} 
+
 $validatescript
 </script>
 |;
@@ -634,18 +702,28 @@ ENDMSG
     my @sortforwards = sort (keys(%allnot));
     my $output = &Apache::loncommon::start_data_table().
                  &Apache::loncommon::start_data_table_header_row().
+                 '<th>&nbsp;</th>'.
                  '<th>'.&mt('Action').'</th>'.
                  '<th>'.&mt('Notification address').'</th><th>'.
-                 &mt('Messages to forward').'</th><th>'.
-                 &mt('Excerpt retains HTML tags included in message').'</th>'.
+                 &mt('Types of message to forward to this address').'</th><th>'.
+                 &mt('Excerpt retains HTML tags in message').'</th>'.
                  &Apache::loncommon::end_data_table_header_row();
     my $num = 0;
+    my $counter = 1;
     foreach my $item (@sortforwards) {
         $output .= &Apache::loncommon::start_data_table_row().
-                   '<td><input type="checkbox" name="del_notify_'.$num.'" />'.
-                   &mt('Delete').'</td>'.
+                   '<td><b>'.$counter.'</b></td>'.
+                   '<td><span class="LC_nobreak"><label>'.
+                   '<input type="checkbox" name="modify_notify_'.
+                   $num.'" onclick="javscript:modify_address('."'$num'".')" />'.
+                   &mt('Modify').'</label></span>&nbsp;&nbsp; '.
+                   '<span class="LC_nobreak"><label>'.
+                   '<input type="checkbox" name="del_notify_'.$num.
+                   '" onclick="javscript:delete_address('."'$num'".')" />'.
+                   &mt('Delete').'</label></span></td>'.
                    '<td><input type="text" value="'.$item.'" name="address_'.
-                   $num.'" /></td><td>';
+                   $num.'" onFocus="javascript:address_changes('."'$num'".
+                   ')" /></td><td>';
         my %chk;
         if (defined($allnot{$item}{'crit'})) {
             if (defined($allnot{$item}{'reg'})) {
@@ -659,7 +737,9 @@ ENDMSG
         foreach my $type ('all','crit','reg') {
             $output .= '<span class="LC_nobreak"><label>'.
                        '<input type="radio" name="notify_type_'.$num. 
-                       '" value="'.$type.'" '.$chk{$type}.'/>'.$lt{$type}.'</label></span>&nbsp;';
+                       '" value="'.$type.'" '.$chk{$type}.
+                       ' onchange="javascript:address_changes('."'$num'".')" />'.
+                       $lt{$type}.'</label></span>&nbsp;';
         }
         my $htmlon = '';
         my $htmloff = '';
@@ -669,11 +749,16 @@ ENDMSG
             $htmloff = 'checked="checked" ';
         }
         $output .= '</td><td><label><input type="radio" name="html_'.$num.
-                   '" value="1" '.$htmlon.'/>'.&mt('Yes').'</label>&nbsp;'.
+                   '" value="1" '.$htmlon.
+                   ' onchange="javascript:address_changes('."'$num'".')" />'.
+                   &mt('Yes').'</label>&nbsp;'.
                    '<label><input type="radio" name="html_'.$num.'" value="0" '.
-                   $htmloff.'/>'.&mt('No').'</label></td>'.
+                   $htmloff. ' onchange="javascript:address_changes('."'$num'".
+')" />'.
+                   &mt('No').'</label></td>'.
                    &Apache::loncommon::end_data_table_row();
         $num ++;
+        $counter ++;
     }
     my %defchk = (
                    all => 'checked="checked" ',
@@ -681,10 +766,12 @@ ENDMSG
                    reg => '',
                  );
     $output .= &Apache::loncommon::start_data_table_row().
-               '<td><input type="checkbox" name="add_notify_'.$num.'" />'.
-               &mt('Add').'</td>'.
+               '<td><b>'.$counter.'</b></td>'.
+               '<td><span class="LC_nobreak"><label>'.
+               '<input type="checkbox" name="add_notify_'.$num.
+               '" value="1" />'.&mt('Add new address').'</label></span></td>'.
                '<td><input type="text" value="" name="address_'.$num.
-               '" /></td><td>';
+               '" onFocus="javascript:new_address('."'$num'".')" /></td><td>';
     foreach my $type ('all','crit','reg') {
         $output .= '<span class="LC_nobreak"><label>'.
                    '<input type="radio" name="notify_type_'.$num.
@@ -757,9 +844,10 @@ sub verify_and_change_msgforward {
     my $notification;
     my $notify_with_html;
     my $lastnotify = $env{'form.numnotify'}-1;
+    my $totaladdresses = 0;
     for (my $i=0; $i<$env{'form.numnotify'}; $i++) {
         if ((!defined($env{'form.del_notify_'.$i})) &&  
-           ((($i==$lastnotify) && (defined($env{'form.add_notify_'.$lastnotify}))) ||
+           ((($i==$lastnotify) && ($env{'form.add_notify_'.$lastnotify} == 1)) ||
             ($i<$lastnotify))) {
             if (defined($env{'form.address_'.$i})) {
                 if ($env{'form.notify_type_'.$i} eq 'all') {
@@ -773,6 +861,7 @@ sub verify_and_change_msgforward {
                 if ($env{'form.html_'.$i} eq '1') {
 		    $notify_with_html .= $env{'form.address_'.$i}.',';       	
                 }
+                $totaladdresses ++;
             }
         }
     }
@@ -798,7 +887,7 @@ sub verify_and_change_msgforward {
     } else {
         &Apache::lonnet::del('environment',['critnotification']);
         &Apache::lonnet::delenv('environment\.critnotification');
-        $message.=&mt('Critical message notification set to off').'<br />';
+        $message.=&mt("Critical message notification set to 'off'.").'<br />';
     }
     if ($critnotification || $notification) {
         if ($notify_with_html) {
@@ -808,7 +897,11 @@ sub verify_and_change_msgforward {
         } else {
             &Apache::lonnet::del('environment',['notifywithhtml']);
             &Apache::lonnet::delenv('environment\.notifywithhtml');
-            $message.=&mt("Set all notification address(es) to receive excerpts with html stripped.").'<br />';
+            if ($totaladdresses == 1) {
+                $message.=&mt("Set notification address to receive excerpts with html stripped.");
+            } else {
+                $message.=&mt("Set all notification addresses to receive excerpts with html stripped.");
+            }
         }
     } else {
         &Apache::lonnet::del('environment',['notifywithhtml']);
@@ -1709,6 +1802,23 @@ sub handler {
                       printmenu => 'yes',
                       }));
 
+    push (@Options,({ action   => 'changeclicker',
+                      linktext => 'Register Response Devices ("Clickers")',
+                      href     => '/adm/preferences',
+                      subroutine => \&clickerchanger,
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changeicons',
+                            text => 'Register Clicker'},
+                      },
+                    { action   => 'verify_and_change_clicker',
+                      subroutine => \&verify_and_change_clicker,
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changeclicker',
+                            text => 'Register Clicker'},
+                      printmenu => 'yes',
+                      }));
+
+
     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
 	|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
 				    .$env{'request.course.sec'})) {