[BACK]Return to lonblockingstatus.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonblockingstatus.pm between versions 1.2 and 1.4

version 1.2, 2009/07/09 12:53:28 version 1.4, 2009/07/27 11:30:05
Line 31  package Apache::lonblockingstatus; Line 31  package Apache::lonblockingstatus;
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
   use Apache::lonnet;
   use GDBM_File;
   use POSIX qw(strftime mktime);
   use Apache::lonmenu();
   use Apache::lonenc();
   use Apache::lonlocal;
   use Apache::lonnet();
   use HTML::Entities;
   use Apache::lonhtmlcommon();
   use Apache::loncoursedata();
   use Apache::lontexconvert();
   use Apache::lonclonecourse();
   use LONCAPA qw(:DEFAULT :match);
   use DateTime::TimeZone;
   use DateTime::Locale::Catalog;
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 43  sub handler { Line 58  sub handler {
         Apache::loncommon::start_page(          Apache::loncommon::start_page(
             'Communication Blocking Status Information',              'Communication Blocking Status Information',
             undef, {'only_body' => 1, }));              undef, {'only_body' => 1, }));
       Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['activity']);
     my ($blocked, $blocktext) = &Apache::loncommon::blocking_status_print('boards');      my ($blocked, $blocktext) = print_blocking_table($env{'form.activity'});
     $r->print($blocktext);      $r->print($blocktext);
   
     $r->print(Apache::loncommon::end_page());      $r->print(Apache::loncommon::end_page());
     return OK;      return OK;
 }  }
   sub print_blocking_table{
       my ($activity,$uname,$udom) = @_;
       my %setters;
       my ($blocked,$output,$ownitem,$is_course);
       my ($startblock,$endblock)=&Apache::loncommon::blockcheck(\%setters,$activity,$uname,$udom);
       if ($startblock && $endblock) {
           $blocked = 1;
               my $category;
               if ($activity eq 'boards') {
                   $category = 'Discussion posts in this course';
               } elsif ($activity eq 'chat') {
                   $category = 'Chat';
               } elsif ($activity eq 'msgdisplay') {
                   $category = 'This message';
               } elsif ($activity eq 'blogs') {
                   $category = 'Blogs';
               } elsif ($activity eq 'port') {
                   if (defined($uname) && defined($udom)) {
                       if ($uname eq $env{'user.name'} &&
                           $udom eq $env{'user.domain'}) {
                           $ownitem = 1;
                       }
                   }
                   $is_course = &Apache::lonnet::is_course($udom,$uname);
                   if ($ownitem) {
                       $category = 'Your portfolio files';
                   } elsif ($is_course) {
                       my $coursedesc;
                       foreach my $course (keys(%setters)) {
                           my %courseinfo =
                                &Apache::lonnet::coursedescription($course);
                           $coursedesc = $courseinfo{'description'};
                       }
                       $category = "Group portfolio in the course '$coursedesc'";
                   } else {
                       $category = 'Portfolio files belonging to ';
                       if ($env{'user.name'} eq 'public' &&
                           $env{'user.domain'} eq 'public') {
                           $category .= &plainname($uname,$udom);
                       } else {
                           $category .= &aboutmewrapper(&plainname($uname,$udom),$uname,$udom);
                       }
                   }
               } elsif ($activity eq 'groups') {
                   $category = 'Groups in this course';
               } else {
                   $category = 'Communication';
               }
               my $showstart = &Apache::lonlocal::locallocaltime($startblock);
               my $showend = &Apache::lonlocal::locallocaltime($endblock);
               $output = '<br />'.&mt('[_1] will be inaccessible between [_2] and [_3] because communication is being blocked.',$category,$showstart,$showend).'<br />';
               if (!($activity eq 'port' && !($ownitem) && !($is_course))) {
                   $output .= &Apache::loncommon::build_block_table($startblock,$endblock,\%setters);
               }
       }
       return ($blocked,$output);
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.2  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>