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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.45 and 1.49

version 1.45, 2006/01/06 22:37:27 version 1.49, 2006/01/12 09:32:26
Line 100  sub handler { Line 100  sub handler {
             ({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,"What's New?",'Course_Action_Items_Thresholds'));              (undef,"What's New?",#'Course_Action_Items_Thresholds'
        ));
     } elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) {      } 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,"What's New?",'Course_Action_Items_Intervals'));              (undef,"What's New?",#'Course_Action_Items_Intervals'
        ));
     } elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) {      } 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,"What's New?",'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,"What's New?",'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,"What's New?",'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 311  sub display_actions_box { Line 316  sub display_actions_box {
         }          }
     }      }
     $r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>').      $r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>').
               '<nobr>&nbsp;&nbsp;'.&mt('[_1] for just [_2]','<b>Change</b>',                ' <nobr>&nbsp;&nbsp;'.&mt('[_1] for just [_2]','<b>Change</b>',
               '<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.                '<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.
               '">this course</a>').' '.&mt('or for all [_1].',                '">this course</a>').' '.&mt('or for all [_1].',
               '<a href="/adm/preferences?action=changecourseinit&refpage='.                '<a href="/adm/preferences?action=changecourseinit&refpage='.
Line 564  sub display_discussion_config { Line 569  sub display_discussion_config {
     if ($current eq '') {      if ($current eq '') {
         $current = 'on';          $current = 'on';
     }      }
     my %status = (      my %opposite = ( 
                     on => 'checked="checked"',                        'on' => 'off',
                     off => 'checked="checked"',                        'off' => 'on',
                  );                      );
     $status{$current} = '';      $r->print('<script type="text/javascript">
     $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>.");  function toggle_countunread(choice) {
       if (choice == "unchanged") {
           document.discussionswitch.command.value = "";
       }
       document.discussionswitch.submit();
   }
   </script>');
       $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;  
 <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.'" />
 <label><input type ="radio" '.$status{'on'}.' name="countunread" value="on">on</label>  <input type="hidden" name="countunread" value="'.$opposite{$current}.'" />
 &nbsp;&nbsp;&nbsp;  
 <label><input type ="radio" '.$status{'off'}.' name="countunread" value="off">off</label>  
 ');  ');
     $r->print('<br/><br />      $r->print('<br/>
                <input type="submit" name="display" value="'.                 <input type="button" name="display" value="'.
                &mt('Make changes').'" /></form>');                 &mt('Change to [_1]',$opposite{$current}).'" 
                  onclick="javascript:toggle_countunread('."'change'".')" />
                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp;
                  <input type="button" name="nochange" value="'.
                  &mt("No change").'" 
                  onclick="javascript:toggle_countunread('."'unchanged'".')" />
                  </form>');
     return;      return;
 }  }
   
Line 880  sub check_thresholds { Line 895  sub check_thresholds {
         if ($resource->handgrade($part) eq 'yes') {          if ($resource->handgrade($part) eq 'yes') {
             next;              next;
         }          }
           if ($resource->is_survey($part)) {
               next;
           }
         %{$stats{$part}} = ();          %{$stats{$part}} = ();
         my ($attempts,$users,$corrects,$degdiff,$av_attempts);          my ($attempts,$users,$corrects,$degdiff,$av_attempts);
         if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) {          if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) {
Removed from v.1.45  
changed lines
  Added in v.1.49

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