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

Diff for /loncom/interface/loncommon.pm between versions 1.865 and 1.867

version 1.865, 2009/07/25 23:16:04 version 1.867, 2009/07/27 11:30:05
Line 3766  sub blockcheck { Line 3766  sub blockcheck {
                  ($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));                   ($env{'request.role'} !~ m{^st\./\Q$cdom\E/\Q$cnum\E}));
         next if ($no_userblock);          next if ($no_userblock);
   
         # Retrieve blocking times and identity of blocker for course          # Retrieve blocking times and identity of locker for course
         # of specified user, unless user has 'evb' privilege.          # of specified user, unless user has 'evb' privilege.
                   
         my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);          my ($start,$end)=&get_blocks($setters,$activity,$cdom,$cnum);
Line 3872  sub build_block_table { Line 3872  sub build_block_table {
     $output .= &end_data_table();      $output .= &end_data_table();
 }  }
 sub blocking_status {  sub blocking_status {
   my $blocked = blocking_status_print(@_);    my $blocked;
   my ($activity,$uname,$udom) = @_;    my ($activity,$uname,$udom) = @_;
     my %setters;
     my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);
     if ($startblock && $endblock) {
       $blocked = 1;
     }
   if(!wantarray) {    if(!wantarray) {
     return $blocked;      return $blocked;
   }    }
   my $output;    my $output;
   my $querystring;    my $querystring;
   $querystring = "?activity=$activity";    $querystring = "?activity=$activity";
   if(defined($uname)) {   
     $querystring .= "&uname=$uname";  
   }if(defined($udom)) {  
     $querystring .= "&udom=$udom";  
   }  
   
       $output .= <<"END_MYBLOCK";        $output .= <<"END_MYBLOCK";
 <script type="text/javascript">  <script type="text/javascript">
Line 3901  sub blocking_status { Line 3901  sub blocking_status {
 </script>  </script>
 END_MYBLOCK  END_MYBLOCK
   my $popupUrl = "/adm/blockingstatus/$querystring";    my $popupUrl = "/adm/blockingstatus/$querystring";
   $output.="\n<img src='/res/adm/pages/emblem-readonly.png' /><a onclick='openWindow(\"$popupUrl\",\"Blocking Table\",600,300,\"no\",\"no\");return false;' href='/adm/blockingstatus/$querystring'>Blocking Table</a>";    $output .= <<"END_BLOCK";
   <div class='LC_comblock'>
     <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'>
     <img class='LC_noBorder LC_middle' src='/res/adm/pages/comblock.png' alt='Communication Blocking'/></a>
     <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'>Communication Blocking</a>
   </div>
   
   END_BLOCK
   
   return ($blocked, $output);    return ($blocked, $output);
 }  }
 sub blocking_status_print {  
     my ($activity,$uname,$udom) = @_;  
     my %setters;  
     my ($blocked,$output,$ownitem,$is_course);  
     my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);  
     if ($startblock && $endblock) {  
         $blocked = 1;  
         if (wantarray) {  
             my $category;  
             if ($activity eq 'boards') {  
                 $category = 'Discussion posts in this course';  
             } 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';  
             }  
             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 .= &build_block_table($startblock,$endblock,\%setters);  
             }  
         }  
     }  
     if (wantarray) {  
         return ($blocked,$output);  
     } else {  
         return $blocked;  
     }  
 }  
   
 ###############################################  ###############################################
   
Line 5441  div.LC_feedback_link { Line 5391  div.LC_feedback_link {
   
 div.LC_feedback_link img {  div.LC_feedback_link img {
   height: 22px;    height: 22px;
     vertical-align:middle;
 }  }
   
 div.LC_feedback_link a{  div.LC_feedback_link a{
   text-decoration: none;    text-decoration: none;
 }  }
   
   div.LC_comblock {
     display:inline; 
     color:$font;
     font-size:90%;
   }
   
   div.LC_feedback_link div.LC_comblock {
     padding-left:5px;
   }
   
   div.LC_feedback_link div.LC_comblock a {
     color:$font;
   }
   
 span.LC_feedback_link {  span.LC_feedback_link {
   /* background: $feedback_link_bg; */    /* background: $feedback_link_bg; */
   font-size: larger;    font-size: larger;
Line 6500  $args - additional optional args support Line 6465  $args - additional optional args support
              inherit_jsmath -> when creating popup window in a page,               inherit_jsmath -> when creating popup window in a page,
                                     should it have jsmath forced on by the                                      should it have jsmath forced on by the
                                     current page                                      current page
                bread_crumbs ->             Array containing breadcrumbs
                bread_crumbs_components ->  if exists show it as headline else show only the breadcrumbs
   
 =back  =back
   
Removed from v.1.865  
changed lines
  Added in v.1.867

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