--- loncom/interface/loncommon.pm	2006/11/21 21:38:44	1.472
+++ loncom/interface/loncommon.pm	2006/11/29 15:38:22	1.475
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.472 2006/11/21 21:38:44 raeburn Exp $
+# $Id: loncommon.pm,v 1.475 2006/11/29 15:38:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1377,6 +1377,23 @@ sub select_form {
     return $selectform;
 }
 
+# For display filters
+
+sub display_filter {
+    if (!$env{'form.show'}) { $env{'form.show'}=10; }
+    return '<nobr><label>'.&mt('Records [_1]',
+			       &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
+							   (&mt('all'),10,20,50,100,1000,10000))).
+	   '</label></nobr> <nobr><label>'.
+           &mt('Filter [_1]',
+	   &select_form(($env{'form.displayfilter'}?$env{'form.displayfilter'}:'currentfolder'),
+					'displayfilter',
+					('currentfolder' => 'Current folder',
+					 'containing' => 'Containing phrase',
+					 'none' => 'None'))).
+	   '<input type="text" name="containingphrase" size="30" /></label></nobr>';
+}
+
 sub gradeleveldescription {
     my $gradelevel=shift;
     my %gradelevels=(0 => 'Not specified',
@@ -2792,8 +2809,9 @@ sub findallcourses {
     my %courses;
     my $now=time;
     foreach my $key (keys(%env)) {
-	if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)} ) {
-	    my ($role,$domain,$id) = ($1,$2,$3);
+	if ( $key=~m{^user\.role\.(\w+)\./(\w+)/(\w+)/?(\w*)$} ||
+             $key=~m{^user\.role\.(cr/\w+/\w+/\w+)\./(\w+)/(\w+)}) {
+	    my ($role,$domain,$id,$sec) = ($1,$2,$3,$4);
 	    next if ($role eq 'ca' || $role eq 'aa');
 	    next if (%roles && !exists($roles{$role}));
 	    my ($starttime,$endtime)=split(/\./,$env{$key});
@@ -2804,13 +2822,131 @@ sub findallcourses {
             if ($endtime) {
                 if ($now>$endtime) { $active=0; }
             }
-            if ($active) { $courses{$domain.'_'.$id}=1; }
+            if ($active) {
+                if ($sec eq '') {
+                    $sec = 'none';
+                }
+                $courses{$domain.'_'.$id}{$sec} = 1;
+            }
         }
     }
-    return keys(%courses);
+    return %courses;
 }
 
 ###############################################
+
+sub blockcheck {
+    my ($setters,$activity) = @_;
+    # Retrieve active student roles and active course coordinator/instructor roles
+
+    my %live_courses = &findallcourses();
+
+    # Retrieve blocking times and identity of blocker for active courses
+    # unless user has 'evb' privilege.
+
+    my $startblock = 0;
+    my $endblock = 0;
+
+    foreach my $course (keys(%live_courses)) {
+        my $cdom = $env{'course.'.$course.'.domain'};
+        my $cnum = $env{'course.'.$course.'.num'};
+        my $noblock = 0;
+        foreach my $sec (keys(%{$live_courses{$course}})) {
+            my $role = 'cm./'.$cdom.'/'.$cnum;
+            if ($sec ne 'none') {
+                $role .= '/'.$sec;
+            }
+            if (&Apache::lonnet::allowed('evb',undef,undef,$role)) {
+                $noblock = 1;
+                last;
+            }
+        }
+        # if they have the evb priv and are currently not playing student
+        next if (($noblock) &&
+                 ($env{'request.role'} !~ m{^st\./$cdom/$cnum}));
+
+        $setters->{$course} = {};
+        $setters->{$course}{'staff'} = [];
+        $setters->{$course}{'times'} = [];
+        my %records = &Apache::lonnet::dump('comm_block',$cdom,$cnum);
+        foreach my $record (keys(%records)) {
+            my ($start,$end) = ($record =~ m/^(\d+)____(\d+)$/);
+            if ($start <= time && $end >= time) {
+                my ($staff_name,$staff_dom,$title,$blocks) =
+                    &parse_block_record($records{$record});
+                if ($blocks->{$activity} eq 'on') {
+                    push(@{$$setters{$course}{'staff'}}, [$staff_name,$staff_dom]);                    push(@{$$setters{$course}{'times'}}, [$start,$end]);
+                    if ( ($startblock == 0) || ($startblock > $1) ) {
+                        $startblock = $1;
+                    }
+                    if ( ($endblock == 0) || ($endblock < $2) ) {
+                        $endblock = $2;
+                    }
+                }
+            }
+        }
+    }
+    return ($startblock,$endblock);
+}
+
+sub parse_block_record {
+    my ($record) = @_;
+    my ($setuname,$setudom,$title,$blocks);
+    if (ref($record) eq 'HASH') {
+        ($setuname,$setudom) = split(/:/,$record->{'setter'});
+        $title = &unescape($record->{'event'});
+        $blocks = $record->{'blocks'};
+
+    } else {
+        my @data = split(/:/,$record,3);
+        if (scalar(@data) eq 2) {
+            $title = $data[1];
+            ($setuname,$setudom) = split(/@/,$data[0]);
+        } else {
+            ($setuname,$setudom,$title) = @data;
+        }
+        $blocks = { 'com' => 'on' };
+    }
+    return ($setuname,$setudom,$title,$blocks);
+}
+
+sub build_block_table {
+    my ($startblock,$endblock,$setters) = @_;
+    my %lt = &Apache::lonlocal::texthash(
+        'cacb' => 'Currently active communication blocks',
+        'cour' => 'Course',
+        'dura' => 'Duration',
+        'blse' => 'Block set by'
+    );
+    my $output;
+    $output = '<br /><br />'.$lt{'cacb'}.':<br /><br />';
+    $output .= &start_data_table();
+    $output .= '
+<tr>
+ <th>'.$lt{'cour'}.'</th>
+ <th>'.$lt{'dura'}.'</th>
+ <th>'.$lt{'blse'}.'</th>
+</tr>
+';
+    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{$course}{times}[$i]};
+            $openblock = &Apache::lonlocal::locallocaltime($openblock);
+            $closeblock= &Apache::lonlocal::locallocaltime($closeblock);
+            $output .= &Apache::loncommon::start_data_table_row().
+                       '<td>'.$courseinfo{'description'}.'</td>'.
+                       '<td>'.$openblock.' to '.$closeblock.'</td>'.
+                       '<td>'.$fullname.' ('.$uname.':'.$udom.
+                       ')</td>'.
+                        &Apache::loncommon::end_data_table_row();
+        }
+    }
+    $output .= &end_data_table();
+}
+
 ###############################################
 
 =pod
@@ -3514,6 +3650,19 @@ table.LC_whatsnew tr.LC_odd_row td {
   background-color: #EEE;
 }
 
+table.LC_createuser {
+}
+
+table.LC_createuser tr.LC_section_row td {
+  font-size: smaller;
+}
+
+table.LC_createuser tr.LC_info_row td  {
+  background-color: #CCC;
+  font-weight: bold;
+  text-align: center;
+}
+
 table.LC_calendar {
   border: 1px solid #000000;
   border-collapse: collapse;