|
version 1.27, 2005/07/15 06:11:16
|
version 1.58, 2006/06/03 21:05:04
|
|
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 52 sub handler {
|
Line 54 sub handler {
|
| $r->send_http_header; |
$r->send_http_header; |
| return OK; |
return OK; |
| } |
} |
| &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['command']); |
&Apache::loncommon::get_unprocessed_cgi( |
| |
$ENV{'QUERY_STRING'},['command','refpage']); |
| |
|
| my $command; |
my $command = $env{'form.command'}; |
| if ($env{'form.action'} eq 'reset') { |
my $refpage = $env{'form.refpage'}; |
| $command = 'reset'; |
|
| } elsif ($env{'form.action'} eq 'update') { |
my %checkallowed = ( coursenormalmail => 1, |
| $command = 'update'; |
coursecritmail => 1, ); |
| } else { |
foreach my $perm_check (['whn','whatsnew',1], |
| $command = $env{'form.command'}; |
['pch','coursediscussion',1], |
| |
['mgr','handgrading',1], |
| |
['vgr','abovethreshold',1], |
| |
['opa','haserrors',1], |
| |
['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'}; |
| |
} |
| |
} |
| } |
} |
| |
|
| &Apache::loncommon::content_type($r,'text/html'); |
if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) { |
| $r->send_http_header; |
# Not in a course, or no whn priv in course |
| $r->print(&display_header()); |
$env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page"; |
| if (! (($env{'request.course.fn'}) && (&Apache::lonnet::allowed('vsa',$env{'request.course.id'})))) { |
|
| # Not in a course, or not allowed to modify parms |
|
| $env{'user.error.msg'}="/adm/whatsnew:vsa:0:0:Cannot display student activity"; |
|
| return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
| } |
} |
| |
|
| |
&Apache::loncommon::content_type($r,'text/html'); |
| |
$r->send_http_header; |
| |
|
| |
$r->print(&display_header($command,\%checkallowed)); |
| |
|
| &Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
| if ($command eq 'chgthreshold') { |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew', |
| |
text=>"Display Action Items"}); |
| |
if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) { |
| &Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
| ({href=>'/adm/whatsnew?command=threshold', |
({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')); |
("What's New?",#'Course_Action_Items_Thresholds' |
| } else { |
)); |
| |
} elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) { |
| &Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
| ({href=>'/adm/whatsnew', |
({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage, |
| text=>"Display Action Items"}); |
text=>"Change interval"}); |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Intervals' |
| |
)); |
| |
} elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage, |
| |
text=>"Change discussion display"}); |
| $r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| (undef,'Course Action Items','Course_Action_Items_Display')); |
("What's New?",#'Course_Action_Items_Intervals' |
| |
)); |
| |
} elsif ($command eq 'courseinit') { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage, |
| |
text=>"Course initialization preference"}); |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Initialization' |
| |
)); |
| |
} else { |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Display' |
| |
)); |
| } |
} |
| &display_main_box($r,$command); |
&display_main_box($r,$command,$refpage,\%checkallowed); |
| return OK; |
return OK; |
| } |
} |
| |
|
|
Line 97 sub handler {
|
Line 141 sub handler {
|
| #------------------------------ |
#------------------------------ |
| |
|
| sub display_main_box { |
sub display_main_box { |
| my ($r,$command) = @_; |
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); |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.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 = ( |
my %threshold_titles = &Apache::lonlocal::texthash ( |
| av_attempts => 'Average number of attempts', |
av_attempts => 'Average number of attempts', |
| degdiff => 'Degree of difficulty', |
degdiff => 'Degree of difficulty', |
| numstudents => 'Total number of students with submissions', |
numstudents => 'Total number of students with submissions', |
| ); |
); |
| |
|
| |
my %interval_titles = &Apache::lonlocal::texthash ( |
| |
-1 => "since start of $lctype", |
| |
2592000 => 'since last month', |
| |
604800 => 'since last week', |
| |
86400 => 'since yesterday', |
| |
); |
| |
|
| |
my %initpage = &Apache::lonlocal::texthash ( |
| |
firstres => "first resource in the $lctype", |
| |
whatsnew => "what's new? page", |
| |
userpref => 'your general user preferences', |
| |
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'}; |
| |
|
| if ($command eq 'chgthreshold') { |
if (($command eq 'chgthreshold') |
| &display_config_box($r,$command,$tabbg,\%threshold_titles,$cdom,$crs); |
&& $checkallowed->{'abovethreshold'}) { |
| |
&display_threshold_config($r,$refpage,$tabbg,\%threshold_titles, |
| |
$cdom,$crs); |
| |
} elsif (($command eq 'chginterval') |
| |
&& $checkallowed->{'versionchanges'}) { |
| |
&display_interval_config($r,$refpage,\%interval_titles); |
| |
} elsif (($command eq 'chgdisc') |
| |
&& $checkallowed->{'coursediscussion'}) { |
| |
&display_discussion_config($r,$refpage); |
| |
} elsif ($command eq 'courseinit') { |
| |
&courseinit_config($r,$refpage,\%initpage); |
| } else { |
} else { |
| &display_actions_box($r,$command,\%threshold_titles,$cdom,$crs); |
&display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles, |
| |
\%interval_titles,\%initpage,$cdom,$crs,$checkallowed); |
| } |
} |
| |
my $end_page = &Apache::loncommon::end_page(); |
| $r->print(<<END_OF_BLOCK); |
$r->print(<<END_OF_BLOCK); |
| </td> |
</td> |
| </tr> |
</tr> |
| </table><br /> |
</table><br /> |
| </body> |
$end_page |
| </html> |
|
| END_OF_BLOCK |
END_OF_BLOCK |
| } |
} |
| |
|
|
Line 131 END_OF_BLOCK
|
Line 202 END_OF_BLOCK
|
| # up the HTML |
# up the HTML |
| #------------------------------- |
#------------------------------- |
| |
|
| sub display_header{ |
sub display_header { |
| my $html=&Apache::lonxml::xmlbegin(); |
my ($command,$checkallowed) = @_; |
| my $bodytag=&Apache::loncommon::bodytag('Course Action Items'); |
|
| return(<<ENDHEAD); |
my $scripttag; |
| $html |
unless ($command eq 'chgthreshold' || $command eq 'chginterval') { |
| <head> |
$scripttag = <<"END"; |
| <title>Course Action Items</title> |
<script type="text/javascript"> |
| </head> |
function change_display(caller,change) { |
| $bodytag |
caller.value = change; |
| ENDHEAD |
document.visible.submit(); |
| |
} |
| |
|
| |
function changeAll(change) { |
| |
END |
| |
foreach my $item (keys(%{$checkallowed})) { |
| |
if ($item =~ /_section$/) { next; } |
| |
if ($$checkallowed{$item}) { |
| |
$scripttag.='document.visible.display_'.$item.'.value=change'. |
| |
"\n"; |
| |
} |
| |
} |
| |
$scripttag.='document.visible.submit(); |
| |
} |
| |
</script> |
| |
'; |
| |
} |
| |
my $course_type=&Apache::loncommon::course_type(); |
| |
return &Apache::loncommon::start_page($course_type.' Action Items', |
| |
$scripttag); |
| } |
} |
| |
|
| #------------------------------- |
#------------------------------- |
|
Line 150 ENDHEAD
|
Line 240 ENDHEAD
|
| # |
# |
| #------------------------------- |
#------------------------------- |
| |
|
| sub display_actions_box() { |
sub display_actions_box { |
| my ($r,$command,$threshold_titles,$cdom,$crs) = @_; |
my ($r,$tabbg,$command,$refpage,$threshold_titles,$interval_titles, |
| |
$initpage,$cdom,$crs,$checkallowed) = @_; |
| my $rowColor1 = "#ffffff"; |
my $rowColor1 = "#ffffff"; |
| my $rowColor2 = "#eeeeee"; |
my $rowColor2 = "#eeeeee"; |
| my $rowColor; |
|
| |
my $udom = $env{'user.domain'}; |
| |
my $uname = $env{'user.name'}; |
| |
my $cid = $env{'request.course.id'}; |
| |
my $crstype = $env{'course.'.$cid.'.type'}; |
| |
my $lctype = lc($crstype); |
| |
my %stulabel = ( |
| |
'Course' => 'students', |
| |
'Group' => 'members', |
| |
); |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'yacc' => 'You are accessing an invalid course or group', |
| |
'gtfr' => 'Go to first resource', |
| |
'hial' => 'Hide all', |
| |
'shal' => 'Show all', |
| |
); |
| |
|
| my %unread = (); |
my %unread = (); |
| my %ungraded = (); |
my %ungraded = (); |
| my %bombed = (); |
my %bombed = (); |
| my %triggered = (); |
my %triggered = (); |
| |
my %changed = (); |
| my @newmsgs = (); |
my @newmsgs = (); |
| my @critmsgs = (); |
my @critmsgs = (); |
| my @newdiscussions = (); |
my @newdiscussions = (); |
| my @tograde = (); |
my @tograde = (); |
| my @bombs = (); |
my @bombs = (); |
| my @warnings = (); |
my @warnings = (); |
| |
my $msgcount = 0; |
| |
my $critmsgcount = 0; |
| |
|
| my %res_title = (); |
my %res_title = (); |
| |
my %show = (); |
| |
my $needitems = 0; |
| |
my $boxcount = 0; |
| |
|
| my $domain=&Apache::loncommon::determinedomain(); |
my $result; |
| my $function; |
if ($command eq 'newcourseinit') { |
| if ($env{'request.role'}=~/^(cc|in|ta|ep)/) { |
$result = &store_courseinit_setting($uname,$udom,$cid,$initpage); |
| $function='coordinator'; |
|
| } |
|
| if ($env{'request.role'}=~/^(su|dc|ad|li)/) { |
|
| $function='admin'; |
|
| } |
} |
| |
|
| my %threshold = ( |
my %threshold = ( |
|
Line 183 sub display_actions_box() {
|
Line 291 sub display_actions_box() {
|
| degdiff => 0.5, |
degdiff => 0.5, |
| numstudents => 2, |
numstudents => 2, |
| ); |
); |
| |
my %pagedesc = &Apache::lonlocal::texthash ( |
| |
firstres => 'First resource', |
| |
whatsnew => "What's New? page", |
| |
userpref => 'user preference', |
| |
coursespecific => $lctype.' only', |
| |
default => 'default', |
| |
); |
| |
|
| my $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); |
my ($initcontrol,$initdisp) = &curr_courseinit(); |
| my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')'; |
| |
|
| unless ($env{'request.course.id'}) { |
unless ($cid) { |
| $r->print('<br /><b><center>You are accessing an invalid course.</center></b><br /><br />'); |
$r->print('<br /><b><center>'.$lt{'yacc'}.'</center></b><br /><br />'); |
| return; |
return; |
| } |
} |
| if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
|
| &GDBM_READER(),0640)) { |
|
| my $furl=$bighash{'first_url'}; |
|
| $r->print('<font size="+1"><a href="'.$furl.'">Go to first resource</a></font><a href="/adm/preferences?action=changecourseinit"></font><br />Change your preferences</a> to suppress display of this screen when accessing courses as Course Coordinator in the future.<br /><hr />'); |
|
| untie(%bighash); |
|
| } |
|
| |
|
| my $result; |
if ($refpage eq 'start') { |
| |
if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
| |
&GDBM_READER(),0640)) { |
| |
my $furl=$bighash{'first_url'}; |
| |
untie(%bighash); |
| |
$r->print('<font size="+1"><a href="'.$furl.'">'.$lt{'gtfr'}. |
| |
'</a></font><br />'); |
| |
} |
| |
} |
| |
$r->print(&mt('Page set to be displayed after you have selected a role in this [_1]',$lctype). |
| |
'. <nobr>'.&mt('Currently: <i>[_1]</i>',$currinit).'. '. |
| |
&mt('<b>Change</b> for just <a href="/adm/whatsnew?command=courseinit&refpage=[_1]">this [_2]</a>',$refpage,$lctype).' '. |
| |
&mt('or for all <a href="/adm/preferences?action=changecourseinit&refpage=[_1]">your courses/groups</a>',$refpage).'</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') { |
| $result = &process_update($cdom,$crs,$threshold_titles); |
$result = &process_update($uname,$udom,$threshold_titles); |
| |
} elsif ($command eq 'newinterval') { |
| |
$result = &store_interval_setting($uname,$udom,$cid,$interval_titles); |
| |
} elsif ($command eq 'newdiscconf') { |
| |
$result = &store_discussion_setting($uname,$udom,$cid); |
| } |
} |
| |
|
| |
my $store_result=&store_display_settings($uname,$udom,$cid,$checkallowed); |
| |
|
| |
unless ($store_result eq 'ok') { |
| |
&Apache::lonnet::logthis('Error storing whatsnew settings: '. |
| |
$store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| |
$result .= &mt('Unable to store visibility settings due to [_1]', |
| |
$store_result); |
| |
} |
| |
|
| if ($result) { |
if ($result) { |
| $r->print($result.'<hr width="100%" />'); |
$r->print($result.'<hr width="100%" />'); |
| } |
} |
| $r->rflush(); |
$r->rflush(); |
| |
|
| &get_curr_thresholds(\%threshold,$cdom,$crs); |
|
| &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,%res_title); |
|
| my ($msgcount,$critmsgcount) = &getmail(\@newmsgs,\@critmsgs); |
|
| |
|
| $r->print('<br /><table border="0" width="100%" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%">'); |
|
| |
|
| ## UNGRADED ITEMS ## |
|
| $r->print(<<END); |
|
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
|
| <tr><td> |
|
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
|
| <tr> |
|
| <td bgcolor="$tabbg"><b>Problems requiring handgrading</b></td></tr> |
|
| <tr> |
|
| <td bgcolor="#ffffff"> |
|
| <table cellpadding="2" cellspacing="0" border="0" width="100%"> |
|
| END |
|
| |
|
| if (@tograde > 0) { |
my %display_settings = &get_display_settings($uname,$udom,$cid); |
| $r->print('<tr bgcolor="#cccccc"><td><b><small>Problem Name</small></b></td><td align="right"><b><small>Number ungraded</small></b></td></tr>'); |
my $timediff = $display_settings{$cid.':interval'}; |
| my $rowNum = 0; |
unless (defined($timediff)) { $timediff = 604800; } |
| foreach my $res (@tograde) { |
my $now = time; |
| if ($rowNum %2 == 1) { |
my $interval = $$interval_titles{$timediff}; |
| $rowColor = $rowColor1; |
if ($timediff == -1) { |
| } else { |
$timediff = time; |
| $rowColor = $rowColor2; |
} |
| } |
my $starttime = $now - $timediff; |
| my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
my $countunread = $display_settings{$cid.':countunread'}; |
| my $linkurl=&Apache::lonnet::clutter($url); |
unless (defined($countunread)) { |
| $linkurl .= '?symb='.&Apache::lonnet::escape($res); |
$countunread = 'on'; |
| |
} |
| |
|
| |
my %headings = &Apache::lonlocal::texthash( |
| |
coursediscussion => 'Unread '.$lctype.' discussion posts', |
| |
handgrading => 'Problems requiring handgrading', |
| |
haserrors => 'Problems with errors', |
| |
versionchanges => 'Resources in '.$lctype.' with version changes '.$interval, |
| |
coursenormalmail => 'New '.$lctype.' messages', |
| |
coursecritmail => 'New critical messages in '.$lctype, |
| |
); |
| |
|
| $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>'); |
if ($$checkallowed{'abovethreshold'}) { |
| $rowNum ++; |
&get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); |
| } |
|
| } else { |
|
| $r->print('<tr><td bgcolor="#ffffff"><br><center><i><b><small> No problems require handgrading </small><br><br></b></i></td></tr>'); |
|
| } |
} |
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
|
| |
|
| ## BOMBS ## |
$headings{'abovethreshold'} = &mt('Problems with av. attempts').' ≥ '.$threshold{'av_attempts'}.' '.&mt('or deg. difficulty').' ≥ '.$threshold{'degdiff'}.'<br /> '.&mt('and total number of [_1] with submissions',$stulabel{$crstype}).' ≥ '.$threshold{'numstudents'}; |
| $r->print(<<"END"); |
|
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail'); |
| <tr> |
|
| <td> |
foreach my $key (keys(%{$checkallowed})) { |
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
if ($key =~ /_section$/) { next; } |
| <tr> |
$show{$key} = 0; |
| <td bgcolor="$tabbg"><b>Problems with errors</b></td> |
if ($$checkallowed{$key}) { |
| </tr> |
unless ($display_settings{$cid.':'.$key} eq 'hide') { |
| <tr> |
$show{$key} = 1; |
| <td bgcolor="#ffffff"> |
|
| <table width="100%" cellspacing="0" cellpadding="0" border="0"> |
|
| END |
|
| my $bombnum = 0; |
|
| if (@bombs > 0) { |
|
| $r->print('<tr bgcolor="#cccccc"><td><b><small>Resource</small></b></td><td align="right"><b><small>Number of errors</small></b></td></tr>'); |
|
| @bombs = sort { &cmp_title($a,$b,\%res_title) } @bombs; |
|
| foreach my $bomb (@bombs) { |
|
| if ($bombnum %2 == 1) { |
|
| $rowColor = $rowColor1; |
|
| } else { |
|
| $rowColor = $rowColor2; |
|
| } |
} |
| $r->print('<tr bgcolor="'.$rowColor.'"><td><small>'.$bombed{$bomb}{errorlink}.'</small></td><td align="right"><small>'.$bombed{$bomb}{errorcount}.'</small></td></tr>'); |
|
| $bombnum ++; |
|
| } |
} |
| } else { |
|
| $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>No problems with errors</small></i></b></center><br /></td></tr>'); |
|
| } |
} |
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
|
| |
|
| # DEGDIFF AND AV. TRIES TRIGGERS |
foreach my $item (@actionorder) { |
| $r->print(<<"END"); |
unless ($item eq 'coursenormalmail' || $item eq 'coursecritmail') { |
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
if ($show{$item}) { |
| <tr> |
$needitems = 1; |
| <td> |
last; |
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
|
| <tr> |
|
| <td bgcolor="$tabbg"><b>Problems with av. attempts ≥ $threshold{'av_attempts'} or deg. difficulty ≥ $threshold{'degdiff'}<br /> and total number of students with submissions ≥ $threshold{'numstudents'}</b></td> |
|
| </tr> |
|
| <tr> |
|
| <td bgcolor="$tabbg" align="right"><a href="/adm/whatsnew?command=chgthreshold"><b><small>Change thresholds?</small></b></a></td> |
|
| </tr> |
|
| <tr> |
|
| <td bgcolor="#ffffff"> |
|
| <table width="100%" cellspacing="2" cellpadding="2" border="0"> |
|
| END |
|
| my $warningnum = 0; |
|
| if (@warnings > 0) { |
|
| @warnings = sort { &cmp_title($a,$b,\%res_title) } @warnings; |
|
| $r->print('<form name="reset_tracking" method="post">'. |
|
| ' <input type="hidden" name="action" value="reset" />'."\n"); |
|
| $r->print('<tr bgcolor="#cccccc"><td><b><small>Resource</small></b></td><td align="right"><b><small>Part</small></b></td><td align="right"><b><small>Num. students</small></b></td><td align="right"><b><small>Av. Attempts</small></b></td><td align="right"><b><small>Deg. Diff</small></b></td><td align="right"><b><small>Last Reset</small></b></td><td align="right"><b><small>Reset Count?</small></b></td></tr>'); |
|
| foreach my $res (@warnings) { |
|
| if ($warningnum %2 == 1) { |
|
| $rowColor = $rowColor1; |
|
| } else { |
|
| $rowColor = $rowColor2; |
|
| } |
|
| my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
|
| my $linkurl=&Apache::lonnet::clutter($url); |
|
| my $rowspan; |
|
| if ($triggered{$res}{numparts} > 1) { |
|
| $rowspan = 'rowspan="'.$triggered{$res}{numparts}.'"'; |
|
| } |
} |
| $linkurl .= '?symb='.&Apache::lonnet::escape($res); |
|
| $r->print('<tr bgcolor="'.$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="Reset counters to 0" /></form>'); |
|
| } else { |
|
| $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>No problems satisfy threshold criteria.</small></i></b></center><br /></td></tr>'); |
|
| } |
} |
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
|
| |
|
| $r->print('</td><td width="5%"> </td><td align="left" valign="top" width-"50%">'); |
|
| |
|
| ## UNREAD COURSE DISCUSSION POSTS ## |
if ($needitems) { |
| $r->print(<<"END"); |
&getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread); |
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
} |
| <tr><td> |
if ($show{'coursenormalmail'}) { |
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
$msgcount = &getnormalmail(\@newmsgs); |
| <tr> |
} |
| <td bgcolor="$tabbg"><b>Unread course discussion posts</b></td> |
if ($show{'coursecritmail'}) { |
| </tr> |
$critmsgcount = &getcritmail(\@critmsgs); |
| <tr> |
|
| <td bgcolor="#ffffff"> |
|
| <table cellpadding="2" cellspacing="0" border="0" width="100%"> |
|
| END |
|
| |
|
| if (@newdiscussions > 0) { |
|
| $r->print('<tr bgcolor="#cccccc"><td><b><small>Location</small></b></td><td><b><small>Type</small></b><td align="right"><b><small>Number of new posts</small></b></td></tr>'); |
|
| @newdiscussions = sort { &cmp_title($a,$b,\%res_title) } @newdiscussions; |
|
| my $rowNum = 0; |
|
| foreach my $ressymb (@newdiscussions) { |
|
| my $forum_title = $unread{$ressymb}{'title'}; |
|
| my $type = 'Resource'; |
|
| my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); |
|
| if ($feedurl =~ /bulletinboard/) { |
|
| $type = 'Bulletin Board'; |
|
| } |
|
| my $unreadnum = keys(%{$unread{$ressymb}}); |
|
| $unreadnum = $unreadnum - 2; |
|
| if ($unreadnum > 0) { |
|
| if ($rowNum %2 == 1) { |
|
| $rowColor = $rowColor1; |
|
| } else { |
|
| $rowColor = $rowColor2; |
|
| } |
|
| $r->print('<tr bgcolor="'.$rowColor.'"><td><small><a href="'.$feedurl.'?symb='.$unread{$ressymb}{symb}.'">'.$forum_title.'</a> </td><td><small>'.$type.'</small></td><td align="right">'.$unreadnum.' </td></tr>'); |
|
| $rowNum ++; |
|
| } |
|
| } |
|
| } else { |
|
| $r->print('<tr><td bgcolor="#ffffff"><br><center> <i><b><small>No unread posts in course discussions</small></b></i><br><br></td></tr>'); |
|
| } |
} |
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
|
| |
|
| ## MESSAGES ## |
$r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a> |
| $r->print(<<END); |
<a href="javascript:changeAll('show');">$lt{'shal'}</a> |
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
<form method="post" name="visible" action="/adm/whatsnew">\n|); |
| <tr> |
foreach my $item (keys(%{$checkallowed})) { |
| <td> |
if ($item =~ /_section$/) { next; } |
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
if ($$checkallowed{$item}) { |
| <tr> |
$r->print('<input type="hidden" name="display_'.$item.'" />'."\n"); |
| <td bgcolor="$tabbg"><b>New course messages</b></td> |
|
| </tr> |
|
| <tr> |
|
| <td bgcolor="#ffffff"> |
|
| <table width="100%" cellspacing="0" cellpadding="0" border="0"> |
|
| END |
|
| 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>'); |
|
| my $rowNum = 0; |
|
| my $mailcount = 1; |
|
| foreach my $msg (@newmsgs) { |
|
| if ($rowNum %2 == 1) { |
|
| $rowColor = $rowColor1; |
|
| } else { |
|
| $rowColor = $rowColor2; |
|
| } |
|
| $r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. <small></td><td valign="top"><small><a href="/adm/communicate">'.$msg->{'shortsub'}.'</a> </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>'); |
|
| $rowNum ++; |
|
| $mailcount ++; |
|
| } |
} |
| } else { |
|
| $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>No new course messages</small></i></b><br /><br /></center></td></tr>'); |
|
| } |
} |
| |
|
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
$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(<<END); |
|
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
|
| <tr> |
|
| <td> |
|
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
|
| <tr> |
|
| <td bgcolor="$tabbg"><b>New critical messages in course</b></td> |
|
| </tr> |
|
| <tr> <td bgcolor="#ffffff"> |
|
| <table width="100%" cellspacing="0" cellpadding="0" border="0"> |
|
| END |
|
| |
|
| if ($critmsgcount > 0) { |
my $displayed = 0; |
| $r->print('<tr bgcolor="#cccccc"><td><b><small>Number</small></b></td><td><b><small>Subject</small></b></td><td><b><small>Sender</small></b></td><td><b><small>Date/Time</small></b></td></tr>'); |
my $totalboxes = 0; |
| my $rowNum = 0; |
foreach my $key (keys(%{$checkallowed})) { |
| my $mailcount = 1; |
if ($key =~ /_section$/) { next; } |
| foreach my $msg (@critmsgs) { |
if ($key eq 'whatsnew' ) { next; } # whatsnew check creates no box |
| if ($rowNum %2 == 1) { |
if ($$checkallowed{$key}) { |
| $rowColor = $rowColor1; |
$totalboxes ++; |
| } else { |
} |
| $rowColor = $rowColor2; |
} |
| |
my $halfway = int($totalboxes/2) + $totalboxes%2; |
| |
foreach my $actionitem (@actionorder) { |
| |
if ($$checkallowed{$actionitem}) { |
| |
if ($displayed == $halfway) { |
| |
$r->print('</td><td width="6%"> </td><td align="left" valign="top" width="47%">'); |
| } |
} |
| $r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. <small></td><td valign="top"><small><a href="/adm/mail?">'.$msg->{'shortsub'}.'</a> </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>'); |
&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); |
| $rowNum ++; |
$displayed ++; |
| $mailcount ++; |
|
| } |
} |
| } else { |
|
| $r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>No unread critical messages in course</small></i></b><br /><br /></center></td></tr>'); |
|
| } |
} |
| |
|
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
|
| |
|
| $r->print(' |
$r->print(' |
| </table> |
</table> |
| </td> |
</td> |
| </tr> |
</tr> |
| </table>'); |
</table> |
| $r->print('</td></tr></table>'); |
</td> |
| |
</tr> |
| |
</table>'); |
| } |
} |
| |
|
| #------------------------------- |
#------------------------------- |
| # display_config_box |
# display_threshold_config |
| # |
# |
| # Display the threshold setting screen |
# Display the threshold setting screen |
| # |
# |
| #------------------------------- |
#------------------------------- |
| |
|
| sub display_config_box() { |
sub display_threshold_config { |
| my ($r,$command,$tabbg,$threshold_titles,$cdom,$crs) = @_; |
my ($r,$refpage,$tabbg,$threshold_titles,$cdom,$crs) = @_; |
| |
my $uname = $env{'user.name'}; |
| |
my $udom = $env{'user.dom'}; |
| |
my $cid = $env{'request.course.id'}; |
| my %threshold = (); |
my %threshold = (); |
| my $rowColor1 = "#ffffff"; |
my $rowColor1 = "#ffffff"; |
| my $rowColor2 = "#eeeeee"; |
my $rowColor2 = "#eeeeee"; |
| my $rowColor; |
my $rowColor; |
| |
|
| my @thresholditems = ("av_attempts","degdiff","numstudents"); |
my @thresholditems = ("av_attempts","degdiff","numstudents"); |
| my %threshold_titles = ( |
foreach my $item (@thresholditems) { |
| |
$threshold{$item} = ''; |
| |
} |
| |
my %threshold_titles = &Apache::lonlocal::texthash( |
| av_attempts => 'Average number of attempts', |
av_attempts => 'Average number of attempts', |
| degdiff => 'Degree of difficulty', |
degdiff => 'Degree of difficulty', |
| numstudents => 'Total number of students with submissions', |
numstudents => 'Total number of students with submissions', |
| ); |
); |
| &get_curr_thresholds(\%threshold,$cdom,$crs); |
&get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); |
| |
|
| $r->print('<br /><form name="thresholdform" method="post"><table border="0" cellpadding="2" cellspacing="4"><tr><td align="left" valign="top" width="45%"> |
$r->print('<br /><form name="thresholdform" method="post" action="/adm/whatsnew"> |
| |
<table border="0" cellpadding="2" cellspacing="4"> |
| |
<tr> |
| |
<td align="left" valign="top" width="45%"> |
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000"> |
| <tr> |
<tr> |
| <td> |
<td> |
|
Line 477 sub display_config_box() {
|
Line 493 sub display_config_box() {
|
| </tr>'); |
</tr>'); |
| my $rowNum =0; |
my $rowNum =0; |
| foreach my $type (@thresholditems) { |
foreach my $type (@thresholditems) { |
| my $parameter = 'internal.threshold_'.$type; |
my $parameter = $env{'request.course.id'}.':threshold_'.$type; |
| # onchange is javascript to automatically check the 'Set' button. |
# onchange is javascript to automatically check the 'Set' button. |
| my $onchange = 'onFocus="javascript:window.document.forms'. |
my $onchange = 'onFocus="javascript:window.document.forms'. |
| "['thresholdform'].elements['".$parameter."_setparmval']". |
"['thresholdform'].elements['".$parameter."_setparmval']". |
|
Line 501 sub display_config_box() {
|
Line 517 sub display_config_box() {
|
| } |
} |
| $r->print('</table></td></tr></table></td></tr></table> |
$r->print('</table></td></tr></table></td></tr></table> |
| <br /><input type="submit" name="threshold" value="Make changes" /> |
<br /><input type="submit" name="threshold" value="Make changes" /> |
| <input type="hidden" name="action" value="update" /> |
<input type="hidden" name="command" value="update" /> |
| |
<input type="hidden" name="refpage" value="'.$refpage.'" /> |
| </form>'); |
</form>'); |
| } |
} |
| |
|
| |
#------------------------------- |
| |
# display_interval_config |
| |
# |
| |
# Display the interval setting screen |
| |
# |
| |
#------------------------------- |
| |
|
| |
sub display_interval_config { |
| |
my ($r,$refpage,$interval_titles) = @_; |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
| |
$env{'request.course.id'},'interval'); |
| |
$r->print('<br />'.&mt('Choose the time window to use for display of version changes for resources in the [_1].',$lctype)); |
| |
unless ($current eq '') { |
| |
$r->print(' '.&mt('Current value is [_1]','<b>'. |
| |
$$interval_titles{$current}.'</b>.')); |
| |
} |
| |
$r->print('<br /><br /> |
| |
<form method="post" name="intervalswitch" action="/adm/whatsnew"> |
| |
<input type="hidden" name="command" value="newinterval" /> |
| |
<input type="hidden" name="refpage" value="'.$refpage.'" /> |
| |
<select name="interval"> |
| |
'); |
| |
foreach my $key (reverse sort ({$a cmp $b} (keys(%{$interval_titles})))) { |
| |
$r->print('<option value="'.$key.'">Version changes '.$$interval_titles{$key}. |
| |
'</option>'."\n"); |
| |
} |
| |
$r->print('</select> |
| |
<input type="submit" name="display" value="'. |
| |
&mt('Change interval').'" /></form>'); |
| |
return; |
| |
} |
| |
|
| |
#---------------------------------------------- |
| |
# display_discussion_config |
| |
# |
| |
# Display the discussion display setting screen |
| |
# |
| |
#---------------------------------------------- |
| |
|
| |
sub display_discussion_config { |
| |
my ($r,$refpage) = @_; |
| |
my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
| |
$env{'request.course.id'},'countunread'); |
| |
if ($current eq '') { |
| |
$current = 'on'; |
| |
} |
| |
my %opposite = ( |
| |
'on' => 'off', |
| |
'off' => 'on', |
| |
); |
| |
$r->print('<script type="text/javascript"> |
| |
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>").' '.&mt('Currently set to [_1].','<b>'.$current.'</b>')); |
| |
$r->print('<br /><br /> |
| |
<form method="post" name="discussionswitch" action="/adm/whatsnew"> |
| |
<input type="hidden" name="command" value="newdiscconf" /> |
| |
<input type="hidden" name="refpage" value="'.$refpage.'" /> |
| |
<input type="hidden" name="countunread" value="'.$opposite{$current}.'" /> |
| |
'); |
| |
$r->print('<br/> |
| |
<input type="button" name="display" value="'. |
| |
&mt('Change to [_1]',$opposite{$current}).'" |
| |
onclick="javascript:toggle_countunread('."'change'".')" /> |
| |
  |
| |
<input type="button" name="nochange" value="'. |
| |
&mt("No change").'" |
| |
onclick="javascript:toggle_countunread('."'unchanged'".')" /> |
| |
</form>'); |
| |
return; |
| |
} |
| |
|
| |
#--------------------------------------------------- |
| |
# courseinit_config |
| |
# |
| |
# Set page displayed when course loads after |
| |
# selecting a role in the course from the roles page. |
| |
# |
| |
#--------------------------------------------------- |
| |
|
| |
sub courseinit_config { |
| |
my ($r,$refpage,$initpage) = @_; |
| |
my ($control,$current) = &curr_courseinit(); |
| |
my @chgstate = ('userpref','coursespecific'); |
| |
my @chgentry = ('firstres','whatsnew'); |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'chwp' => "Choose which page will be displayed when you enter this $lctype after selecting a role.", |
| |
'cuva' => 'Current value is determined by', |
| |
'anis' => 'and is set to display', |
| |
'padc' => 'Page display controlled by', |
| |
'chce' => 'Choose '.$lctype.' entry', |
| |
'moce' => 'Modify '.$lctype.' entry', |
| |
); |
| |
$r->print(<<"END"); |
| |
<br />$lt{'chwp'} |
| |
<br />$lt{'cuva'}: <b> |
| |
$$initpage{$control}</b> $lt{'anis'} <b> |
| |
$$initpage{$current}</b>.<br /><br /> |
| |
<form method="post" name="courseinitswitch" action="/adm/whatsnew"> |
| |
<input type="hidden" name="command" value="newcourseinit" /> |
| |
<input type="hidden" name="refpage" value="$refpage" /> |
| |
$lt{'padc'}: |
| |
END |
| |
foreach my $choice (@chgstate) { |
| |
my $chkstring; |
| |
if ($choice eq $control) { |
| |
$chkstring = ' checked="checked" '; |
| |
} |
| |
$r->print('<nobr><label><input type="radio" name="courseinit_control" value="'. |
| |
$choice.'"'.$chkstring.'/>'.$$initpage{$choice}. |
| |
' </label></nobr>'); |
| |
} |
| |
$r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}. |
| |
' - <br />'.$lt{'chce'}.": \n"); |
| |
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="'. |
| |
$choice.'"'.$chkstring.'/>'.$$initpage{$choice}. |
| |
' </label></nobr>'); |
| |
} |
| |
$r->print('<br /><br /><input type="submit" name="display" value="'. |
| |
$lt{'moce'}.'" /></form>'); |
| |
return; |
| |
} |
| |
|
| |
sub curr_courseinit { |
| |
my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
| |
$env{'request.course.id'},'courseinit'); |
| |
my $control; |
| |
if ($current) { |
| |
$control = 'coursespecific'; |
| |
} else { |
| |
$control = 'userpref'; |
| |
my %userenv = &Apache::lonnet::get('environment', |
| |
['course_init_display']); |
| |
if (exists($userenv{'course_init_display'})) { |
| |
$current = $userenv{'course_init_display'}; |
| |
} |
| |
unless ($current) { |
| |
$current = 'whatsnew'; |
| |
} |
| |
} |
| |
return ($control,$current); |
| |
} |
| |
|
| |
sub display_launcher { |
| |
my ($r,$action,$refpage,$checkallowed,$tabbg,$rowColor1,$rowColor2,$show, |
| |
$headings,$res_title,$tograde,$ungraded,$bombs,$bombed,$changed, |
| |
$warnings,$triggered,$newdiscussions,$unread,$msgcount,$newmsgs, |
| |
$critmsgcount,$critmsgs,$interval,$countunread) = @_; |
| |
|
| |
if ($$checkallowed{$action}) { |
| |
&start_box($r,$tabbg,$show,$headings,$action,$refpage); |
| |
if ($$show{$action}) { |
| |
if ($action eq 'handgrading') { # UNGRADED ITEMS |
| |
&display_handgrade($r,$tograde,$rowColor1,$rowColor2, |
| |
$ungraded); |
| |
} elsif ($action eq 'haserrors') { # BOMBS |
| |
&display_haserrors($r,$bombs,$rowColor1,$rowColor2,$bombed, |
| |
$res_title); |
| |
} elsif ($action eq 'versionchanges') { # VERSION CHANGES |
| |
&display_versionchanges($r,$changed,$res_title,$rowColor1, |
| |
$rowColor2,$interval); |
| |
|
| |
} elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS |
| |
&display_abovethreshold($r,$refpage,$warnings,$triggered, |
| |
$res_title); |
| |
} elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION |
| |
&display_coursediscussion($r,$newdiscussions,$unread, |
| |
$countunread,$res_title,$rowColor1,$rowColor2); |
| |
} elsif ($action eq 'coursenormalmail') { # NORMAL MESSAGES |
| |
&display_coursenormalmail($r,$msgcount,$newmsgs,$rowColor1, |
| |
$rowColor2); |
| |
} elsif ($action eq 'coursecritmail') { # CRITICAL MESSAGES |
| |
&display_coursecritmail($r,$critmsgcount,$critmsgs,$rowColor1, |
| |
$rowColor2); |
| |
} |
| |
} |
| |
&end_box($r); |
| |
} |
| |
return; |
| |
} |
| |
|
| sub getitems { |
sub getitems { |
| my ($unread,$ungraded,$bombed,$triggered,$newdiscussions,$tograde,$bombs,$warnings,$rowColor1,$rowColor2,$threshold,$cdom,$crs,$res_title) = @_; |
my ($unread,$ungraded,$bombed,$triggered,$changed,$newdiscussions, |
| |
$tograde,$bombs,$warnings,$rowColor1,$rowColor2,$threshold,$cdom,$crs, |
| |
$res_title,$show,$starttime,$countunread) = @_; |
| my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| # force retrieve Resource to seed the part id cache we'll need it later |
# force retrieve Resource to seed the part id cache we'll need it later |
| my @allres=$navmap->retrieveResources(undef,sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;}); |
my @allres=$navmap->retrieveResources(undef, |
| my %discussiontime = &Apache::lonnet::dump('discussiontimes',$cdom,$crs); |
sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;}); |
| my %lastread = &Apache::lonnet::dump('nohist_'.$env{'request.course.id'}. |
my %resourcetracker; |
| '_discuss',$env{'user.domain'},$env{'user.name'},'lastread'); |
my $discussiontime; |
| my %lastreadtime = (); |
|
| my @discussions = (); |
# Resource version changes |
| my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); |
if ($$show{'versionchanges'}) { |
| |
&checkversions($cdom,$crs,$navmap,$changed,$starttime); |
| |
} |
| |
|
| my %resourcetracker = &Apache::lonnet::dump('nohist_resourcetracker', |
if ($$show{'abovethreshold'}) { |
| $cdom,$crs); |
%resourcetracker = &Apache::lonnet::dump('nohist_resourcetracker', |
| my $warningnum = 0; |
$cdom,$crs); |
| foreach my $key (keys(%lastread)) { |
|
| my $newkey = $key; |
|
| $newkey =~ s/_lastread$//; |
|
| $lastreadtime{$newkey} = $lastread{$key}; |
|
| } |
} |
| |
|
| |
my $warningnum = 0; |
| foreach my $resource (@allres) { |
foreach my $resource (@allres) { |
| my $result = ''; |
my $result = ''; |
| my $applies = 0; |
my $applies = 0; |
| my $symb = $resource->symb(); |
my $symb = $resource->symb(); |
| # %{$$bombed{$symb}} = (); |
%{$$bombed{$symb}} = (); |
| %{$$ungraded{$symb}} = (); |
%{$$ungraded{$symb}} = (); |
| %{$$triggered{$symb}} = (); |
%{$$triggered{$symb}} = (); |
| $$triggered{$symb}{numparts} = 0; |
$$triggered{$symb}{numparts} = 0; |
| my $title = $resource->compTitle(); |
my $title = $resource->compTitle(); |
| $$res_title{$symb} = $title; |
$$res_title{$symb} = $title; |
| my $ressymb = $resource->wrap_symb(); |
my $ressymb = $resource->wrap_symb(); |
| # Check for unread discussion postings |
|
| if ($resource->hasDiscussion()) { |
# Check if there are unread discussion postings |
| push(@discussions,$ressymb); |
if ($$show{'coursediscussion'}) { |
| my $prevread = 0; |
&check_discussions($resource,$symb,$ressymb,$title, |
| my $unreadcount = 0; |
$newdiscussions,$unread,$countunread); |
| %{$$unread{$ressymb}} = (); |
} |
| $$unread{$ressymb}{'title'} = $title; |
|
| $$unread{$ressymb}{'symb'} = $symb; |
|
| if (defined($lastreadtime{$ressymb})) { |
|
| $prevread = $lastreadtime{$ressymb}; |
|
| } |
|
| my %contrib = &Apache::lonnet::restore($ressymb, |
|
| $env{'request.course.id'},$cdom,$crs); |
|
| if ($contrib{'version'}) { |
|
| for (my $id=1;$id<=$contrib{'version'};$id++) { |
|
| unless (($contrib{'hidden'}=~/\.$id\./) || ($contrib{'deleted'}=~/\.$id\./)) { |
|
| if ($prevread <$contrib{$id.':timestamp'}) { |
|
| $$unread{$ressymb}{$unreadcount} = $id.': '.$contrib{$id.':subject'}; |
|
| $unreadcount ++; |
|
| } |
|
| } |
|
| } |
|
| } |
|
| if ($unreadcount) { push(@{$newdiscussions}, $ressymb); } |
|
| } |
|
| |
|
| # Check for ungraded problems |
# Check for ungraded problems |
| if ($resource->is_problem()) { |
if ($resource->is_problem()) { |
| my $ctr = 0; |
if ($$show{'handgrading'}) { |
| my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
&check_handgraded($resource,$symb,$title,$cdom,$crs,$ungraded, |
| my $partlist=$resource->parts(); |
$tograde); |
| my $handgradeable; |
} |
| foreach my $part (@$partlist) { |
|
| if ($resource->handgrade($part) eq 'yes') { |
|
| $handgradeable=1; last; |
|
| } |
|
| } |
|
| if ($handgradeable) { |
|
| foreach my $student (keys(%$classlist)) { |
|
| my ($uname,$udom) = split(/:/,$student); |
|
| my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist); |
|
| my $submitted = 0; |
|
| my $ungraded = 0; |
|
| foreach (keys(%status)) { |
|
| $submitted = 1 if ($status{$_} ne 'nothing'); |
|
| $ungraded = 1 if ($status{$_} =~ /^ungraded/); |
|
| my ($foo,$partid,$foo1) = split(/\./,$_); |
|
| if ($status{'resource.'.$partid.'.submitted_by'} ne '') { |
|
| $submitted = 0; |
|
| } |
|
| } |
|
| next if (!$submitted || !$ungraded); |
|
| $ctr ++; |
|
| } |
|
| if ($ctr) { |
|
| $$ungraded{$symb}{count} = $ctr; |
|
| $$ungraded{$symb}{title} = $title; |
|
| push(@{$tograde}, $symb); |
|
| } |
|
| } |
|
| } |
} |
| |
|
| # Check for bombs |
# Check for bombs |
| if ($resource->getErrors()) { |
if ($$show{'haserrors'}) { |
| my $errors = $resource->getErrors(); |
&check_bombed($resource,$symb,$title,$bombs,$bombed); |
| $errors =~ s/^,//; |
} |
| my @bombs = split(/,/, $errors); |
|
| my $errorcount = scalar(@bombs); |
# Maxtries and degree of difficulty for problem parts, unless handgradeable |
| my $errorlink = '<a href="/adm/email?display='. |
if ($$show{'abovethreshold'}) { |
| &Apache::lonnet::escape($bombs[0]).'">'. |
$warningnum = &check_thresholds($resource,$symb,\%resourcetracker, |
| $title.'</a>'; |
$triggered,$threshold,$warnings, |
| $$bombed{$symb}{errorcount} = $errorcount; |
$warningnum,$rowColor1,$rowColor2); |
| $$bombed{$symb}{errorlink} = $errorlink; |
} |
| push(@{$bombs}, $symb); |
|
| } |
} |
| # Compile maxtries and degree of difficulty for problem parts |
} |
| my @parts = @{$resource->parts()}; |
|
| my %stats; |
sub check_discussions { |
| my %lastreset = (); |
my ($resource,$symb,$ressymb,$title,$newdiscussions,$unread, |
| my $warning = 0; |
$countunread) = @_; |
| my $rowColor; |
|
| foreach my $part (@parts) { |
if (!$resource->hasDiscussion()) { return; } |
| %{$stats{$part}} = (); |
|
| my ($attempts,$users,$corrects,$degdiff,$av_attempts); |
%{$$unread{$ressymb}} = (); |
| if (exists($resourcetracker{$symb."\0".$part."\0attempts"})) { |
$$unread{$ressymb}{'title'} = $title; |
| $attempts = $resourcetracker{$symb."\0".$part."\0attempts"}; |
$$unread{$ressymb}{'symb'} = $symb; |
| } |
push(@{$newdiscussions}, $ressymb); |
| if (exists($resourcetracker{$symb."\0".$part."\0users"})) { |
|
| $users = $resourcetracker{$symb."\0".$part."\0users"}; |
$$unread{$ressymb}{'lastpost'} = $resource->last_post_time(); |
| } |
|
| if (exists($resourcetracker{$symb."\0".$part."\0correct"})) { |
if ($countunread eq 'on') { |
| $corrects = $resourcetracker{$symb."\0".$part."\0correct"}; |
$$unread{$ressymb}{'unreadcount'} = $resource->unread_discussion(); |
| } |
} |
| if ($attempts > 0) { |
} |
| $degdiff = 1 - ($corrects/$attempts); |
|
| $degdiff = sprintf("%.2f",$degdiff); |
sub check_handgraded { |
| } |
my ($resource,$symb,$title,$cdom,$cnum,$ungraded,$tograde) = @_; |
| if ($users > 0) { |
if ($resource->is_problem()) { |
| $av_attempts = $attempts/$users; |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
| $av_attempts = sprintf("%.2f",$av_attempts); |
my $partlist=$resource->parts(); |
| } |
my $handgradeable; |
| if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) { |
foreach my $part (@$partlist) { |
| $stats{$part}{degdiff} = $degdiff; |
if ($resource->handgrade($part) eq 'yes') { |
| $stats{$part}{attempts} = $av_attempts; |
$handgradeable=1; last; |
| $stats{$part}{users} = $users; |
|
| $lastreset{$part} = $resourcetracker{$symb."\0".$part."\0resettime"}; |
|
| $warning = 1; |
|
| } |
} |
| } |
} |
| if ($warning) { |
if ($handgradeable) { |
| if ($warningnum %2 == 1) { |
my @ungraded = &Apache::bridgetask::get_queue_symb_status( |
| $rowColor = $rowColor1; |
'gradingqueue',$symb,$cdom,$cnum); |
| } else { |
if (@ungraded > 0) { |
| $rowColor = $rowColor2; |
$$ungraded{$symb}{count} = scalar(@ungraded); |
| |
$$ungraded{$symb}{title} = $title; |
| |
push(@{$tograde}, $symb); |
| } |
} |
| $$triggered{$symb}{title} = $resource->title; |
} |
| foreach my $part (@parts) { |
} |
| if (exists($stats{$part}{users})) { |
} |
| my $resetname = 'reset_'.&Apache::lonnet::escape($symb."\0".$part); |
|
| my $resettitle = 'title_'.&Apache::lonnet::escape($symb."\0".$part); |
sub check_bombed { |
| if ($$triggered{$symb}{numparts}) { |
my ($resource,$symb,$title,$bombs,$bombed) = @_; |
| $$triggered{$symb}{text} .= '<tr bgcolor="'.$rowColor.'">'."\n"; |
if ($resource->getErrors()) { |
| } |
my $errors = $resource->getErrors(); |
| if (@parts > 1) { |
$errors =~ s/^,//; |
| $$triggered{$symb}{text} .= ' |
my @bombs = split(/,/, $errors); |
| <td align="right"><small>part - '.$part.'<small></td>'; |
my $errorcount = scalar(@bombs); |
| } else { |
my $errorlink = '<a href="/adm/email?display='. |
| $$triggered{$symb}{text} .= ' |
&escape($bombs[0]).'">'. |
| <td align="right"><small>single part</small></td>'; |
$title.'</a>'; |
| } |
$$bombed{$symb}{errorcount} = $errorcount; |
| |
$$bombed{$symb}{errorlink} = $errorlink; |
| |
push(@{$bombs}, $symb); |
| |
} |
| |
} |
| |
|
| |
sub check_thresholds { |
| |
my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings, |
| |
$warningnum,$rowColor1,$rowColor2) = @_; |
| |
# Compile maxtries and degree of difficulty for problem parts, unless handgradeable |
| |
my @parts = @{$resource->parts()}; |
| |
my %stats; |
| |
my %lastreset = (); |
| |
my $warning = 0; |
| |
my $rowColor; |
| |
foreach my $part (@parts) { |
| |
if ($resource->handgrade($part) eq 'yes') { |
| |
next; |
| |
} |
| |
if ($resource->is_survey($part)) { |
| |
next; |
| |
} |
| |
%{$stats{$part}} = (); |
| |
my ($attempts,$users,$corrects,$degdiff,$av_attempts); |
| |
if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) { |
| |
$attempts = $$resourcetracker{$symb."\0".$part."\0attempts"}; |
| |
} |
| |
if (exists($$resourcetracker{$symb."\0".$part."\0users"})) { |
| |
$users = $$resourcetracker{$symb."\0".$part."\0users"}; |
| |
} |
| |
if (exists($$resourcetracker{$symb."\0".$part."\0correct"})) { |
| |
$corrects = $$resourcetracker{$symb."\0".$part."\0correct"}; |
| |
} |
| |
if ($attempts > 0) { |
| |
$degdiff = 1 - ($corrects/$attempts); |
| |
$degdiff = sprintf("%.2f",$degdiff); |
| |
} |
| |
if ($users > 0) { |
| |
$av_attempts = $attempts/$users; |
| |
$av_attempts = sprintf("%.2f",$av_attempts); |
| |
} |
| |
if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) { |
| |
$stats{$part}{degdiff} = $degdiff; |
| |
$stats{$part}{attempts} = $av_attempts; |
| |
$stats{$part}{users} = $users; |
| |
$lastreset{$part} = $$resourcetracker{$symb."\0".$part."\0resettime"}; |
| |
if ($lastreset{$part}) { |
| |
$lastreset{$part} = &Apache::lonnavmaps::timeToHumanString($lastreset{$part}); |
| |
} |
| |
$warning = 1; |
| |
} |
| |
} |
| |
if ($warning) { |
| |
if ($warningnum%2 == 1) { |
| |
$rowColor = $rowColor1; |
| |
} else { |
| |
$rowColor = $rowColor2; |
| |
} |
| |
$$triggered{$symb}{rowColor} = $rowColor; |
| |
$$triggered{$symb}{title} = $resource->title; |
| |
foreach my $part (@parts) { |
| |
if (exists($stats{$part}{users})) { |
| |
my $resetname = 'reset_'.&escape($symb."\0".$part); |
| |
my $resettitle = 'title_'.&escape($symb."\0".$part); |
| |
if ($$triggered{$symb}{numparts}) { |
| |
$$triggered{$symb}{text} .= '<tr bgcolor="'.$rowColor.'">'."\n"; |
| |
} |
| |
if (@parts > 1) { |
| $$triggered{$symb}{text} .= ' |
$$triggered{$symb}{text} .= ' |
| <td align="right"><small>'.$stats{$part}{users}.'</small></td> |
<td align="right"><small>part - '.$part.'<small></td>'; |
| <td align="right"><small>'.$stats{$part}{attempts}.'</small></td> |
} else { |
| <td align="right"><small>'.$stats{$part}{degdiff}.'</small></td> |
$$triggered{$symb}{text} .= ' |
| <td align="right"><small>'.$lastreset{$part}.'</small></td> |
<td align="right"><small>single 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> |
|
| </tr>'; |
|
| $$triggered{$symb}{numparts} ++; |
|
| } |
} |
| |
$$triggered{$symb}{text} .= ' |
| |
<td align="right"><small>'.$stats{$part}{users}.'</small></td> |
| |
<td align="right"><small>'.$stats{$part}{attempts}.'</small></td> |
| |
<td align="right"><small>'.$stats{$part}{degdiff}.'</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="'.&escape($$triggered{$symb}{title}).'" /></td> |
| |
</tr>'; |
| |
$$triggered{$symb}{numparts} ++; |
| } |
} |
| push(@{$warnings},$symb); |
|
| $warningnum ++; |
|
| } |
} |
| |
push(@{$warnings},$symb); |
| |
$warningnum ++; |
| } |
} |
| |
return $warningnum; |
| } |
} |
| |
|
| |
|
| sub get_curr_thresholds { |
sub get_curr_thresholds { |
| my ($threshold,$cdom,$crs) = @_; |
my ($threshold,$uname,$udom,$cid,$cdom,$crs) = @_; |
| my %coursesettings = &Apache::lonnet::dump('environment', |
my %thresholdsettings = &Apache::lonnet::dump('nohist_whatsnew',$udom, |
| $cdom,$crs,'internal.threshold'); |
$uname,$cid.':threshold'); |
| if (exists($coursesettings{'internal.threshold_av_attempts'})) { |
my $thresholdcount = 0; |
| $$threshold{'av_attempts'} = $coursesettings{'internal.threshold_av_attempts'}; |
my ($tmp) = %thresholdsettings; |
| |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
| |
foreach my $item (keys %{$threshold}) { |
| |
if (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
| |
$$threshold{$item} = |
| |
$thresholdsettings{$cid.':threshold_'.$item}; |
| |
$thresholdcount ++; |
| |
} |
| |
} |
| } |
} |
| if (exists($coursesettings{'internal.threshold_degdiff'})) { |
if ($thresholdcount == 3) { |
| $$threshold{'degdiff'} = $coursesettings{'internal.threshold_degdiff'}; |
return; |
| |
} |
| |
my %coursesettings = &Apache::lonnet::dump('environment', |
| |
$cdom,$crs,'internal.threshold'); |
| |
my ($temp) = %coursesettings; |
| |
unless ($temp =~ /^(con_lost|error|no_such_host)/i) { |
| |
foreach my $item (keys %{$threshold}) { |
| |
unless (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
| |
if (exists($coursesettings{'internal.threshold_'.$item})) { |
| |
$$threshold{$item} = |
| |
$coursesettings{'internal.threshold_'.$item}; |
| |
} |
| |
} |
| |
} |
| } |
} |
| if (exists($coursesettings{'internal.threshold_numstudents'})) { |
return; |
| $$threshold{'numstudents'} = $coursesettings{'internal.threshold_numstudents'}; |
} |
| |
|
| |
sub get_current { |
| |
my ($uname,$udom,$cid,$caller) = @_; |
| |
my $currvalue; |
| |
my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid. |
| |
':'.$caller); |
| |
my ($tmp) = %settings; |
| |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
| |
$currvalue = $settings{$cid.':'.$caller}; |
| } |
} |
| |
return $currvalue; |
| } |
} |
| |
|
| sub process_reset { |
sub process_reset { |
| my ($dom,$crs) = @_; |
my ($dom,$crs) = @_; |
| my $result = '<b>Counters reset for following problems (and parts):</b><br />'; |
my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). |
| |
'</b><br />'; |
| my @agg_types = ('attempts','users','correct'); |
my @agg_types = ('attempts','users','correct'); |
| my %agg_titles = ( |
my %agg_titles = &Apache::lonlocal::texthash ( |
| attempts => 'Number of submissions', |
attempts => 'Number of submissions', |
| users => 'Students with submissions', |
users => 'Students with submissions', |
| correct => 'Number of correct submissions', |
correct => 'Number of correct submissions', |
|
Line 710 sub process_reset {
|
Line 980 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 737 sub process_reset {
|
Line 1007 sub process_reset {
|
| } |
} |
| |
|
| sub process_update { |
sub process_update { |
| my ($dom,$crs,$threshold_titles) = @_; |
my ($uname,$udom,$threshold_titles) = @_; |
| my $setoutput = '<b>Changes to threshold(s) for problem tracking:</b><br />'; |
my $setoutput = '<b>Changes to threshold(s) for problem tracking:</b><br />'; |
| foreach (keys %env) { |
foreach (keys %env) { |
| next if ($_!~/^form\.(.+)\_setparmval$/); |
next if ($_!~/^form\.(.+)\_setparmval$/); |
| my $name = $1; |
my $name = $1; |
| my $value = $env{'form.'.$name.'_value'}; |
my $value = $env{'form.'.$name.'_value'}; |
| if ($name && defined($value)) { |
if ($name && defined($value)) { |
| my $put_result = &Apache::lonnet::put('environment', |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
| {$name=>$value},$dom,$crs); |
{$name=>$value},$udom,$uname); |
| |
|
| my ($shortname) = ($name =~ /^internal\.threshold_(.+)$/); |
my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E:threshold_(.+)$/); |
| if ($put_result eq 'ok') { |
if ($put_result eq 'ok') { |
| $setoutput.=&mt('Set threshold for [_1] to [_2]', |
$setoutput.=&mt('Set threshold for [_1] to [_2]', |
| '<b>'.$$threshold_titles{$shortname}.'</b>', |
'<b>'.$$threshold_titles{$shortname}.'</b>', |
|
Line 762 sub process_update {
|
Line 1032 sub process_update {
|
| return $setoutput; |
return $setoutput; |
| } |
} |
| |
|
| sub getmail { |
sub getnormalmail { |
| my ($newmsgs,$critmsgs) = @_; |
my ($newmsgs) = @_; |
| # Check for unread mail in course |
# Check for unread mail in course |
| my $msgcount = 0; |
my $msgcount = 0; |
| |
|
| 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 781 sub getmail {
|
Line 1051 sub getmail {
|
| 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 793 sub getmail {
|
Line 1062 sub getmail {
|
| } |
} |
| } |
} |
| } |
} |
| |
return $msgcount; |
| |
} |
| |
|
| |
sub getcritmail { |
| |
my ($critmsgs) = @_; |
| # Check for critical messages in course |
# Check for critical messages in course |
| my %what=&Apache::lonnet::dump('critical'); |
my %what=&Apache::lonnet::dump('critical'); |
| my $result = ''; |
my $result = ''; |
|
Line 809 sub getmail {
|
Line 1082 sub getmail {
|
| 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 820 sub getmail {
|
Line 1092 sub getmail {
|
| } |
} |
| } |
} |
| } |
} |
| return ($msgcount,$critmsgcount); |
return $critmsgcount; |
| |
} |
| |
|
| |
|
| |
sub checkversions { |
| |
my ($cdom,$crs,$navmap,$changed,$starttime) = @_; |
| |
my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs); |
| |
my ($tmp) = keys(%changes); |
| |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
| |
if (keys(%changes) > 0) { |
| |
foreach my $key (sort(keys(%changes))) { |
| |
if ($changes{$key} > $starttime) { |
| |
my $version; |
| |
my ($root,$extension)=($key=~/^(.*)\.(\w+)$/); |
| |
my $currentversion=&Apache::lonnet::getversion($key); |
| |
my $revdate = |
| |
&Apache::lonnet::metadata($root.'.'.$extension, |
| |
'lastrevisiondate'); |
| |
$revdate = &Apache::lonlocal::locallocaltime($revdate); |
| |
my $linkurl=&Apache::lonnet::clutter($key); |
| |
my $usedversion=$navmap->usedVersion('version_'.$linkurl); |
| |
my @resources = $navmap->getResourceByUrl($linkurl,1); |
| |
if (($usedversion) && ($usedversion ne 'mostrecent')) { |
| |
$version = $usedversion; |
| |
} else { |
| |
$version = $currentversion; |
| |
} |
| |
foreach my $res (@resources) { |
| |
if (ref($res) eq 'Apache::lonnavmaps::resource') { |
| |
my $symb = $res->symb(); |
| |
%{$$changed{$symb}} = ( |
| |
current => $currentversion, |
| |
version => $version, |
| |
revdate => $revdate, |
| |
); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub display_handgrade { |
| |
my ($r,$tograde,$rowColor1,$rowColor2,$ungraded) = @_; |
| |
my $rowColor; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'prna' => 'Problem Name', |
| |
'nmun' => 'Number ungraded', |
| |
'nopr' => 'No problems require handgrading', |
| |
); |
| |
if (@{$tograde} > 0) { |
| |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'prna'}.'</small></b></td><td align="right"><b><small>'.$lt{'nmun'}.'</small></b></td></tr>'); |
| |
my $rowNum = 0; |
| |
foreach my $res (@{$tograde}) { |
| |
if ($rowNum %2 == 1) { |
| |
$rowColor = $rowColor1; |
| |
} else { |
| |
$rowColor = $rowColor2; |
| |
} |
| |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
| |
my $linkurl=&Apache::lonnet::clutter($url); |
| |
$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>'); |
| |
$rowNum ++; |
| |
} |
| |
} else { |
| |
$r->print('<tr><td bgcolor="#ffffff"><br><center><i><b><small> '.$lt{'nopr'}.' </small><br><br></b></i></td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_haserrors { |
| |
my ($r,$bombs,$rowColor1,$rowColor2,$bombed,$res_title) = @_; |
| |
my $bombnum = 0; |
| |
my $rowColor; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
reso => 'Resource', |
| |
nmer => 'Number of errors', |
| |
noer => 'No problems with errors', |
| |
); |
| |
if (@{$bombs} > 0) { |
| |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td align="right"><b><small>'.$lt{'nmer'}.'</small></b></td></tr>'); |
| |
@{$bombs} = sort { &cmp_title($a,$b,$res_title) } @{$bombs}; |
| |
foreach my $bomb (@{$bombs}) { |
| |
if ($bombnum %2 == 1) { |
| |
$rowColor = $rowColor1; |
| |
} else { |
| |
$rowColor = $rowColor2; |
| |
} |
| |
$r->print('<tr bgcolor="'.$rowColor.'"><td><small>'.$$bombed{$bomb}{errorlink}.'</small></td><td align="right"><small>'.$$bombed{$bomb}{errorcount}.'</small></td></tr>'); |
| |
$bombnum ++; |
| |
} |
| |
} else { |
| |
$r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>'.$lt{'noer'}.'</small></i></b></center><br /></td></tr>'); |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub display_abovethreshold { |
| |
my ($r,$refpage,$warnings,$triggered,$res_title) = @_; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
reso => 'Resource', |
| |
part => 'Part', |
| |
nust => 'Num. students', |
| |
avat => 'Av. Attempts', |
| |
dedi => 'Deg. Diff', |
| |
lare => 'Last Reset', |
| |
reco => 'Reset Count?', |
| |
rese => 'Reset counters to 0', |
| |
nopr => 'No problems satisfy threshold criteria', |
| |
); |
| |
if (@{$warnings} > 0) { |
| |
@{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings}; |
| |
$r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'. |
| |
' <input type="hidden" name="command" value="reset" />'."\n". |
| |
' <input type="hidden" name="refpage" value="'.$refpage.'" />'. |
| |
"\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>'); |
| |
foreach my $res (@{$warnings}) { |
| |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
| |
my $linkurl=&Apache::lonnet::clutter($url); |
| |
my $rowspan; |
| |
if ($$triggered{$res}{numparts} > 1) { |
| |
$rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"'; |
| |
} |
| |
$linkurl .= '?symb='.&escape($res); |
| |
$r->print('<tr bgcolor="'.$$triggered{$res}{rowColor}.'"><td '.$rowspan.'><a href="'.$linkurl.'"><small>'.$$triggered{$res}{title}.'</small></a></td>'.$$triggered{$res}{text}); |
| |
} |
| |
$r->print('<tr bgcolor="#cccccc"><td colspan="7" align="right"><br /><b><small><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></form>'); |
| |
} else { |
| |
$r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>'.$lt{'nopr'}.'</small></i></b></center><br /></td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_versionchanges { |
| |
my ($r,$changed,$res_title,$rowColor1,$rowColor2,$interval) = @_; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'reso' => 'Resource', |
| |
'revd' => 'Last revised', |
| |
'newv' => 'New version', |
| |
'veru' => 'Version used', |
| |
'noup' => 'No updated versions', |
| |
); |
| |
my $rowColor; |
| |
if (keys(%{$changed}) > 0) { |
| |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td><b><small>'.$lt{'revd'}.'</small></b></td><td><b><small>'.$lt{'newv'}.'</small></b></td><td><b><small>'.$lt{'veru'}.'</small></b></td></tr>'); |
| |
|
| |
|
| |
my @changes = sort { &cmp_title($a,$b,$res_title) } keys(%{$changed}); |
| |
my $changenum = 0; |
| |
foreach my $item (@changes) { |
| |
if ($changenum %2 == 1) { |
| |
$rowColor = $rowColor1; |
| |
} else { |
| |
$rowColor = $rowColor2; |
| |
} |
| |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($item); |
| |
my $linkurl=&Apache::lonnet::clutter($url); |
| |
$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>'); |
| |
$changenum ++; |
| |
} |
| |
} else { |
| |
$r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>'.$lt{'noup'}.' '.$interval.'</small></i></b></center><br /></td></tr>'); |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub display_coursediscussion { |
| |
my ($r,$newdiscussions,$unread,$countunread,$res_title,$rowColor1, |
| |
$rowColor2) = @_; |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'loca' => 'Location', |
| |
'type' => 'Type', |
| |
'numn' => 'Number of new posts', |
| |
'noun' => 'No unread posts in '.$lctype.' discussions', |
| |
'tmlp' => 'Time of last post', |
| |
); |
| |
my $rowColor; |
| |
if (@{$newdiscussions} > 0) { |
| |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'loca'}. |
| |
'</small></b></td><td><b><small>'.$lt{'type'}. |
| |
'</small></b>'); |
| |
if ($countunread eq 'on') { |
| |
$r->print('<td><b><small>'.$lt{'tmlp'}.'</small></b></td>'. |
| |
'<td align="right"><b><small>'.$lt{'numn'}. |
| |
'</small></b></td>'); |
| |
} else { |
| |
$r->print('<td align="right"><b><small>'.$lt{'tmlp'}. |
| |
'</small></b></td>'); |
| |
} |
| |
$r->print("</tr>\n"); |
| |
@{$newdiscussions} = sort { &cmp_title($a,$b,$res_title) } |
| |
@{$newdiscussions}; |
| |
my $rowNum = 0; |
| |
foreach my $ressymb (@{$newdiscussions}) { |
| |
my $forum_title = $$unread{$ressymb}{'title'}; |
| |
my $type = 'Resource'; |
| |
my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); |
| |
if ($feedurl =~ /bulletinboard/) { |
| |
$type = 'Bulletin Board'; |
| |
} |
| |
if ($rowNum %2 == 1) { |
| |
$rowColor = $rowColor1; |
| |
} else { |
| |
$rowColor = $rowColor2; |
| |
} |
| |
my $lastpost = &Apache::lonnavmaps::timeToHumanString( |
| |
$$unread{$ressymb}{'lastpost'}); |
| |
$r->print('<tr bgcolor="'.$rowColor.'"><td><small><a href="'.$feedurl.'?symb='.$$unread{$ressymb}{symb}.'">'.$forum_title.'</a> </td><td><small>'.$type.' </small></td>'); |
| |
if ($countunread eq 'on') { |
| |
my $unreadnum = $$unread{$ressymb}{'unreadcount'}; |
| |
$r->print('<td><small>'.$lastpost.'<small></td><td align="right">'. |
| |
'<small>',$unreadnum.' </small></td>'); |
| |
} else { |
| |
$r->print('<td align="right"><small>'.$lastpost.'</small></td>'); |
| |
} |
| |
$r->print("</tr>\n"); |
| |
$rowNum ++; |
| |
} |
| |
} else { |
| |
$r->print('<tr><td bgcolor="#ffffff"><br><center> <i><b><small>'. |
| |
$lt{'noun'}.'</small></b></i><br><br></td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_coursenormalmail { |
| |
my ($r,$msgcount,$newmsgs,$rowColor1,$rowColor2) = @_; |
| |
my $rowColor; |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
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>'); |
| |
my $rowNum = 0; |
| |
my $mailcount = 1; |
| |
foreach my $msg (@{$newmsgs}) { |
| |
if ($rowNum %2 == 1) { |
| |
$rowColor = $rowColor1; |
| |
} else { |
| |
$rowColor = $rowColor2; |
| |
} |
| |
$r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. </small></td><td valign="top"><small><a href="/adm/communicate">'.$msg->{'shortsub'}.'</a> </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>'); |
| |
$rowNum ++; |
| |
$mailcount ++; |
| |
} |
| |
} else { |
| |
$r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No new [_1] messages',$lctype).'</small></i></b><br /><br /></center></td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_coursecritmail { |
| |
my ($r,$critmsgcount,$critmsgs,$rowColor1,$rowColor2) = @_; |
| |
my $rowColor; |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
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>'); |
| |
my $rowNum = 0; |
| |
my $mailcount = 1; |
| |
foreach my $msg (@{$critmsgs}) { |
| |
if ($rowNum %2 == 1) { |
| |
$rowColor = $rowColor1; |
| |
} else { |
| |
$rowColor = $rowColor2; |
| |
} |
| |
$r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'. <small></td><td valign="top"><small><a href="/adm/email?folder=critical">'.$msg->{'shortsub'}.'</a> </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>'); |
| |
$rowNum ++; |
| |
$mailcount ++; |
| |
} |
| |
} else { |
| |
$r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No unread critical messages in [_1]',$lctype).'</small></i></b><br /><br /></center></td></tr>'); |
| |
} |
| } |
} |
| |
|
| sub cmp_title { |
sub cmp_title { |
|
Line 831 sub cmp_title {
|
Line 1376 sub cmp_title {
|
| return $atitle cmp $btitle; |
return $atitle cmp $btitle; |
| } |
} |
| |
|
| |
sub get_display_settings { |
| |
my ($uname,$udom,$cid) = @_; |
| |
my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid); |
| |
my ($tmp) = keys(%settings); |
| |
if ($tmp=~ /^(con_lost|error|no_such_host)/i) { |
| |
%settings = (); |
| |
unless ($tmp =~ /^error: 2 /) { |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
&Apache::lonnet::logthis('Error retrieving whatsnew settings: '. |
| |
$tmp.' for '.$uname.':'.$udom.' for '.$lctype.': '.$cid); |
| |
} |
| |
} |
| |
return %settings; |
| |
} |
| |
|
| |
sub store_display_settings { |
| |
my ($uname,$udom,$cid,$checkallowed) = @_; |
| |
my %whatsnew_settings; |
| |
my $result; |
| |
foreach my $key (keys(%{$checkallowed})) { |
| |
if ($key =~ /_section$/) { next; } |
| |
if (exists($env{'form.display_'.$key})) { |
| |
unless ($env{'form.display_'.$key} eq '') { |
| |
$whatsnew_settings{$cid.':'.$key} = $env{'form.display_'.$key}; |
| |
} |
| |
} |
| |
} |
| |
if (keys(%whatsnew_settings)) { |
| |
$result = &Apache::lonnet::put('nohist_whatsnew',\%whatsnew_settings, |
| |
$udom,$uname); |
| |
} else { |
| |
$result = 'ok'; |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub store_interval_setting { |
| |
my ($uname,$udom,$cid,$interval_titles) = @_; |
| |
my %interval_settings = (); |
| |
my $result; |
| |
if (defined($env{'form.interval'})) { |
| |
$interval_settings{$cid.':interval'} = $env{'form.interval'}; |
| |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
| |
\%interval_settings,$udom,$uname); |
| |
if ($outcome eq 'ok') { |
| |
$result = &mt('Interval set to version changes [_1]', |
| |
'<b>'.$$interval_titles{$env{'form.interval'}}.'</b><br />'); |
| |
|
| |
} else { |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
&Apache::lonnet::logthis('Error storing whatsnew interval setting'. |
| |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| |
$result = &mt('Unable to set interval to [_1] due to [_2].', |
| |
'<b>'.$$interval_titles{$env{'form.interval'}}.'</b>', |
| |
'<tt>'.$outcome.'</tt>.<br />'); |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub store_discussion_setting { |
| |
my ($uname,$udom,$cid) = @_; |
| |
my %discussion_settings; |
| |
my $result; |
| |
if (defined($env{'form.countunread'})) { |
| |
$discussion_settings{$cid.':countunread'} = $env{'form.countunread'}; |
| |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
| |
\%discussion_settings,$udom,$uname); |
| |
if ($outcome eq 'ok') { |
| |
$result = &mt('Count unread posts in discussions display set to [_1]', |
| |
'<b>'.$env{'form.countunread'}.'</b><br />'); |
| |
|
| |
} else { |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
&Apache::lonnet::logthis('Error storing whatsnew countunread setting'. |
| |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| |
$result = &mt('Unable to set "number unread posts display" to [_1]'. |
| |
' due to [_2].', |
| |
'<b>'.$env{'form.countunread'}.'</b>', |
| |
'<tt>'.$outcome.'</tt>.<br />'); |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub store_courseinit_setting { |
| |
my ($uname,$udom,$cid,$initpage) = @_; |
| |
my %courseinit_settings; |
| |
my $page_control; |
| |
my $result; |
| |
if (defined($env{'form.courseinit_control'})) { |
| |
if ($env{'form.courseinit_control'} eq 'userpref') { |
| |
$courseinit_settings{$cid.':courseinit'} = ''; |
| |
$page_control = 'global preferences'; |
| |
} else { |
| |
if (defined($env{'form.courseinit_page'})) { |
| |
$courseinit_settings{$cid.':courseinit'} = |
| |
$env{'form.courseinit_page'}; |
| |
$page_control = 'course specific setting'; |
| |
} |
| |
} |
| |
if ($page_control) { |
| |
my $lctype = lc($env{'course.'.$env{'request.course.id'}.'.type'}); |
| |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
| |
\%courseinit_settings,$udom,$uname); |
| |
if ($outcome eq 'ok') { |
| |
if ($page_control eq 'global preferences') { |
| |
$result = &mt("Page displayed after role selection in [_1] now set by <b>user's global preferences</b>.",$lctype); |
| |
} else { |
| |
$result = &mt('Page displayed after role selection in this [_1] set to <b>[_2]</b>',$lctype,$$initpage{$env{'form.courseinit_page'}}); |
| |
} |
| |
} else { |
| |
&Apache::lonnet::logthis('Error storing whatsnew courseinit '. |
| |
'setting: '.$outcome.' for '.$uname. |
| |
':'.$udom.' in '.$lctype.' '.$cid); |
| |
if ($page_control eq 'global preferences') { |
| |
$result = &mt('Unable to set control of page display to [_1]'. |
| |
' due to [_2].', |
| |
'<b>'.$page_control.'</b>', |
| |
'<tt>'.$outcome.'</tt>.<br />'); |
| |
} else { |
| |
$result = &mt('Unable to set page display, after role selection, for this [_1] to <b>[_2]</b> due to <tt>[_3]</tt>.<br />',$lctype, |
| |
$$initpage{$env{'form.courseinit_page'}},$outcome); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub start_box { |
| |
my ($r,$tabbg,$show,$heading,$caller,$refpage) = @_; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
chth => 'Change thresholds?', |
| |
chin => 'Change interval?', |
| |
chop => 'Change options?', |
| |
); |
| |
my $showhide; |
| |
if ($$show{$caller}) { |
| |
$showhide = '<b><a href="javascript:change_display(document.visible.'. |
| |
'display_'.$caller.",'hide'".');">Hide</a></b>'; |
| |
|
| |
} else { |
| |
$showhide = '<b><a href="javascript:change_display(document.visible.'. |
| |
'display_'.$caller.",'show'".');">Show</a></b>'; |
| |
} |
| |
|
| |
$r->print(' |
| |
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
| |
<tr> |
| |
<td> |
| |
<table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
| |
<tr> |
| |
<td bgcolor="'.$tabbg.'"> |
| |
<table width="100%" border="0" cellspacing="0" cellpadding="0"> |
| |
<tr> |
| |
<td><b>'.$$heading{$caller}.'</b></td> |
| |
<td valign="top" align="right">'.$showhide.'</td> |
| |
</tr> |
| |
</table> |
| |
</td> |
| |
</tr>'); |
| |
if (($caller eq 'abovethreshold') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'"><b><small>'.$lt{'chth'}.'</small></b></a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif (($caller eq 'versionchanges') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'"><b><small>'.$lt{'chin'}.'</small></b></a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif ($caller eq 'coursediscussion') { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'"><b><small>'.$lt{'chop'}.'</small></b></a></td> |
| |
</tr>'); |
| |
} |
| |
} |
| |
$r->print(' |
| |
<tr> |
| |
<td bgcolor="#ffffff"> |
| |
<table cellpadding="2" cellspacing="0" border="0" width="100%"> |
| |
'); |
| |
return; |
| |
} |
| |
|
| |
sub end_box { |
| |
my ($r) = shift; |
| |
$r->print(' |
| |
</table> |
| |
</td> |
| |
</tr> |
| |
</table> |
| |
</td> |
| |
</tr> |
| |
</table><br />'); |
| |
return; |
| |
} |
| |
|
| 1; |
1; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonwhatsnew.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface