--- loncom/interface/lonmsgdisplay.pm	2006/04/25 23:12:34	1.16
+++ loncom/interface/lonmsgdisplay.pm	2006/05/01 05:57:26	1.20
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.16 2006/04/25 23:12:34 albertel Exp $
+# $Id: lonmsgdisplay.pm,v 1.20 2006/05/01 05:57:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -261,13 +261,18 @@ sub movemsg {
 sub discourse {
     my $r=shift;
     my $classlist = &Apache::loncoursedata::get_classlist();
-    my $now=time;
+    my ($classgroups,$studentgroups) = 
+            &Apache::loncoursedata::get_group_memberships($classlist);
     my %lt=&Apache::lonlocal::texthash('cfa' => 'Check All',
             'cfs' => 'Check Section/Group',
             'cfn' => 'Uncheck All');
+    if (defined($env{'form.group'})) {
+        $r->print('<input type="hidden" name="group" value="'.
+                  $env{'form.group'}.'" />'."\n");
+    }
     $r->print(<<ENDDISHEADER);
 <input type="hidden" name="sendmode" value="group" />
-<script>
+<script pe="text/javascript">
     function checkall() {
 	for (i=0; i<document.forms.compemail.elements.length; i++) {
             if 
@@ -284,6 +289,12 @@ sub discourse {
            ('send_to_&&&'+document.forms.compemail.chksec.value+'&&&')==0) {
 	      document.forms.compemail.elements[i].checked=true;
             }
+            if
+          (document.forms.compemail.elements[i].name.indexOf
+           ('group_&&&'+document.forms.compemail.chksec.value+'&&&_')==0) {
+              var count = i - document.forms.compemail.elements[i].value;
+              document.forms.compemail.elements[count].checked=true;
+            }
         }
     }
 
@@ -298,50 +309,86 @@ sub discourse {
 </script>
 <input type="button" onClick="checkall()" value="$lt{'cfa'}" />&nbsp;
 <input type="button" onClick="checksec()" value="$lt{'cfs'}" />
-<input type="text" size="5" name="chksec" />&nbsp;
+<input type="text" size="15" name="chksec" value="$env{'form.group'}" />&nbsp;
 <input type="button" onClick="uncheckall()" value="$lt{'cfn'}" />
 <p>
 ENDDISHEADER
     my %coursepersonnel=&Apache::lonnet::get_course_adv_roles();
-    $r->print('<table>');
-    foreach my $role (sort keys %coursepersonnel) {
-        foreach (split(/\,/,$coursepersonnel{$role})) {
-            my ($puname,$pudom)=split(/\:/,$_);
-            $r->print('<tr><td><label>'.
-                      '<input type="checkbox" name="send_to_&&&&&&_'.
-                      $puname.':'.$pudom.'" /> '.
-                      &Apache::loncommon::plainname($puname,$pudom).
-                      '</label></td>'.
-                      '<td>('.$_.'),</td><td><i>'.$role.'</i></td></tr>');
-        }
-    }
-    $r->print('</table><table>');
-    my $sort = sub {
-	my $aname=lc($classlist->{$a}[&Apache::loncoursedata::CL_FULLNAME()]);
-	if (!$aname) { $aname=$a; }
-	my $bname=lc($classlist->{$b}[&Apache::loncoursedata::CL_FULLNAME()]);
-	if (!$bname) { $bname=$b; }
-	return $aname cmp $bname;
-    };
-    foreach my $student (sort $sort (keys(%{$classlist}))) {
-	my $info=$classlist->{$student};
-        my ($sname,$sdom,$status,$fullname,$section) =
-            (@{$info}[&Apache::loncoursedata::CL_SNAME(),
-                      &Apache::loncoursedata::CL_SDOM(),
-                      &Apache::loncoursedata::CL_STATUS(),
-                      &Apache::loncoursedata::CL_FULLNAME(),
-                      &Apache::loncoursedata::CL_SECTION()]);
-        next if ($status ne 'Active');
-	next if ($env{'request.course.sec'} &&
-		 $section ne $env{'request.course.sec'});
-        my $key = 'send_to_&&&'.$section.'&&&_'.$student;
-        if (! defined($fullname) || $fullname eq '') { $fullname = $sname; }
-        $r->print('<tr><td><label>'.
-                  qq{<input type="checkbox" name="$key" />}.('&nbsp;'x2).
-                  $fullname.'</label></td><td>'.$sname.':'.$sdom.'</td><td>'.$section.
-                  '</td></tr>');
+    $r->print(&Apache::loncommon::start_data_table());
+    if (keys(%coursepersonnel) > 0) {
+        $r->print('<h3>Non-students</h3>');
+        $r->print(&Apache::loncommon::start_data_table());
+        $r->print(&Apache::loncommon::start_data_table_row());
+        $r->print('<th>Name</th><th>Username:Domain</th><th>Role</th>');
+        $r->print(&Apache::loncommon::end_data_table_row());
+        foreach my $role (sort keys %coursepersonnel) {
+            foreach (split(/\,/,$coursepersonnel{$role})) {
+                my ($puname,$pudom)=split(/\:/,$_);
+                $r->print(&Apache::loncommon::start_data_table_row());
+                $r->print('<td><label>'.
+                          '<input type="checkbox" name="send_to_&&&&&&_'.
+                          $puname.':'.$pudom.'" /> '.
+                          &Apache::loncommon::plainname($puname,$pudom).
+                          '</label></td>'.
+                          '<td>('.$_.'),</td><td><i>'.$role.'</i></td>');
+                $r->print(&Apache::loncommon::end_data_table_row());
+            }
+        }
+        $r->print(&Apache::loncommon::end_data_table());
+    }
+    if (keys(%{$classlist}) > 0) {
+        $r->print('<h3>Students</h3>');
+        $r->print(&Apache::loncommon::start_data_table());
+        $r->print(&Apache::loncommon::start_data_table_row());
+        $r->print('<th>Name</th><th>Username:Domain</th><th>Section</th><th>Groups</th>');
+        $r->print(&Apache::loncommon::end_data_table_row());
+        my $sort = sub {
+	    my $aname=lc($classlist->{$a}[&Apache::loncoursedata::CL_FULLNAME()]);
+	    if (!$aname) { $aname=$a; }
+	    my $bname=lc($classlist->{$b}[&Apache::loncoursedata::CL_FULLNAME()]);
+	    if (!$bname) { $bname=$b; }
+	    return $aname cmp $bname;
+        };
+        foreach my $student (sort $sort (keys(%{$classlist}))) {
+	    my $info=$classlist->{$student};
+            my ($sname,$sdom,$status,$fullname,$section) =
+                (@{$info}[&Apache::loncoursedata::CL_SNAME(),
+                          &Apache::loncoursedata::CL_SDOM(),
+                          &Apache::loncoursedata::CL_STATUS(),
+                          &Apache::loncoursedata::CL_FULLNAME(),
+                          &Apache::loncoursedata::CL_SECTION()]);
+            next if ($status ne 'Active');
+	    next if ($env{'request.course.sec'} &&
+		     $section ne $env{'request.course.sec'});
+            my @studentsgroups = &Apache::loncoursedata::get_students_groups(
+                                               $student,$status,$classgroups);
+            my $grouplist = join(', ',@studentsgroups);
+            my $key = 'send_to_&&&'.$section.'&&&_'.$student;
+            if (! defined($fullname) || $fullname eq '') {$fullname = $sname;}
+            my $checked = '';
+            my $groupcount = 0;
+            my $groupitems;
+            $r->print(&Apache::loncommon::start_data_table_row());
+            $r->print('<td><label>');
+            foreach my $group (@studentsgroups) {
+                $groupcount ++;
+                $groupitems .= ('<input type="hidden" name="group_&&&'.
+                                $group.'&&&_'.$student.'" value="'.
+                                $groupcount.'" />');
+                if (defined($env{'form.group'})) {
+                    if ($env{'form.group'} eq $group) {
+                        $checked = 'checked=checked';
+                    }
+                }
+            }
+            $r->print(qq{<input type="checkbox" name="$key" $checked />}.
+                      ('&nbsp;'x2).$fullname.'</label>'.$groupitems.
+                      '</td><td>'.$sname.':'.$sdom.'</td><td>'.$section.
+                      '</td><td>'.$grouplist.'</td>');
+            $r->print(&Apache::loncommon::end_data_table_row());
+        }
+        $r->print(&Apache::loncommon::end_data_table());
     }
-    $r->print('</table>');
 }
 
 # ==================================================== Display Critical Message
@@ -1291,8 +1338,8 @@ sub display_blocker_status {
         'modi' => 'Modify',
         'canc' => 'Cancel',
     );
+    $r->print(&Apache::loncommon::start_data_table());
     $r->print(<<"END");
-<table class="LC_data_table">
   <tr>
     <th>$$ltext{'dura'}</th>
     <th>$$ltext{'setb'}</th>
@@ -1300,26 +1347,27 @@ sub display_blocker_status {
     <th>$$ltext{'actn'}?</th>
   </tr>
 END
-    foreach (sort keys %{$records}) {
-        my $iter = $parmcount%2;
+    foreach my $record (sort(keys(%{$records}))) {
         my $onchange = 'onFocus="javascript:window.document.forms['.
                        "'blockform'].elements['modify_".$parmcount."'].".
                        'checked=true;"';
-        my ($start,$end) = split/____/,$_;
+        my ($start,$end) = split(/____/,$record);
         my $startform = &Apache::lonhtmlcommon::date_setter('blockform','startdate_'.$parmcount,$start,$onchange);
         my $endform = &Apache::lonhtmlcommon::date_setter('blockform','enddate_'.$parmcount,$end,$onchange);
 	
-	my ($setuname,$setudom,$title) = &parse_block_record($$records{$_});
+	my ($setuname,$setudom,$title) = 
+	    &parse_block_record($$records{$record});
+	$title = &HTML::Entities::encode($title,'"<>');
         my $settername = &Apache::loncommon::plainname($setuname,$setudom);
+        $r->print(&Apache::loncommon::start_data_table_row());
         $r->print(<<"END");
-       <tr>
         <td>$$ltext{'star'}:&nbsp;$startform<br/>$$ltext{'endd'}:&nbsp;&nbsp;$endform</td>
         <td>$settername</td>
-        <td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$_" /></td>
+        <td><input type="text" name="title_$parmcount" size="15" value="$title" /><input type="hidden" name="key_$parmcount" value="$record" /></td>
         <td><label>$lt{'modi'}?&nbsp;<input type="checkbox" name="modify_$parmcount" /></label><br /><label>$lt{'canc'}?&nbsp;&nbsp;<input type="checkbox" name="cancel_$parmcount" /></label>
-       </tr>
 END
-        $parmcount ++;
+        $r->print(&Apache::loncommon::end_data_table_row());
+        $parmcount++;
     }
     $r->print(<<"END");
 </table>
@@ -1358,19 +1406,23 @@ sub display_addblocker_table {
     );
     $r->print(<<"END");
 <h4>$lt{'addn'}</h4> 
- <table class="LC_data_table">
+END
+    $r->print(&Apache::loncommon::start_data_table());
+    $r->print(<<"END");
    <tr>
      <th>$$ltext{'dura'}</th>
      <th>$$ltext{'even'} $lt{'exam'}</th>
      <th>$$ltext{'actn'}?</th>
    </tr>
-   <tr>
+END
+   $r->print(&Apache::loncommon::start_data_table_row());
+    $r->print(<<"END");
      <td>$$ltext{'star'}:&nbsp;$startform<br />$$ltext{'endd'}:&nbsp;&nbsp;$endform</td>
      <td><input type="text" name="title_$parmcount" size="15" value="" /></td>
      <td><label>$lt{'addb'}?&nbsp;<input type="checkbox" name="add_$parmcount" value="1" /></label></td>
-   </tr>
-  </table>
 END
+    $r->print(&Apache::loncommon::end_data_table_row());
+    $r->print(&Apache::loncommon::end_data_table());
     return;
 }
 
@@ -1388,12 +1440,9 @@ sub blockcheck {
     # for students.
     return if (!%live_courses);
 
-    &Apache::lonnet::logthis("hmm");
-    &Apache::lonnet::logthis(join(" ",%live_courses));
-    &Apache::lonnet::logthis(join(" ",%staff_of));
-
     foreach my $course (keys(%live_courses)) {
-	my ($cdom,$cnum) = split(/_/,$course);
+	my $cdom = $env{'course.'.$course.'.domain'};
+	my $cnum = $env{'course.'.$course.'.num'};
 
 	# if they are a staff member and are currently not playing student
 	next if ( $staff_of{$course} 
@@ -1428,31 +1477,35 @@ sub build_block_table {
         'cour' => 'Course',
         'dura' => 'Duration',
         'blse' => 'Block set by'
-    ); 
+    );
+    $r->print(<<"END");
+<br /><br />$lt{'cacb'}:<br /><br />
+END
+    $r->print(&Apache::loncommon::start_data_table());
     $r->print(<<"END");
-<br /<br />$lt{'cacb'}:<br /><br />
-<table class="LC_data_table">
 <tr>
  <th>$lt{'cour'}</th>
  <th>$lt{'dura'}</th>
  <th>$lt{'blse'}</th>
 </tr>
 END
-    foreach (keys %{$setters}) {
-        my %courseinfo=&Apache::lonnet::coursedescription($_);
-        for (my $i=0; $i<@{$$setters{$_}{staff}}; $i++) {
-            my ($uname,$udom) = @{$$setters{$_}{staff}[$i]};
+    foreach my $course (keys(%{$setters})) {
+        my %courseinfo=&Apache::lonnet::coursedescription($course);
+        for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) {
+            my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};
             my $fullname = &Apache::loncommon::plainname($uname,$udom);
-            my ($openblock,$closeblock) = @{$$setters{$_}{times}[$i]};
+            my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};
             $openblock = &Apache::lonlocal::locallocaltime($openblock);
             $closeblock= &Apache::lonlocal::locallocaltime($closeblock);
-            $r->print('<tr><td>'.$courseinfo{'description'}.'</td>'.
+            $r->print(&Apache::loncommon::start_data_table_row().
+		      '<td>'.$courseinfo{'description'}.'</td>'.
                       '<td>'.$openblock.' to '.$closeblock.'</td>'.
                       '<td>'.$fullname.' ('.$uname.':'.$udom.
-                      ')</td></tr>');
+                      ')</td>'.
+		       &Apache::loncommon::end_data_table_row());
         }
     }
-    $r->print('</table>');
+    $r->print(&Apache::loncommon::end_data_table());
 }
 
 # ----------------------------------------------------------- Display a message
@@ -1852,7 +1905,7 @@ sub handler {
         ['display','replyto','forward','markread','markdel','markunread',
          'sendreply','compose','sendmail','critical','recname','recdom',
          'recordftf','sortedby','block','folder','startdis','interdis',
-	 'showcommentbaseurl','dismode']);
+	 'showcommentbaseurl','dismode','group']);
     $sqs='&sortedby='.$env{'form.sortedby'};
 
 # ------------------------------------------------------ They checked for email