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

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.52 and 1.59

version 1.52, 2006/03/15 19:41:26 version 1.59, 2006/06/03 21:28:07
Line 39  use Apache::lonuserstate; Line 39  use Apache::lonuserstate;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
 use Time::Local;  use Time::Local;
 use GDBM_File;  use GDBM_File;
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
   
 #----------------------------  #----------------------------
 # handler  # handler
Line 100  sub handler { Line 102  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'              ("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'              ("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'              ("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'              ("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'              ("What's New?",#'Course_Action_Items_Display'
      ));       ));
     }      }
     &display_main_box($r,$command,$refpage,\%checkallowed);      &display_main_box($r,$command,$refpage,\%checkallowed);
Line 143  sub display_main_box { Line 145  sub display_main_box {
     my $domain=&Apache::loncommon::determinedomain();      my $domain=&Apache::loncommon::determinedomain();
     my $function = &Apache::loncommon::get_users_function();      my $function = &Apache::loncommon::get_users_function();
     my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);      my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);
       my $lctype = lc(&Apache::loncommon::course_type());
     $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 152  sub display_main_box { Line 155  sub display_main_box {
     );      );
   
     my %interval_titles = &Apache::lonlocal::texthash (      my %interval_titles = &Apache::lonlocal::texthash (
                             -1 => 'since start of course',                              -1 => "since start of $lctype",
                        2592000 => 'since last month',                         2592000 => 'since last month',
                         604800 => 'since last week',                          604800 => 'since last week',
                          86400 => 'since yesterday',                           86400 => 'since yesterday',
     );      );
   
     my %initpage = &Apache::lonlocal::texthash (      my %initpage = &Apache::lonlocal::texthash (
                      firstres => 'first resource in the course',                       firstres => "first resource in the $lctype",
                      whatsnew => "what's new? page",                       whatsnew => "what's new? page",
                      userpref => 'your general user preferences',                       userpref => 'your general user preferences',
                      coursespecific => 'specific setting for this course',                       coursespecific => "specific setting for this $lctype",
                    );                     );
     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'};
Line 225  END Line 228  END
 </script>  </script>
 ';  ';
     }      }
     return &Apache::loncommon::start_page('Course Action Items',$scripttag);       my $course_type=&Apache::loncommon::course_type();
       return &Apache::loncommon::start_page($course_type.' Action Items',
     $scripttag);
 }  }
   
 #-------------------------------  #-------------------------------
Line 244  sub display_actions_box { Line 249  sub display_actions_box {
     my $udom = $env{'user.domain'};      my $udom = $env{'user.domain'};
     my $uname = $env{'user.name'};      my $uname = $env{'user.name'};
     my $cid = $env{'request.course.id'};      my $cid = $env{'request.course.id'};
       my $crstype = &Apache::loncommon::course_type();
       my $lctype = lc($crstype);
       my %stulabel = (
                       'Course' => 'students',
                       'Group' => 'members',
                      );
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                  'yacc' => 'You are accessing an invalid course.',                   'yacc' => 'You are accessing an invalid course or group',
                  'gtfr' => 'Go to first resource',                   'gtfr' => 'Go to first resource',
                  'pgse' => 'Page set to be displayed after you have selected a role in this course?',  
                  'hial' => 'Hide all',                   'hial' => 'Hide all',
                  'shal' => 'Show all',                   'shal' => 'Show all',
     );      );
Line 286  sub display_actions_box { Line 295  sub display_actions_box {
                      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 => $lctype.' only',
                      default => 'default',                       default => 'default',
                    );                     );
   
Line 307  sub display_actions_box { Line 316  sub display_actions_box {
                   '</a></font><br />');                    '</a></font><br />');
         }          }
     }      }
     $r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>').      $r->print(&mt('Page set to be displayed after you have selected a role in this '.$lctype).
               ' <nobr>&nbsp;&nbsp;'.&mt('[_1] for just [_2]','<b>Change</b>',                '. <nobr>'.&mt('Currently: <i>[_1]</i>',$currinit).'.&nbsp;&nbsp;'.
               '<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.                &mt('<b>Change</b> for just <a href="/adm/whatsnew?command=courseinit&refpage=[_1]">this '.$lctype.'</a>',$refpage).' '.
               '">this course</a>').' '.&mt('or for all [_1].',                &mt('or for all <a href="/adm/preferences?action=changecourseinit&refpage=[_1]">your courses/groups</a>',$refpage).'</nobr><br /><hr />');
               '<a href="/adm/preferences?action=changecourseinit&refpage='.  
               $refpage.'">your courses</a>').'</nobr><br /><hr />');  
                                                                                           
     if ($command eq 'reset') {      if ($command eq 'reset') {
         $result = &process_reset($cdom,$crs);          $result = &process_reset($cdom,$crs);
     } elsif ($command eq 'update') {      } elsif ($command eq 'update') {
Line 328  sub display_actions_box { Line 335  sub display_actions_box {
   
     unless ($store_result eq 'ok') {       unless ($store_result eq 'ok') { 
         &Apache::lonnet::logthis('Error storing whatsnew settings: '.          &Apache::lonnet::logthis('Error storing whatsnew settings: '.
             $store_result.' for '.'user '.$uname.':'.$udom.' in course '.$cid);              $store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid);
         $result .= &mt('Unable to store visibility settings due to [_1]',          $result .= &mt('Unable to store visibility settings due to [_1]',
                        $store_result);                          $store_result); 
     }      }
Line 354  sub display_actions_box { Line 361  sub display_actions_box {
     }      }
   
     my %headings = &Apache::lonlocal::texthash(      my %headings = &Apache::lonlocal::texthash(
                 coursediscussion =>  'Unread course discussion posts',                  coursediscussion =>  'Unread '.$lctype.' discussion posts',
                 handgrading =>  'Problems requiring handgrading',                  handgrading =>  'Problems requiring handgrading',
                 haserrors => 'Problems with errors',                  haserrors => 'Problems with errors',
                 versionchanges => 'Resources in course with version changes '.$interval,                  versionchanges => 'Resources in '.$lctype.' with version changes '.$interval,
                 coursenormalmail => 'New course messages',                  coursenormalmail => 'New '.$lctype.' messages',
                 coursecritmail => 'New critical messages in course',                  coursecritmail => 'New critical messages in '.$lctype,
     );      );
   
     if ($$checkallowed{'abovethreshold'}) {      if ($$checkallowed{'abovethreshold'}) {
         &get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs);          &get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs);
     }      }
   
     $headings{'abovethreshold'} = &mt('Problems with av. attempts').' &ge; '.$threshold{'av_attempts'}.' '.&mt('or deg. difficulty').' &ge; '.$threshold{'degdiff'}.'<br /> '.&mt('and total number of students with submissions').' &ge; '.$threshold{'numstudents'};      $headings{'abovethreshold'} = 
    &mt('Problems with av. attempts &ge; [_1] or deg. difficulty &ge; [_2] <br /> and total number of '.$stulabel{$crstype}.' with submissions &ge; [_3]',
       $threshold{'av_attempts'},$threshold{'degdiff'},
       $threshold{'numstudents'});
   
     my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');      my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail');
   
Line 524  sub display_threshold_config { Line 534  sub display_threshold_config {
                                                                                                                                                                         
 sub display_interval_config {  sub display_interval_config {
     my ($r,$refpage,$interval_titles) = @_;      my ($r,$refpage,$interval_titles) = @_;
       my $lctype = lc(&Apache::loncommon::course_type());
     my $current = &get_current($env{'user.name'},$env{'user.domain'},      my $current = &get_current($env{'user.name'},$env{'user.domain'},
                                 $env{'request.course.id'},'interval');                                  $env{'request.course.id'},'interval');
     $r->print('<br />'.&mt('Choose the time window to use for display of version changes for resources in the course.'));      $r->print('<br />'.&mt('Choose the time window to use for display of version changes for resources in the '.$lctype.'.'));
     unless ($current eq '') {      unless ($current eq '') {
         $r->print(' '.&mt('Current value is [_1]','<b>'.          $r->print(' '.&mt('Current value is [_1]','<b>'.
                   $$interval_titles{$current}.'</b>.'));                    $$interval_titles{$current}.'</b>.'));
Line 605  sub courseinit_config { Line 616  sub courseinit_config {
     my ($control,$current) = &curr_courseinit();      my ($control,$current) = &curr_courseinit();
     my @chgstate = ('userpref','coursespecific');      my @chgstate = ('userpref','coursespecific');
     my @chgentry = ('firstres','whatsnew');      my @chgentry = ('firstres','whatsnew');
       my $lctype = lc(&Apache::loncommon::course_type());
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                              'chwp' => 'Choose which page will be displayed when you enter this course after selecting a role.',                               'chwp' => "Choose which page will be displayed when you enter this $lctype after selecting a role.",
                              'cuva' => 'Current value is determined by',                               'cuva' => 'Current value is determined by',
                              'anis' => 'and is set to display',                               'anis' => 'and is set to display',
                              'padc' => 'Page display controlled by',                               'padc' => 'Page display controlled by',
                              'chce' => 'Choose course entry',                               'chce' => 'Choose '.$lctype.' entry',
                              'moce' => 'Modify course entry',                               'moce' => 'Modify '.$lctype.' entry',
     );      );
     $r->print(<<"END");       $r->print(<<"END"); 
 <br />$lt{'chwp'}  <br />$lt{'chwp'}
Line 621  $$initpage{$current}</b>.<br /><br /> Line 633  $$initpage{$current}</b>.<br /><br />
 <form method="post" name="courseinitswitch" action="/adm/whatsnew">  <form method="post" name="courseinitswitch" action="/adm/whatsnew">
 <input type="hidden" name="command" value="newcourseinit" />  <input type="hidden" name="command" value="newcourseinit" />
 <input type="hidden" name="refpage" value="$refpage" />  <input type="hidden" name="refpage" value="$refpage" />
 $lt{'padc'}&nbsp;&nbsp;  $lt{'padc'}:&nbsp;&nbsp;
 END  END
     foreach my $choice (@chgstate) {      foreach my $choice (@chgstate) {
           my $chkstring;
           if ($choice eq $control) {
               $chkstring = ' checked="checked" ';
           }  
         $r->print('<nobr><label><input type="radio" name="courseinit_control" value="'.          $r->print('<nobr><label><input type="radio" name="courseinit_control" value="'.
                    $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');                     $choice.'"'.$chkstring.'/>'.$$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) {
           my $chkstring;
           if (($choice eq $current) && ($control eq 'coursespecific')) {
               $chkstring = ' checked="checked" ';
           }
         $r->print('<nobr><label><input type="radio" name="courseinit_page" value="'.          $r->print('<nobr><label><input type="radio" name="courseinit_page" value="'.
                   $choice.'"/>'.$$initpage{$choice}.'&nbsp;&nbsp;</label></nobr>');                    $choice.'"'.$chkstring.'/>'.$$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>');
Line 679  sub display_launcher { Line 701  sub display_launcher {
   
             } elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS              } elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS
                 &display_abovethreshold($r,$refpage,$warnings,$triggered,                  &display_abovethreshold($r,$refpage,$warnings,$triggered,
                                              $res_title,$rowColor1,$rowColor2);                                               $res_title);
             } elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION              } elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION
                 &display_coursediscussion($r,$newdiscussions,$unread,                  &display_coursediscussion($r,$newdiscussions,$unread,
                                 $countunread,$res_title,$rowColor1,$rowColor2);                                  $countunread,$res_title,$rowColor1,$rowColor2);
Line 751  sub getitems { Line 773  sub getitems {
   
 # Maxtries and degree of difficulty for problem parts, unless handgradeable  # Maxtries and degree of difficulty for problem parts, unless handgradeable
         if ($$show{'abovethreshold'}) {            if ($$show{'abovethreshold'}) {  
             &check_thresholds($resource,$symb,\%resourcetracker,$triggered,              $warningnum = &check_thresholds($resource,$symb,\%resourcetracker,
                        $threshold,$warnings,$warningnum,$rowColor1,$rowColor2);                                              $triggered,$threshold,$warnings,
                                               $warningnum,$rowColor1,$rowColor2);
         }          }
   
     }      }
Line 807  sub check_bombed { Line 830  sub check_bombed {
         my @bombs = split(/,/, $errors);          my @bombs = split(/,/, $errors);
         my $errorcount = scalar(@bombs);          my $errorcount = scalar(@bombs);
         my $errorlink = '<a href="/adm/email?display='.          my $errorlink = '<a href="/adm/email?display='.
                         &Apache::lonnet::escape($bombs[0]).'">'.                          &escape($bombs[0]).'">'.
                         $title.'</a>';                          $title.'</a>';
         $$bombed{$symb}{errorcount} = $errorcount;          $$bombed{$symb}{errorcount} = $errorcount;
         $$bombed{$symb}{errorlink} = $errorlink;          $$bombed{$symb}{errorlink} = $errorlink;
Line 862  sub check_thresholds { Line 885  sub check_thresholds {
         }          }
     }      }
     if ($warning) {      if ($warning) {
         if ($warningnum %2 == 1) {          if ($warningnum%2 == 1) {
             $rowColor = $rowColor1;              $rowColor = $rowColor1;
         } else {          } else {
             $rowColor = $rowColor2;              $rowColor = $rowColor2;
         }          }
           $$triggered{$symb}{rowColor} = $rowColor;
         $$triggered{$symb}{title} = $resource->title;          $$triggered{$symb}{title} = $resource->title;
         foreach my $part (@parts) {          foreach my $part (@parts) {
             if (exists($stats{$part}{users})) {              if (exists($stats{$part}{users})) {
                 my $resetname = 'reset_'.&Apache::lonnet::escape($symb."\0".$part);                  my $resetname = 'reset_'.&escape($symb."\0".$part);
                 my $resettitle = 'title_'.&Apache::lonnet::escape($symb."\0".$part);                  my $resettitle = 'title_'.&escape($symb."\0".$part);
                 if ($$triggered{$symb}{numparts}) {                  if ($$triggered{$symb}{numparts}) {
                     $$triggered{$symb}{text} .= '<tr bgcolor="'.$rowColor.'">'."\n";                      $$triggered{$symb}{text} .= '<tr bgcolor="'.$rowColor.'">'."\n";
                 }                  }
Line 887  sub check_thresholds { Line 911  sub check_thresholds {
                      <td align="right"><small>'.$stats{$part}{attempts}.'</small></td>                       <td align="right"><small>'.$stats{$part}{attempts}.'</small></td>
                      <td align="right"><small>'.$stats{$part}{degdiff}.'</small></td>                       <td align="right"><small>'.$stats{$part}{degdiff}.'</small></td>
                      <td align="right"><small>'.$lastreset{$part}.'</small></td>                       <td align="right"><small>'.$lastreset{$part}.'</small></td>
                      <td align="right"><small><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&Apache::lonnet::escape($$triggered{$symb}{title}).'" /></td>                       <td align="right"><small><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td>
                     </tr>';                      </tr>';
                 $$triggered{$symb}{numparts} ++;                  $$triggered{$symb}{numparts} ++;
             }              }
Line 895  sub check_thresholds { Line 919  sub check_thresholds {
         push(@{$warnings},$symb);          push(@{$warnings},$symb);
         $warningnum ++;          $warningnum ++;
     }      }
       return $warningnum;
 }  }
   
   
Line 958  sub process_reset { Line 983  sub process_reset {
     my %titles = ();      my %titles = ();
     foreach my $key (keys(%env)) {      foreach my $key (keys(%env)) {
         next if ($key !~ /^form\.reset_(.+)$/);          next if ($key !~ /^form\.reset_(.+)$/);
         my $title = &Apache::lonnet::unescape($env{'form.title_'.$1});          my $title = &unescape($env{'form.title_'.$1});
         my $reset_item = &Apache::lonnet::unescape($1);          my $reset_item = &unescape($1);
         my %curr_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item);          my %curr_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item);
         my %aggregates = ();          my %aggregates = ();
         my ($symb,$part) = split(/\0/,$reset_item);          my ($symb,$part) = split(/\0/,$reset_item);
Line 1017  sub getnormalmail { Line 1042  sub getnormalmail {
   
     my @messages = sort(&Apache::lonnet::getkeys('nohist_email'));      my @messages = sort(&Apache::lonnet::getkeys('nohist_email'));
     foreach my $message (@messages) {      foreach my $message (@messages) {
  my $msgid=&Apache::lonnet::escape($message);   my $msgid=&escape($message);
         my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=          my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)=
             &Apache::lonmsg::unpackmsgid($msgid);              &Apache::lonmsg::unpackmsgid($msgid);
         if (($fromcid) && ($fromcid eq $env{'request.course.id'})) {          if (($fromcid) && ($fromcid eq $env{'request.course.id'})) {
Line 1029  sub getnormalmail { Line 1054  sub getnormalmail {
                     if ($shortsubj eq '') {                      if ($shortsubj eq '') {
                         $shortsubj = &mt('No subject');                          $shortsubj = &mt('No subject');
                     }                      }
                     $shortsubj = &Apache::lonnet::unescape($shortsubj);  
                     push(@{$newmsgs}, {                      push(@{$newmsgs}, {
                         msgid    => $msgid,                          msgid    => $msgid,
                         sendtime => $sendtime,                          sendtime => $sendtime,
Line 1061  sub getcritmail { Line 1085  sub getcritmail {
                 if ($shortsubj eq '') {                  if ($shortsubj eq '') {
                     $shortsubj = &mt('No subject');                      $shortsubj = &mt('No subject');
                 }                  }
                 $shortsubj = &Apache::lonnet::unescape($shortsubj);  
                 push(@{$critmsgs}, {                  push(@{$critmsgs}, {
                         msgid    => $msgid,                          msgid    => $msgid,
                         sendtime => $sendtime,                          sendtime => $sendtime,
Line 1135  sub display_handgrade { Line 1158  sub display_handgrade {
             }              }
             my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);              my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
             my $linkurl=&Apache::lonnet::clutter($url);              my $linkurl=&Apache::lonnet::clutter($url);
             $linkurl .= '?symb='.&Apache::lonnet::escape($res);              $linkurl .= '?symb='.&escape($res);
                                                                                                                                                                 
             $r->print('<tr bgcolor="'.$rowColor.'"><td><a href="'.$linkurl.'"><small>'.$$ungraded{$res}{title}.'</small></a></td><td align="right"><small>'.$$ungraded{$res}{count}.'</small></td></tr>');              $r->print('<tr bgcolor="'.$rowColor.'"><td><a href="'.$linkurl.'"><small>'.$$ungraded{$res}{title}.'</small></a></td><td align="right"><small>'.$$ungraded{$res}{count}.'</small></td></tr>');
             $rowNum ++;              $rowNum ++;
Line 1173  sub display_haserrors { Line 1196  sub display_haserrors {
 }  }
   
 sub display_abovethreshold {  sub display_abovethreshold {
     my ($r,$refpage,$warnings,$triggered,$res_title,$rowColor1,$rowColor2) = @_;      my ($r,$refpage,$warnings,$triggered,$res_title) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                  reso => 'Resource',                   reso => 'Resource',
                  part => 'Part',                   part => 'Part',
Line 1185  sub display_abovethreshold { Line 1208  sub display_abovethreshold {
                  rese => 'Reset counters to 0',                   rese => 'Reset counters to 0',
                  nopr => 'No problems satisfy threshold criteria',                   nopr => 'No problems satisfy threshold criteria',
     );      );
     my $rowColor;   
     my $warningnum = 0;  
     if (@{$warnings} > 0) {      if (@{$warnings} > 0) {
         @{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings};          @{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings};
         $r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'.          $r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'.
Line 1195  sub display_abovethreshold { Line 1216  sub display_abovethreshold {
                 "\n");                  "\n");
         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td align="right"><b><small>'.$lt{'part'}.'</small></b></td><td align="right"><b><small>'.$lt{'nust'}.'</small></b></td><td align="right"><b><small>'.$lt{'avat'}.'</small></b></td><td align="right"><b><small>'.$lt{'dedi'}.'</small></b></td><td align="right"><b><small>'.$lt{'lare'}.'</small></b></td><td align="right"><b><small>'.$lt{'reco'}.'</small></b></td></tr>');          $r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td align="right"><b><small>'.$lt{'part'}.'</small></b></td><td align="right"><b><small>'.$lt{'nust'}.'</small></b></td><td align="right"><b><small>'.$lt{'avat'}.'</small></b></td><td align="right"><b><small>'.$lt{'dedi'}.'</small></b></td><td align="right"><b><small>'.$lt{'lare'}.'</small></b></td><td align="right"><b><small>'.$lt{'reco'}.'</small></b></td></tr>');
         foreach my $res (@{$warnings}) {          foreach my $res (@{$warnings}) {
             if ($warningnum %2 == 1) {  
                 $rowColor = $rowColor1;  
             } else {  
                 $rowColor = $rowColor2;  
             }  
             my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);              my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
             my $linkurl=&Apache::lonnet::clutter($url);              my $linkurl=&Apache::lonnet::clutter($url);
             my $rowspan;              my $rowspan;
             if ($$triggered{$res}{numparts} > 1) {              if ($$triggered{$res}{numparts} > 1) {
                 $rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"';                  $rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"';
             }              }
             $linkurl .= '?symb='.&Apache::lonnet::escape($res);              $linkurl .= '?symb='.&escape($res);
             $r->print('<tr bgcolor="'.$rowColor.'"><td '.$rowspan.'><a href="'.$linkurl.'"><small>'.$$triggered{$res}{title}.'</small></a></td>'.$$triggered{$res}{text});              $r->print('<tr bgcolor="'.$$triggered{$res}{rowColor}.'"><td '.$rowspan.'><a href="'.$linkurl.'"><small>'.$$triggered{$res}{title}.'</small></a></td>'.$$triggered{$res}{text});
             $warningnum ++;  
         }          }
         $r->print('<tr bgcolor="#cccccc"><td colspan="7" align="right"><br /><b><small><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></form>');          $r->print('<tr bgcolor="#cccccc"><td colspan="7" align="right"><br /><b><small><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></form>');
     } else {      } else {
Line 1240  sub display_versionchanges { Line 1255  sub display_versionchanges {
             }              }
             my ($map,$id,$url)=&Apache::lonnet::decode_symb($item);              my ($map,$id,$url)=&Apache::lonnet::decode_symb($item);
             my $linkurl=&Apache::lonnet::clutter($url);              my $linkurl=&Apache::lonnet::clutter($url);
             $linkurl .= '?symb='.&Apache::lonnet::escape($item);              $linkurl .= '?symb='.&escape($item);
   
             $r->print('<tr bgcolor="'.$rowColor.'"><td><small><a href="'.$linkurl.'">'.$$res_title{$item}.'</a></small></td><td><small>'.$$changed{$item}{'revdate'}.'</small></td><td><small>'.$$changed{$item}{'current'}.'</small></td><td><small>'.$$changed{$item}{'version'}.'</small></td></tr>');              $r->print('<tr bgcolor="'.$rowColor.'"><td><small><a href="'.$linkurl.'">'.$$res_title{$item}.'</a></small></td><td><small>'.$$changed{$item}{'revdate'}.'</small></td><td><small>'.$$changed{$item}{'current'}.'</small></td><td><small>'.$$changed{$item}{'version'}.'</small></td></tr>');
             $changenum ++;              $changenum ++;
Line 1254  sub display_versionchanges { Line 1269  sub display_versionchanges {
 sub display_coursediscussion {  sub display_coursediscussion {
     my ($r,$newdiscussions,$unread,$countunread,$res_title,$rowColor1,      my ($r,$newdiscussions,$unread,$countunread,$res_title,$rowColor1,
                                                               $rowColor2) = @_;                                                                $rowColor2) = @_;
       my $lctype = lc(&Apache::loncommon::course_type());
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 'loca' => 'Location',                  'loca' => 'Location',
                 'type' => 'Type',                  'type' => 'Type',
                 'numn' => 'Number of new posts',                  'numn' => 'Number of new posts',
                 'noun' => 'No unread posts in course discussions',                  'noun' => 'No unread posts in '.$lctype.' discussions',
                 'tmlp' => 'Time of last post',                   'tmlp' => 'Time of last post', 
     );      );
     my $rowColor;      my $rowColor;
Line 1312  sub display_coursediscussion { Line 1328  sub display_coursediscussion {
 sub display_coursenormalmail {  sub display_coursenormalmail {
     my ($r,$msgcount,$newmsgs,$rowColor1,$rowColor2) = @_;      my ($r,$msgcount,$newmsgs,$rowColor1,$rowColor2) = @_;
     my $rowColor;      my $rowColor;
       my $lctype = lc(&Apache::loncommon::course_type());
     if ($msgcount > 0) {      if ($msgcount > 0) {
         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>');          $r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>');
         my $rowNum = 0;          my $rowNum = 0;
Line 1327  sub display_coursenormalmail { Line 1344  sub display_coursenormalmail {
             $mailcount ++;              $mailcount ++;
         }          }
     } else {      } else {
         $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No new course messages').'</small></i></b><br /><br /></center></td></tr>');          $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No new '.$lctype.' messages').'</small></i></b><br /><br /></center></td></tr>');
     }      }
 }  }
   
 sub display_coursecritmail {  sub display_coursecritmail {
     my ($r,$critmsgcount,$critmsgs,$rowColor1,$rowColor2) = @_;      my ($r,$critmsgcount,$critmsgs,$rowColor1,$rowColor2) = @_;
     my $rowColor;      my $rowColor;
       my $lctype = lc(&Apache::loncommon::course_type());
     if ($critmsgcount > 0) {      if ($critmsgcount > 0) {
         $r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>');          $r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>');
         my $rowNum = 0;          my $rowNum = 0;
Line 1349  sub display_coursecritmail { Line 1367  sub display_coursecritmail {
             $mailcount ++;              $mailcount ++;
         }          }
     } else {      } else {
         $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No unread critical messages in course').'</small></i></b><br /><br /></center></td></tr>');          $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No unread critical messages in '.$lctype).'</small></i></b><br /><br /></center></td></tr>');
     }      }
 }  }
   
Line 1368  sub get_display_settings { Line 1386  sub get_display_settings {
     if ($tmp=~ /^(con_lost|error|no_such_host)/i) {      if ($tmp=~ /^(con_lost|error|no_such_host)/i) {
         %settings = ();          %settings = ();
         unless ($tmp =~ /^error: 2 /) {          unless ($tmp =~ /^error: 2 /) {
       my $lctype = lc(&Apache::loncommon::course_type());
             &Apache::lonnet::logthis('Error retrieving whatsnew settings: '.              &Apache::lonnet::logthis('Error retrieving whatsnew settings: '.
             $tmp.' for '.$uname.':'.$udom.' for course: '.$cid);              $tmp.' for '.$uname.':'.$udom.' for '.$lctype.': '.$cid);
         }          }
     }      }
     return %settings;      return %settings;
Line 1409  sub store_interval_setting { Line 1428  sub store_interval_setting {
                   '<b>'.$$interval_titles{$env{'form.interval'}}.'</b><br />');                    '<b>'.$$interval_titles{$env{'form.interval'}}.'</b><br />');
   
         } else {          } else {
       my $lctype = lc(&Apache::loncommon::course_type());
             &Apache::lonnet::logthis('Error storing whatsnew interval setting'.              &Apache::lonnet::logthis('Error storing whatsnew interval setting'.
                      ' '.$outcome.' for '.$uname.':'.$udom.' in course '.$cid);                  ' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid);
             $result = &mt('Unable to set interval to [_1] due to [_2].',              $result = &mt('Unable to set interval to [_1] due to [_2].',
                          '<b>'.$$interval_titles{$env{'form.interval'}}.'</b>',                           '<b>'.$$interval_titles{$env{'form.interval'}}.'</b>',
                          '<tt>'.$outcome.'</tt>.<br />');                           '<tt>'.$outcome.'</tt>.<br />');
Line 1432  sub store_discussion_setting { Line 1452  sub store_discussion_setting {
                   '<b>'.$env{'form.countunread'}.'</b><br />');                    '<b>'.$env{'form.countunread'}.'</b><br />');
                                                                                                                                                                       
         } else {          } else {
       my $lctype = lc(&Apache::loncommon::course_type());
             &Apache::lonnet::logthis('Error storing whatsnew countunread setting'.              &Apache::lonnet::logthis('Error storing whatsnew countunread setting'.
                      ' '.$outcome.' for '.$uname.':'.$udom.' in course '.$cid);                  ' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid);
             $result = &mt('Unable to set "number unread posts display" to [_1]'.              $result = &mt('Unable to set "number unread posts display" to [_1]'.
                           ' due to [_2].',                            ' due to [_2].',
                          '<b>'.$env{'form.countunread'}.'</b>',                           '<b>'.$env{'form.countunread'}.'</b>',
Line 1460  sub store_courseinit_setting { Line 1481  sub store_courseinit_setting {
             }              }
         }          }
         if ($page_control) {          if ($page_control) {
       my $lctype = lc(&Apache::loncommon::course_type());
             my $outcome = &Apache::lonnet::put('nohist_whatsnew',              my $outcome = &Apache::lonnet::put('nohist_whatsnew',
                                            \%courseinit_settings,$udom,$uname);                                             \%courseinit_settings,$udom,$uname);
             if ($outcome eq 'ok') {              if ($outcome eq 'ok') {
                 if ($page_control eq 'global preferences') {                  if ($page_control eq 'global preferences') {
                     $result = &mt('Page displayed after role selection in course now set by [_1]',"<b>user's global preferences</b>.");                      $result = &mt("Page displayed after role selection in $lctype now set by <b>user's global preferences</b>.");
                 } else {                  } else {
                     $result = &mt('Page displayed after role selection in this course set to [_1]','<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>.');                      $result = &mt('Page displayed after role selection in this '.$lctype.' set to <b>[_2]</b>',$lctype,$$initpage{$env{'form.courseinit_page'}});
                 }                  }
             } else {              } else {
                 &Apache::lonnet::logthis('Error storing whatsnew courseinit '.                  &Apache::lonnet::logthis('Error storing whatsnew courseinit '.
                                          'setting: '.$outcome.' for '.$uname.                                           'setting: '.$outcome.' for '.$uname.
                                                  ':'.$udom.' in course '.$cid);                                           ':'.$udom.' in '.$lctype.' '.$cid);
                 if ($page_control eq 'global preferences') {                  if ($page_control eq 'global preferences') {
                     $result = &mt('Unable to set control of page display to [_1]'.                      $result = &mt('Unable to set control of page display to [_1]'.
                           ' due to [_2].',                            ' due to [_2].',
                          '<b>'.$page_control.'</b>',                           '<b>'.$page_control.'</b>',
                          '<tt>'.$outcome.'</tt>.<br />');                           '<tt>'.$outcome.'</tt>.<br />');
                 } else {                  } else {
                     $result = &mt('Unable to set page display, after role selection, for this course to [_1] due to [_2].',                      $result = &mt('Unable to set page display, after role selection, for this '.$lctype.' to <b>[_2]</b> due to <tt>[_3]</tt>.<br />',
                          '<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>',                           $$initpage{$env{'form.courseinit_page'}},$outcome);
                          '<tt>'.$outcome.'</tt>.<br />');  
                 }                  }
             }              }
         }          }
Removed from v.1.52  
changed lines
  Added in v.1.59

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.