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

Diff for /loncom/interface/lonfeedback.pm between versions 1.234 and 1.235

version 1.234, 2006/12/09 16:07:34 version 1.235, 2006/12/11 04:10:35
Line 100  sub list_discussion { Line 100  sub list_discussion {
         }          }
     }      }
   
     my ($blocked,$blocktext) = &blocking_posts('boards',1);      my ($blocked,$blocktext) = 
           &Apache::loncommon::blocking_status('boards');
     if ($blocked) {      if ($blocked) {
         &Apache::lonenc::check_encrypt(\$ressymb);          &Apache::lonenc::check_encrypt(\$ressymb);
         if ($mode ne 'board') {          if ($mode ne 'board') {
Line 823  sub action_links_bar { Line 824  sub action_links_bar {
     return $discussion;      return $discussion;
 }  }
   
 sub blocking_posts {  
     my ($type,$showstatus) = @_;  
     my %setters;  
     my ($blocked,$output);  
     my ($startblock,$endblock) =  
           &Apache::loncommon::blockcheck(\%setters,$type);  
     if ($startblock && $endblock) {  
         $blocked = 1;  
         if ($showstatus) {  
             my $showstart = &Apache::lonlocal::locallocaltime($startblock);  
             my $showend = &Apache::lonlocal::locallocaltime($endblock);  
             $output = '<br />'.&mt('Discussion postings will not be viewable for resources in this course between [_1] and [_2] because communication is being blocked.',$showstart, $showend).'<br />'.  
                     &Apache::loncommon::build_block_table($startblock,$endblock,  
                                                          \%setters);  
         }  
     }  
     return ($blocked,$output);  
 }  
   
 sub postingform_display {  sub postingform_display {
     my ($mode,$ressymb,$now,$subject,$comment,$outputtarget,$attachnum,      my ($mode,$ressymb,$now,$subject,$comment,$outputtarget,$attachnum,
         $currnewattach,$currdelold,$group) = @_;          $currnewattach,$currdelold,$group) = @_;
Line 878  ENDDISCUSS Line 860  ENDDISCUSS
     if ($group ne '') {      if ($group ne '') {
         $postingform .='<input type="hidden" name="group" value="'.$group.'" />';          $postingform .='<input type="hidden" name="group" value="'.$group.'" />';
     }      }
     my ($blockblog) = &blocking_posts('blogs');      my $blockblog = &Apache::loncommon::blocking_status('blogs');
     if (!$blockblog) {      if (!$blockblog) {
         $postingform .= &add_blog_checkbox();          $postingform .= &add_blog_checkbox();
     }      }
Line 1764  END Line 1746  END
         if (@currnewattach > 0) {          if (@currnewattach > 0) {
             $attachnum += @currnewattach;              $attachnum += @currnewattach;
         }          }
         my ($blockblog) = &blocking_posts('blogs');          my $blockblog = &Apache::loncommon::blocking_status('blogs');
         $r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog));          $r->print(&generate_attachments_button($postidx,$attachnum,$ressymb,$now,\@currnewattach,\@currdelold,$numoldver,'',$blockblog));
         if ($attachnum > 0) {          if ($attachnum > 0) {
             if (@currnewattach > 0) {              if (@currnewattach > 0) {
Line 2608  sub screen_header { Line 2590  sub screen_header {
  ' <i>('.&mt('name only visible to course faculty').')</i></label> '.   ' <i>('.&mt('name only visible to course faculty').')</i></label> '.
  '<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';   '<a href="/adm/preferences?action=changescreenname">'.&mt('Change Screenname').'</a>';
         }          }
         my ($blockblog) = &blocking_posts('blogs');          my $blockblog = &Apache::loncommon::blocking_status('blogs');
         if (!$blockblog) {          if (!$blockblog) {
             $discussoptions.= &add_blog_checkbox();              $discussoptions.= &add_blog_checkbox();
         }          }
Line 3791  ENDREDIR Line 3773  ENDREDIR
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
           if (($env{'form.replydisc'}) || ($env{'form.editdisc'})) {            if (($env{'form.replydisc'}) || ($env{'form.editdisc'})) {
               my ($blocked,$blocktext) = &blocking_posts('boards',1);                my ($blocked,$blocktext) = 
                        &Apache::loncommon::blocking_status('boards');
               if ($blocked) {                if ($blocked) {
                   $r->print(&blocked_reply_or_edit($blocktext));                    $r->print(&blocked_reply_or_edit($blocktext));
                   return OK;                    return OK;
Removed from v.1.234  
changed lines
  Added in v.1.235

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