[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.40

version 1.39, 2005/12/19 21:39:37 version 1.40, 2005/12/20 15:56:38
Line 90  sub handler { Line 90  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,'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') && (&Apache::lonnet::allowed('vgr',$env{'request.course.id'}))) {
         &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') && (&Apache::lonnet::allowed('pch',$env{'request.course.id'}))) {
         &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 126  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 164  sub display_main_box { Line 165  sub display_main_box {
     } 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 227  ENDHEAD Line 228  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 264  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 276  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 285  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 413  sub display_actions_box { Line 402  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 ($$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 619  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 938  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 953  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 972  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 1114  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 1399  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 eq 'error: 2 tie(GDBM) Failed while attempting dump') {
             &logthis('Error retrieving whatsnew settings: '.$tmp.' for '.              &logthis('Error retrieving whatsnew settings: '.$tmp.' for '.
Line 1564  sub start_box { Line 1554  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.40

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