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

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

version 1.44, 2006/01/06 21:52:19 version 1.46, 2006/01/06 22:50:29
Line 564  sub display_discussion_config { Line 564  sub display_discussion_config {
     if ($current eq '') {      if ($current eq '') {
         $current = 'on';          $current = 'on';
     }      }
     my %status = (      my %status = ( $current => 'checked="checked"');
                     on => 'checked="checked"',  
                     off => 'checked="checked"',      $r->print('<br />'.&mt('Choose whether or not to display a count of the number of new posts for each resource or bulletin board which has unread posts.').'<br />'.&mt('This can increase the time taken to gather data for the [_1] page by a few seconds.',"<i>What's New?</i>").'&nbsp;&nbsp;');
                  );  
     $status{$current} = '';  
     $r->print('<br />'.&mt('Choose whether or not to display a count of the number of new posts for each resource or bulletin board which has unread posts.').'<br />'.&mt('This can increase the time taken to gather data for the [_1] page by a few seconds.',"<i>What's New?</i>").'&nbsp;&nbsp;'.&mt('Currently set to [_1] .'),"<b>$current</b>.");  
     $r->print('<br /><br />      $r->print('<br /><br />
 <form method="post" name="discussionswitch" action="/adm/whatsnew">'.  <form method="post" name="discussionswitch" action="/adm/whatsnew">'.
 &mt('Display of unread post counts?').'&nbsp;  &mt('Display of unread post counts?').'&nbsp;
 <input type="hidden" name="command" value="newdiscconf" />  <input type="hidden" name="command" value="newdiscconf" />
 <input type="hidden" name="refpage" value="'.$refpage.'" />  <input type="hidden" name="refpage" value="'.$refpage.'" />
 <input type ="radio" '.$status{'on'}.' name="countunread" value="on">on  <label><input type ="radio" '.$status{'on'}.' name="countunread" value="on">on</label>
 &nbsp;&nbsp;&nbsp;  &nbsp;&nbsp;&nbsp;
 <input type ="radio" '.$status{'off'}.' name="countunread" value="off">off  <label><input type ="radio" '.$status{'off'}.' name="countunread" value="off">off</label>
 ');  ');
     $r->print('<br/><br />      $r->print('<br/><br />
                <input type="submit" name="display" value="'.                 <input type="submit" name="display" value="'.
Line 617  $$initpage{$current}</b>.<br /><br /> Line 614  $$initpage{$current}</b>.<br /><br />
 $lt{'padc'}&nbsp;&nbsp;  $lt{'padc'}&nbsp;&nbsp;
 END  END
     foreach my $choice (@chgstate) {      foreach my $choice (@chgstate) {
         $r->print('<nobr><input type="radio" name="courseinit_control" value="'.          $r->print('<nobr><label><input type="radio" name="courseinit_control" value="'.
                    $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</nobr>');                     $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');
     }      }
     $r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}.      $r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}.
               '<br />'.$lt{'chce'}." \n");                '<br />'.$lt{'chce'}." \n");
     foreach my $choice (@chgentry) {      foreach my $choice (@chgentry) {
         $r->print('<nobr><input type="radio" name="courseinit_page" value="'.          $r->print('<nobr><label><input type="radio" name="courseinit_page" value="'.
                   $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</nobr>');                    $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');
     }      }
     $r->print('<br /><br /><input type="submit" name="display" value="'.      $r->print('<br /><br /><input type="submit" name="display" value="'.
                $lt{'moce'}.'" /></form>');                 $lt{'moce'}.'" /></form>');
Removed from v.1.44  
changed lines
  Added in v.1.46

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