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

Diff for /loncom/interface/lonfeedback.pm between versions 1.385 and 1.386

version 1.385, 2021/10/18 22:29:20 version 1.386, 2021/10/20 16:15:04
Line 136  sub list_discussion { Line 136  sub list_discussion {
         }          }
     }      }
   
     my ($blocked,$blocktext) =   
         &Apache::loncommon::blocking_status('boards');  
     if ($blocked) {  
         $blocktext = '<br /><div class="LC_feedback_link"><span class="LC_feedback_link">'.$blocktext."</span>";  
         &Apache::lonenc::check_encrypt(\$ressymb);  
         if ($mode ne 'board') {  
             ($nofooter,$nodisclink,$nofdbklink) = &check_menucoll();  
             unless ($nofooter || $nofdbklink) {  
                 $blocktext.=&send_message_link($ressymb);  
             }  
             $blocktext.='</div>';  
         }else{  
             $blocktext.="</div>";  
         }  
         return $blocktext;   
     }  
   
     unless ($outputtarget eq 'export') {      unless ($outputtarget eq 'export') {
         ($nofooter,$nodisclink,$nofdbklink) = &check_menucoll();          ($nofooter,$nodisclink,$nofdbklink) = &check_menucoll();
     }      }
   
       unless ($nofooter) {
           my ($blocked,$blocktext) = 
               &Apache::loncommon::blocking_status('boards');
           if ($blocked) {
               my $footer = '<br /><div class="LC_feedback_link">';
               unless ($nodisclink) {
                   $footer .= '<span class="LC_feedback_link">'.$blocktext.'</span>';
               }
               &Apache::lonenc::check_encrypt(\$ressymb);
               if ($mode ne 'board') {
                   unless ($nofdbklink) {
                       $footer.=&send_message_link($ressymb);
                   }
               }
               $footer.='</div>';
               return $footer;
           }
       }
   
     my @bgcols = ("LC_disc_old_item","LC_disc_new_item");      my @bgcols = ("LC_disc_old_item","LC_disc_new_item");
     my $discussiononly=0;      my $discussiononly=0;
     if ($mode eq 'board') { $discussiononly=1; }      if ($mode eq 'board') { $discussiononly=1; }
Removed from v.1.385  
changed lines
  Added in v.1.386

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