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

Diff for /loncom/interface/loncommon.pm between versions 1.1059 and 1.1061

version 1.1059, 2012/03/17 20:11:26 version 1.1061, 2012/03/24 23:35:25
Line 4272  sub parse_block_record { Line 4272  sub parse_block_record {
 }  }
   
 sub blocking_status {  sub blocking_status {
   my ($activity,$uname,$udom) = @_;      my ($activity,$uname,$udom) = @_;
   my %setters;      my %setters;
   
   # check for active blocking  # check for active blocking
   my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);      my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom);
   
   my $blocked = $startblock && $endblock ? 1 : 0;      my $blocked = $startblock && $endblock ? 1 : 0;
   
   # caller just wants to know whether a block is active  # caller just wants to know whether a block is active
   if (!wantarray) { return $blocked; }      if (!wantarray) { return $blocked; }
   
   # build a link to a popup window containing the details  # build a link to a popup window containing the details
   my $querystring  = "?activity=$activity";      my $querystring  = "?activity=$activity";
   # $uname and $udom decide whose portfolio the user is trying to look at  # $uname and $udom decide whose portfolio the user is trying to look at
      $querystring .= "&udom=$udom"      if $udom;      $querystring .= "&udom=$udom"      if $udom;
      $querystring .= "&uname=$uname"    if $uname;      $querystring .= "&uname=$uname"    if $uname;
   
   my $output .= <<'END_MYBLOCK';      my $output .= <<'END_MYBLOCK';
     function openWindow(url, wdwName, w, h, toolbar,scrollbar) {  function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
         var options = "width=" + w + ",height=" + h + ",";      var options = "width=" + w + ",height=" + h + ",";
         options += "resizable=yes,scrollbars="+scrollbar+",status=no,";      options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
         options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";      options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
         var newWin = window.open(url, wdwName, options);      var newWin = window.open(url, wdwName, options);
         newWin.focus();      newWin.focus();
     }  }
 END_MYBLOCK  END_MYBLOCK
   
   $output = Apache::lonhtmlcommon::scripttag($output);      $output = Apache::lonhtmlcommon::scripttag($output);
       
   my $popupUrl = "/adm/blockingstatus/$querystring";      my $popupUrl = "/adm/blockingstatus/$querystring";
   my $text = mt('Communication Blocked');      my $text = mt('Communication Blocked');
   
   $output .= <<"END_BLOCK";      $output .= <<"END_BLOCK";
 <div class='LC_comblock'>  <div class='LC_comblock'>
   <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'    <a onclick='openWindow("$popupUrl","Blocking Table",600,300,"no","no");return false;' href='/adm/blockingstatus/$querystring'
   title='$text'>    title='$text'>
Line 4315  END_MYBLOCK Line 4315  END_MYBLOCK
   
 END_BLOCK  END_BLOCK
   
   return ($blocked, $output);      return ($blocked, $output);
 }  }
   
 ###############################################  ###############################################
Line 5014  sub standard_css { Line 5014  sub standard_css {
     my $mono                 = 'monospace';      my $mono                 = 'monospace';
     my $data_table_head      = $sidebg;      my $data_table_head      = $sidebg;
     my $data_table_light     = '#FAFAFA';      my $data_table_light     = '#FAFAFA';
     my $data_table_dark      = '#F0F0F0';      my $data_table_dark      = '#E0E0E0';
     my $data_table_darker    = '#CCCCCC';      my $data_table_darker    = '#CCCCCC';
     my $data_table_highlight = '#FFFF00';      my $data_table_highlight = '#FFFF00';
     my $mail_new             = '#FFBB77';      my $mail_new             = '#FFBB77';
Line 6101  div.LC_edit_problem_footer { Line 6101  div.LC_edit_problem_footer {
   font-weight: normal;    font-weight: normal;
   font-size:  medium;    font-size:  medium;
   margin: 2px;    margin: 2px;
     background-color: $sidebg;
 }  }
   
 div.LC_edit_problem_header,  div.LC_edit_problem_header,
Line 6117  div.LC_edit_problem_header_title { Line 6118  div.LC_edit_problem_header_title {
   font-size: larger;    font-size: larger;
   background: $tabbg;    background: $tabbg;
   padding: 3px;    padding: 3px;
     margin: 0 0 5px 0;
 }  }
   
 table.LC_edit_problem_header_title {  table.LC_edit_problem_header_title {
Removed from v.1.1059  
changed lines
  Added in v.1.1061

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