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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.39 and 1.44

version 1.39, 2005/12/19 21:39:37 version 1.44, 2006/01/06 21:52:19
Line 58  sub handler { Line 58  sub handler {
     my $command = $env{'form.command'};      my $command = $env{'form.command'};
     my $refpage = $env{'form.refpage'};      my $refpage = $env{'form.refpage'};
   
     &Apache::loncommon::content_type($r,'text/html');      my %checkallowed = ( coursenormalmail => 1,
     $r->send_http_header;   coursecritmail => 1, );
     my $crsid = $env{'request.course.id'};      foreach my $perm_check (['whn','whatsnew',1],
     $crsid =~ s/_/\//;       ['pch','coursediscussion',1],
     if ((!($env{'request.course.id'})) ||       ['mgr','handgrading',1],
                              ($env{'request.role'} !~ /\Q$crsid\E$/)) {      ['vgr','abovethreshold',1],
         # Not in a course, or no role in course      ['opa','haserrors',1],
         $env{'user.error.msg'}="/adm/whatsnew::0:0:Cannot display what's new screen";      ['mdc','versionchanges',0],
       ) {
    my ($perm,$key,$check_section) = @{ $perm_check };
    my $scope = $env{'request.course.id'};
    if (!($checkallowed{$key} = &Apache::lonnet::allowed($perm,$scope))) {
       $scope .= '/'.$env{'request.course.sec'};
       if ( $check_section ) {
    $checkallowed{$key} = &Apache::lonnet::allowed($perm,$scope);
       }
       if ($checkallowed{$key}) {
    $checkallowed{$key.'_section'} = $env{'request.course.sec'};
       }
    }
       }
   
       if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) {
           # Not in a course, or no whn priv in course
           $env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page";
         return HTTP_NOT_ACCEPTABLE;          return HTTP_NOT_ACCEPTABLE;
     }      }
   
     my %checkallowed = (      &Apache::loncommon::content_type($r,'text/html');
              coursediscussion => &Apache::lonnet::allowed('pch',$env{'request.course.id'}),      $r->send_http_header;
              handgrading => &Apache::lonnet::allowed('mgr',$env{'request.course.id'}),  
              abovethreshold => &Apache::lonnet::allowed('vgr',$env{'request.course.id'}),  
              haserrors => &Apache::lonnet::allowed('opa',$env{'request.course.id'}),  
              versionchanges => &Apache::lonnet::allowed('opa',$env{'request.course.id'}),  
              coursenormalmail => 1,  
              coursecritmail => 1,  
     );  
   
     $r->print(&display_header($command,\%checkallowed));      $r->print(&display_header($command,\%checkallowed));
   
Line 85  sub handler { Line 95  sub handler {
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew',              ({href=>'/adm/whatsnew',
               text=>"Display Action Items"});                text=>"Display Action Items"});
     if (($command eq 'chgthreshold') && (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {      if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage,
               text=>"Change thresholds"});                text=>"Change thresholds"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,'Course Action Items','Course_Action_Items_Thresholds'));              (undef,"What's New?",'Course_Action_Items_Thresholds'));
     } elsif (($command eq 'chginterval') && (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {      } elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage,
               text=>"Change interval"});                text=>"Change interval"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,'Course Action Items','Course_Action_Items_Intervals'));              (undef,"What's New?",'Course_Action_Items_Intervals'));
     } elsif (($command eq 'chgdisc') && (&Apache::lonnet::allowed('pch',$env{'request.course.id'}))) {      } elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage,
               text=>"Change discussion display"});                text=>"Change discussion display"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,'Course Action Items','Course_Action_Items_Intervals'));              (undef,"What's New?",'Course_Action_Items_Intervals'));
     } elsif ($command eq 'courseinit') {      } elsif ($command eq 'courseinit') {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
             ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage,              ({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage,
               text=>"Course initialization preference"});                text=>"Course initialization preference"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,'Course Action Items','Course_Action_Items_Initialization'));              (undef,"What's New?",'Course_Action_Items_Initialization'));
     } else {      } else {
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
             (undef,'Course Action Items','Course_Action_Items_Display'));              (undef,"What's New?",'Course_Action_Items_Display'));
     }      }
     &display_main_box($r,$command,$refpage,\%checkallowed);      &display_main_box($r,$command,$refpage,\%checkallowed);
     return OK;      return OK;
Line 126  sub handler { Line 136  sub handler {
 sub display_main_box {  sub display_main_box {
     my ($r,$command,$refpage,$checkallowed) = @_;      my ($r,$command,$refpage,$checkallowed) = @_;
     my $domain=&Apache::loncommon::determinedomain();      my $domain=&Apache::loncommon::determinedomain();
     my $tabbg=&Apache::loncommon::designparm('coordinator.tabbg',$domain);      my $function = &Apache::loncommon::get_users_function();
       my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
     $r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">');      $r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">');
   
     my %threshold_titles = &Apache::lonlocal::texthash (      my %threshold_titles = &Apache::lonlocal::texthash (
Line 151  sub display_main_box { Line 162  sub display_main_box {
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
   
     if (($command eq 'chgthreshold') &&       if (($command eq 'chgthreshold') 
                (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {   && $checkallowed->{'abovethreshold'}) {
         &display_threshold_config($r,$refpage,$tabbg,\%threshold_titles,          &display_threshold_config($r,$refpage,$tabbg,\%threshold_titles,
                                                                    $cdom,$crs);                                                                     $cdom,$crs);
     } elsif (($command eq 'chginterval') &&       } elsif (($command eq 'chginterval') 
                (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {       && $checkallowed->{'versionchanges'}) {
         &display_interval_config($r,$refpage,\%interval_titles);          &display_interval_config($r,$refpage,\%interval_titles);
     } elsif (($command eq 'chgdisc') &&       } elsif (($command eq 'chgdisc') 
                (&Apache::lonnet::allowed('pch',$env{'request.course.id'}))) {       && $checkallowed->{'coursediscussion'}) {
         &display_discussion_config($r,$refpage);          &display_discussion_config($r,$refpage);
     } elsif ($command eq 'courseinit') {      } elsif ($command eq 'courseinit') {
         &courseinit_config($r,$refpage,\%initpage);          &courseinit_config($r,$refpage,\%initpage);
     } else {      } else {
         &display_actions_box($r,$command,$refpage,\%threshold_titles,          &display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles,
                         \%interval_titles,\%initpage,$cdom,$crs,$checkallowed);                          \%interval_titles,\%initpage,$cdom,$crs,$checkallowed);
     }      }
     $r->print(<<END_OF_BLOCK);      $r->print(<<END_OF_BLOCK);
Line 199  function change_display(caller,change) { Line 210  function change_display(caller,change) {
 function changeAll(change) {  function changeAll(change) {
 END  END
         foreach my $item (keys(%{$checkallowed})) {          foreach my $item (keys(%{$checkallowed})) {
       if ($item =~ /_section$/) { next; }
             if ($$checkallowed{$item}) {              if ($$checkallowed{$item}) {
                 $scripttag.='document.visible.display_'.$item.'.value=change'.                  $scripttag.='document.visible.display_'.$item.'.value=change'.
                             "\n";                              "\n";
Line 227  ENDHEAD Line 239  ENDHEAD
 #-------------------------------  #-------------------------------
                                                                                                                                                                   
 sub display_actions_box {  sub display_actions_box {
     my ($r,$command,$refpage,$threshold_titles,$interval_titles,$initpage,      my ($r,$tabbg,$command,$refpage,$threshold_titles,$interval_titles,
                                                 $cdom,$crs,$checkallowed) = @_;                                        $initpage,$cdom,$crs,$checkallowed) = @_;
     my $rowColor1 = "#ffffff";      my $rowColor1 = "#ffffff";
     my $rowColor2 = "#eeeeee";      my $rowColor2 = "#eeeeee";
   
Line 263  sub display_actions_box { Line 275  sub display_actions_box {
     my $needitems = 0;      my $needitems = 0;
     my $boxcount = 0;      my $boxcount = 0;
   
     my $domain=&Apache::loncommon::determinedomain();  
     my $function;  
     if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {  
         $function='coordinator';  
     }  
     if ($env{'request.role'}=~/^(su|dc|ad|li)/) {  
         $function='admin';  
     }  
   
     my $result;      my $result;
     if ($command eq 'newcourseinit') {      if ($command eq 'newcourseinit') {
         $result = &store_courseinit_setting($uname,$udom,$cid,$initpage);          $result = &store_courseinit_setting($uname,$udom,$cid,$initpage);
Line 284  sub display_actions_box { Line 287  sub display_actions_box {
                      );                       );
     my %pagedesc = &Apache::lonlocal::texthash (      my %pagedesc = &Apache::lonlocal::texthash (
                      firstres => 'First resource',                       firstres => 'First resource',
                      whatsnew => "What's New page",                       whatsnew => "What's New? page",
                      userpref => 'user preference',                       userpref => 'user preference',
                      coursespecific => 'course only',                       coursespecific => 'course only',
                      default => 'default',                       default => 'default',
Line 293  sub display_actions_box { Line 296  sub display_actions_box {
     my ($initcontrol,$initdisp) = &curr_courseinit();      my ($initcontrol,$initdisp) = &curr_courseinit();
     my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')';      my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')';
   
     my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);  
     my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);  
   
     unless ($cid) {      unless ($cid) {
         $r->print('<br /><b><center>'.$lt{'yacc'}.'</center></b><br /><br />');          $r->print('<br /><b><center>'.$lt{'yacc'}.'</center></b><br /><br />');
         return;          return;
Line 374  sub display_actions_box { Line 374  sub display_actions_box {
     my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');      my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');
   
     foreach my $key (keys(%{$checkallowed})) {      foreach my $key (keys(%{$checkallowed})) {
    if ($key =~ /_section$/) { next; }
         $show{$key} = 0;          $show{$key} = 0;
         if ($$checkallowed{$key}) {          if ($$checkallowed{$key}) {
             unless ($display_settings{$cid.':'.$key} eq 'hide') {              unless ($display_settings{$cid.':'.$key} eq 'hide') {
Line 405  sub display_actions_box { Line 406  sub display_actions_box {
      &nbsp;&nbsp;<a href="javascript:changeAll('show');">$lt{'shal'}</a>       &nbsp;&nbsp;<a href="javascript:changeAll('show');">$lt{'shal'}</a>
      <form method="post" name="visible" action="/adm/whatsnew">\n|);       <form method="post" name="visible" action="/adm/whatsnew">\n|);
     foreach my $item (keys(%{$checkallowed})) {      foreach my $item (keys(%{$checkallowed})) {
    if ($item =~ /_section$/) { next; }
         if ($$checkallowed{$item}) {          if ($$checkallowed{$item}) {
             $r->print('<input type="hidden" name="display_'.$item.'" />'."\n");              $r->print('<input type="hidden" name="display_'.$item.'" />'."\n");
         }          }
Line 413  sub display_actions_box { Line 415  sub display_actions_box {
     $r->print('<input type="hidden" name="refpage" value="'.$refpage.'"></form><br /><table border="0" width="100%" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%">');      $r->print('<input type="hidden" name="refpage" value="'.$refpage.'"></form><br /><table border="0" width="100%" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%">');
   
     my $displayed = 0;      my $displayed = 0;
     my $totalboxes = keys(%{$checkallowed});      my $totalboxes = 0;
       foreach my $key (keys(%{$checkallowed})) {
    if ($key =~ /_section$/) { next; }
    if ($key eq 'whatsnew' ) { next; } # whatsnew check creates no box
           if ($$checkallowed{$key}) {
               $totalboxes ++;
           }
       }
     my $halfway = int($totalboxes/2) + $totalboxes%2;      my $halfway = int($totalboxes/2) + $totalboxes%2;
     foreach my $actionitem (@actionorder) {      foreach my $actionitem (@actionorder) {
         if ($$checkallowed{$actionitem}) {          if ($$checkallowed{$actionitem}) {
             if ($displayed == $halfway) {              if ($displayed == $halfway) {
                 $r->print('</td><td width="5%">&nbsp;</td><td align="left" valign="top" width="50%">');                  $r->print('</td><td width="6%">&nbsp;</td><td align="left" valign="top" width="47%">');
             }              }
             &display_launcher($r,$actionitem,$refpage,$checkallowed,$tabbg,$rowColor1,$rowColor2,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,$interval,$countunread);              &display_launcher($r,$actionitem,$refpage,$checkallowed,$tabbg,$rowColor1,$rowColor2,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,$interval,$countunread);
             $displayed ++;               $displayed ++; 
Line 625  END Line 634  END
 sub curr_courseinit {  sub curr_courseinit {
     my $current = &get_current($env{'user.name'},$env{'user.domain'},      my $current = &get_current($env{'user.name'},$env{'user.domain'},
                                 $env{'request.course.id'},'courseinit');                                  $env{'request.course.id'},'courseinit');
     my %userenv = &Apache::lonnet::get('environment',['course_init_display']);  
     my $control;      my $control;
     if ($current eq '') {      if ($current) {
           $control = 'coursespecific';
       } else {
         $control = 'userpref';          $control = 'userpref';
         if (exists($userenv{'firstres'})) {          my %userenv = &Apache::lonnet::get('environment',
             $current = 'firstres';                                                        ['course_init_display']);
         } else {          if (exists($userenv{'course_init_display'})) {
               $current = $userenv{'course_init_display'};
           }
           unless ($current) {
             $current = 'whatsnew';              $current = 'whatsnew';
         }          }
     } else {  
         $control = 'coursespecific';  
     }      }
     return ($control,$current);      return ($control,$current);
 }  }
Line 942  sub get_curr_thresholds { Line 953  sub get_curr_thresholds {
                                                      $uname,$cid.':threshold');                                                       $uname,$cid.':threshold');
     my $thresholdcount = 0;      my $thresholdcount = 0;
     my ($tmp) = %thresholdsettings;      my ($tmp) = %thresholdsettings;
     unless ($tmp =~ /^Error/) {      unless ($tmp =~ /^(con_lost|error|no_such_host)/i) {
         foreach my $item (keys %{$threshold}) {           foreach my $item (keys %{$threshold}) { 
             if (exists($thresholdsettings{$cid.':threshold_'.$item})) {              if (exists($thresholdsettings{$cid.':threshold_'.$item})) {
                 $$threshold{$item} =                   $$threshold{$item} = 
Line 957  sub get_curr_thresholds { Line 968  sub get_curr_thresholds {
     my %coursesettings = &Apache::lonnet::dump('environment',      my %coursesettings = &Apache::lonnet::dump('environment',
                                               $cdom,$crs,'internal.threshold');                                                $cdom,$crs,'internal.threshold');
     my ($temp) = %coursesettings;      my ($temp) = %coursesettings;
     unless ($temp =~ /^Error/) {        unless ($temp =~ /^(con_lost|error|no_such_host)/i) {  
         foreach my $item (keys %{$threshold}) {          foreach my $item (keys %{$threshold}) {
             unless (exists($thresholdsettings{$cid.':threshold_'.$item})) {              unless (exists($thresholdsettings{$cid.':threshold_'.$item})) {
                 if (exists($coursesettings{'internal.threshold_'.$item})) {                  if (exists($coursesettings{'internal.threshold_'.$item})) {
Line 976  sub get_current { Line 987  sub get_current {
     my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid.      my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid.
                                                                 ':'.$caller);                                                                  ':'.$caller);
     my ($tmp) = %settings;      my ($tmp) = %settings;
     if ($tmp =~ /^Error/) {      unless ($tmp =~ /^(con_lost|error|no_such_host)/i) {
         &logthis('Error retrieving '.$caller.' setting from nohist_whatsnew for '.  
                                                  $uname.";".$udom.' in '.$cid);  
     } else {  
         $currvalue = $settings{$cid.':'.$caller};          $currvalue = $settings{$cid.':'.$caller};
     }      }
     return $currvalue;      return $currvalue;
Line 1121  sub checkversions { Line 1129  sub checkversions {
     my ($cdom,$crs,$navmap,$changed,$starttime) = @_;      my ($cdom,$crs,$navmap,$changed,$starttime) = @_;
     my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs);      my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs);
     my ($tmp) = keys(%changes);      my ($tmp) = keys(%changes);
     if ($tmp =~/^error\:/) {      unless ($tmp =~ /^(con_lost|error|no_such_host)/i) {
         &Apache::lonnet::logthis('Error retrieving version update information: '.  
         $tmp.' for '.$cdom.'_'.$crs.' in whatsnew');  
     } else {  
         if (keys(%changes) > 0) {          if (keys(%changes) > 0) {
             foreach my $key (sort(keys(%changes))) {              foreach my $key (sort(keys(%changes))) {
                 if ($changes{$key} > $starttime) {                  if ($changes{$key} > $starttime) {
Line 1409  sub get_display_settings { Line 1414  sub get_display_settings {
     my ($uname,$udom,$cid) = @_;      my ($uname,$udom,$cid) = @_;
     my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid);       my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid); 
     my ($tmp) = keys(%settings);      my ($tmp) = keys(%settings);
     if ($tmp=~/^error:/) {      if ($tmp=~ /^(con_lost|error|no_such_host)/i) {
         %settings = ();          %settings = ();
         unless ($tmp eq 'error: 2 tie(GDBM) Failed while attempting dump') {          unless ($tmp =~ /^error: 2 /) {
             &logthis('Error retrieving whatsnew settings: '.$tmp.' for '.              &Apache::lonnet::logthis('Error retrieving whatsnew settings: '.
                                 $uname.':'.$udom.' for course: '.$cid);              $tmp.' for '.$uname.':'.$udom.' for course: '.$cid);
         }          }
     }      }
     return %settings;      return %settings;
Line 1424  sub store_display_settings { Line 1429  sub store_display_settings {
     my %whatsnew_settings;      my %whatsnew_settings;
     my $result;      my $result;
     foreach my $key (keys(%{$checkallowed})) {      foreach my $key (keys(%{$checkallowed})) {
    if ($key =~ /_section$/) { next; }
         if (exists($env{'form.display_'.$key})) {          if (exists($env{'form.display_'.$key})) {
             unless ($env{'form.display_'.$key} eq '') {              unless ($env{'form.display_'.$key} eq '') {
                 $whatsnew_settings{$cid.':'.$key} = $env{'form.display_'.$key};                  $whatsnew_settings{$cid.':'.$key} = $env{'form.display_'.$key};
Line 1564  sub start_box { Line 1570  sub start_box {
                </td>                 </td>
               </tr>');                </tr>');
      if (($caller eq 'abovethreshold') && ($$show{$caller})) {       if (($caller eq 'abovethreshold') && ($$show{$caller})) {
          $r->print('           if ($$show{$caller}) {
                $r->print('
               <tr>                <tr>
                 <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'"><b><small>'.$lt{'chth'}.'</small></b></a></td>                  <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'"><b><small>'.$lt{'chth'}.'</small></b></a></td>
               </tr>');                </tr>');
            }
      } elsif (($caller eq 'versionchanges') && ($$show{$caller})) {       } elsif (($caller eq 'versionchanges') && ($$show{$caller})) {
          $r->print('           if ($$show{$caller}) {
                $r->print('
               <tr>                <tr>
                 <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'"><b><small>'.$lt{'chin'}.'</small></b></a></td>                  <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'"><b><small>'.$lt{'chin'}.'</small></b></a></td>
               </tr>');                </tr>');
            }
      } elsif ($caller eq 'coursediscussion') {       } elsif ($caller eq 'coursediscussion') {
          $r->print('           if ($$show{$caller}) {
                $r->print('
               <tr>                <tr>
                 <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'"><b><small>'.$lt{'chop'}.'</small></b></a></td>                  <td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'"><b><small>'.$lt{'chop'}.'</small></b></a></td>
               </tr>');                </tr>');
            }
      }       }
      $r->print('       $r->print('
               <tr>                <tr>
Removed from v.1.39  
changed lines
  Added in v.1.44

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