|
version 1.2, 2005/04/07 03:58:02
|
version 1.129, 2020/12/13 02:00:49
|
|
Line 1
|
Line 1
|
| |
# The LearningOnline Network |
| |
# What's New in a course |
| # |
# |
| # $Id$ |
# $Id$ |
| # |
# |
|
Line 30 package Apache::lonwhatsnew;
|
Line 32 package Apache::lonwhatsnew;
|
| use strict; |
use strict; |
| use lib qw(/home/httpd/lib/perl); |
use lib qw(/home/httpd/lib/perl); |
| use Apache::lonnet; |
use Apache::lonnet; |
| use Apache::loncommon; |
use Apache::loncommon(); |
| use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon(); |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use Apache::loncoursedata; |
use Apache::loncoursedata(); |
| use Apache::lonnavmaps; |
use Apache::lonnavmaps(); |
| |
use Apache::lonuserstate; |
| |
use Apache::lonuserutils; |
| use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
| use Time::Local; |
use Time::Local; |
| |
use GDBM_File; |
| |
use lib '/home/httpd/lib/perl/'; |
| |
use LONCAPA; |
| |
use HTML::Entities; |
| |
|
| #---------------------------- |
#---------------------------- |
| # handler |
# handler |
|
Line 45 use Time::Local;
|
Line 53 use Time::Local;
|
| |
|
| sub handler { |
sub handler { |
| my $r = shift; |
my $r = shift; |
| &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['command']); |
if ($r->header_only) { |
| |
&Apache::loncommon::content_type($r,'text/html'); |
| |
$r->send_http_header; |
| |
return OK; |
| |
} |
| |
&Apache::loncommon::get_unprocessed_cgi( |
| |
$ENV{'QUERY_STRING'},['command','refpage']); |
| |
|
| |
my $command = $env{'form.command'}; |
| |
my $refpage = $env{'form.refpage'}; |
| |
|
| my $command = $ENV{'form.command'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| |
|
| if ($command eq '') { |
my ($isadhoc,%checkallowed); |
| $command = "info"; |
|
| |
if ($env{'request.role'} =~ m{^(cc|co)/}) { |
| |
my $rolecode = $1; |
| |
if ($env{"environment.internal.$cdom.$crs.$env{'request.role'}.adhoc"}) { |
| |
$isadhoc = 1; |
| |
} |
| |
} elsif ($env{'request.role'} =~ m{^cr/$cdom/$cdom\-domainconfig/(\w+)\./}) { |
| |
my $rolename = $1; |
| |
if ($env{"environment.internal.$cdom.$crs.cr/$cdom/$cdom-domainconfig/$rolename.adhoc"}) { |
| |
$isadhoc = 1; |
| |
} |
| |
} |
| |
unless ($isadhoc) { |
| |
%checkallowed = ( coursenormalmail => 1, |
| |
coursecritmail => 1,); |
| |
} |
| |
foreach my $perm_check (['whn','whatsnew',1], |
| |
['pch','coursediscussion',1], |
| |
['mgr','handgrading',1], |
| |
['vgr','abovethreshold',1], |
| |
['vgr','haserrors',1], |
| |
['whn','versionchanges',1], |
| |
['vcl','newroles',1], |
| |
['vcl','oldroles',1], |
| |
['whn','crslogin',1], |
| |
['vcl','sessions',1], |
| |
['mgr','resetcounters',1], |
| |
) { |
| |
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'}; |
| |
} |
| |
} |
| } |
} |
| |
|
| $r->print(&display_header()); |
if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) { |
| if (! (($ENV{'request.course.fn'}) && (&Apache::lonnet::allowed('vsa',$ENV{'request.course.id'})))) { |
# Not in a course, or no whn priv in course |
| # Not in a course, or not allowed to modify parms |
$env{'user.error.msg'}="/adm/whatsnew:whn:0:0:Cannot display what's new page"; |
| $ENV{'user.error.msg'}="/adm/whatsnew:vsa:0:0:Cannot display student activity"; |
|
| return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
| } |
} |
| |
|
| &display_main_box($r,$command); |
&Apache::loncommon::content_type($r,'text/html'); |
| |
$r->send_http_header; |
| |
|
| |
$r->print(&display_header($command,\%checkallowed)); |
| |
|
| |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew', |
| |
text=>"What's New?"}); |
| |
if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, |
| |
text=>"Change thresholds"}); |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Thresholds' |
| |
)); |
| |
} elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage, |
| |
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 |
| |
("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' |
| |
)); |
| |
} elsif ($command eq 'chgoldroleinterval' && $checkallowed{'oldroles'}) { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=chgoldroleinterval&refpage='.$refpage, |
| |
text=>"Change interval"}); |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Intervals' |
| |
)); |
| |
} elsif ($command eq 'chgnewroleinterval' && $checkallowed{'newroles'}) { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=chgnewroleinterval&refpage='.$refpage, |
| |
text=>"Change interval"}); |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Intervals' |
| |
)); |
| |
} elsif ($command eq 'chgcrslogininterval' && $checkallowed{'crslogin'}) { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=chgcrslogininterval&refpage='.$refpage, |
| |
text=>"Change interval"}); |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Intervals' |
| |
)); |
| |
} elsif ($command eq 'chgsessionlimit' && $checkallowed{'sessions'}) { |
| |
&Apache::lonhtmlcommon::add_breadcrumb |
| |
({href=>'/adm/whatsnew?command=chgsessionlimit&refpage='.$refpage, |
| |
text=>"Change session range"}); |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Sessions' |
| |
)); |
| |
} else { |
| |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| |
("What's New?",#'Course_Action_Items_Display' |
| |
)); |
| |
} |
| |
&display_main_box($r,$command,$refpage,\%checkallowed,$cdom,$crs); |
| |
return OK; |
| } |
} |
| |
|
| #------------------------------ |
#------------------------------ |
|
Line 70 sub handler {
|
Line 196 sub handler {
|
| #------------------------------ |
#------------------------------ |
| |
|
| sub display_main_box { |
sub display_main_box { |
| my ($r,$command) = @_; |
my ($r,$command,$refpage,$checkallowed,$cdom,$crs) = @_; |
| 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(); |
| $r->print(<<END_OF_BLOCK); |
my $lctype = lc(&Apache::loncommon::course_type()); |
| <br /> |
$r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">'); |
| <br /> |
|
| <table width="100%" border="0" cellpadding="0" cellspacing="0"> |
my %threshold_titles = &Apache::lonlocal::texthash ( |
| <tr> |
av_attempts => 'Average number of attempts', |
| <td width="100%" bgcolor="#000000"> |
degdiff => 'Degree of difficulty', |
| <table width="100%" border="0" cellpadding="1" cellspacing="0"> |
numstudents => 'Total number of students with submissions', |
| <tr> |
); |
| <td width="100%" bgcolor="#000000"> |
my %versions = ( |
| <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff"> |
-1 => "version changes since start of $lctype", |
| <tr> |
2592000 => 'version changes since last month', |
| <td colspan="2" width="100%" bgcolor="$tabbg"> |
604800 => 'version changes since last week', |
| <table width="100%" border="0" cellpadding="5" cellspacing="0"> |
86400 => 'version changes since yesterday', |
| <tr> |
); |
| <td width="100%"> |
my %newroles = ( |
| <table width="100%" border="0" cellpadding="0" cellspacing="0"> |
-1 => "roles which have become active since start of $lctype", |
| <tr> |
2592000 => 'roles which have become active since last month', |
| <td> |
604800 => 'roles which have become active since last week', |
| <font face="arial,verdana" size="3"><b>Course Action Items</b></font></td> |
86400 => 'roles which have become active since yesterday', |
| </td> |
); |
| <td align="right"> |
my %oldroles = ( |
| </td> |
-1 => "roles which expired since start of $lctype", |
| </tr> |
2592000 => 'roles which expired since last month', |
| </table> |
604800 => 'roles which expired since last week', |
| </td> |
86400 => 'roles which expired since yesterday', |
| </tr> |
); |
| </table> |
my %crslogins = ( |
| </td> |
-1 => 'last logins for anyone who has ever logged in', |
| </tr> |
2592000 => 'last logins for users in last 30 days', |
| <tr> |
604800 => 'last logins for users in last 7 days', |
| <td width="100" valign="top" bgcolor="#dddddd" height="100%"> |
86400 => 'last logins for users in last 24 hours', |
| <table width="100" border="0" cellpadding="0" cellspacing="0" height="100%"> |
); |
| <tr> |
my %sessions = ( |
| <td valign="top" height="100%"> |
300 => 'course sessions active in the last 5 minutes', |
| END_OF_BLOCK |
600 => 'course sessions active in the last 10 minutes', |
| &display_nav_box($r,$command); |
1800 => 'course sessions active in the last 30 minutes', |
| $r->print('</td></tr></table></td>'); |
7200 => 'course sessions active in the last 2 hours', |
| $r->print('<td width="100%" bgcolor="#ffffff"><table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">'); |
-7200 => 'course sessions with last activity more than 2 hours ago', |
| |
); |
| if ($command eq 'config') { |
my %interval_titles = ( |
| &display_config_box($r); |
versions => \%versions, |
| |
newroles => \%newroles, |
| |
oldroles => \%oldroles, |
| |
crslogin => \%crslogins, |
| |
sessions => \%sessions, |
| |
); |
| |
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", |
| |
); |
| |
|
| |
if (($command eq 'chgthreshold') |
| |
&& $checkallowed->{'abovethreshold'}) { |
| |
&display_threshold_config($r,$refpage,\%threshold_titles,$cdom,$crs); |
| |
} elsif (($command eq 'chginterval') |
| |
&& $checkallowed->{'versionchanges'}) { |
| |
&display_interval_config($r,$refpage,\%interval_titles,'versions'); |
| |
} elsif (($command eq 'chgdisc') |
| |
&& $checkallowed->{'coursediscussion'}) { |
| |
&display_discussion_config($r,$refpage); |
| |
} elsif ($command eq 'courseinit') { |
| |
&courseinit_config($r,$refpage,\%initpage); |
| |
} elsif (($command eq 'chgnewroleinterval') |
| |
&& $checkallowed->{'newroles'}) { |
| |
&display_interval_config($r,$refpage,\%interval_titles,'newroles'); |
| |
} elsif (($command eq 'chgoldroleinterval') |
| |
&& $checkallowed->{'oldroles'}) { |
| |
&display_interval_config($r,$refpage,\%interval_titles,'oldroles'); |
| |
} elsif (($command eq 'chgcrslogininterval') |
| |
&& $checkallowed->{'crslogin'}) { |
| |
&display_interval_config($r,$refpage,\%interval_titles,'crslogin'); |
| |
} elsif (($command eq 'chgsessionlimit') |
| |
&& $checkallowed->{'sessions'}) { |
| |
&display_interval_config($r,$refpage,\%interval_titles,'sessions'); |
| } else { |
} else { |
| &display_actions_box($r); |
&display_actions_box($r,$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> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| </td> |
</td> |
| </tr> |
</tr> |
| </table><br /> |
</table><br /> |
| </body> |
$end_page |
| </html> |
|
| END_OF_BLOCK |
END_OF_BLOCK |
| } |
} |
| |
|
| #------------------------------ |
|
| # display_nav_box |
|
| # |
|
| # Display the navigation box |
|
| #------------------------------ |
|
| |
|
| sub display_nav_box { |
|
| my ($r,$command) = @_; |
|
| $r->print('<table width="100" border="0" cellpadding="3" cellspacing="0">'."\n"); |
|
| if ($command eq "info") { |
|
| $r->print('<tr><td bgcolor="#ffffff">'); |
|
| $r->print('<small><b>Action Items</b></small><br />'); |
|
| $r->print('</td></tr>'); |
|
| } else { |
|
| $r->print('<tr><td>'); |
|
| $r->print('<small><a href="/adm/whatsnew?command=info">Current Action Items</a></small><br />'); |
|
| $r->print('</td></tr>'); |
|
| } |
|
| $r->print('<tr><td> </td></tr>'); |
|
| if ($command eq "config") { |
|
| $r->print('<tr><td bgcolor="#ffffff">'); |
|
| $r->print('<small><b>Display options</b></small><br />'); |
|
| $r->print('</td></tr>'); |
|
| } else { |
|
| $r->print('<tr><td>'); |
|
| $r->print('<small><a href="/adm/whatsnew?command=config">Display options</a></small><br />'); |
|
| $r->print('</td></tr>'); |
|
| } |
|
| $r->print('</table>'); |
|
| } |
|
| |
|
| #------------------------------- |
#------------------------------- |
| # display_header |
# display_header |
| # |
# |
|
Line 176 sub display_nav_box {
|
Line 295 sub display_nav_box {
|
| # up the HTML |
# up the HTML |
| #------------------------------- |
#------------------------------- |
| |
|
| sub display_header{ |
sub display_header { |
| my $bodytag=&Apache::loncommon::bodytag('Course Action Items'); |
my ($command,$checkallowed) = @_; |
| return(<<ENDHEAD); |
|
| <html> |
my $scripttag; |
| <head> |
unless ($command eq 'chgthreshold' || $command eq 'chginterval' || |
| <title>Course Action Items</title> |
$command eq 'chgoldroleinterval' || |
| </head> |
$command eq 'chgnewroleinterval' || $command eq 'chgcrslogininterval') { |
| $bodytag |
$scripttag = <<"END"; |
| ENDHEAD |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| |
function change_display(caller,change) { |
| |
caller.value = change; |
| |
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.=<<"ENDTOGG"; |
| |
document.visible.submit(); |
| |
} |
| |
|
| |
function thresholdreset() { |
| |
document.visible.command.value="reset"; |
| |
document.visible.submit(); |
| |
} |
| |
|
| |
function toggledetails(prefix) { |
| |
var total = document.visible[prefix+'count'].value; |
| |
var sumrow = document.visible[prefix+'row'].value; |
| |
if (total == 0) { |
| |
return; |
| |
} |
| |
var showdetails = 0; |
| |
for (var i=0; i<document.visible[prefix+'details'].length; i++) { |
| |
if (document.visible[prefix+'details'][i].checked) { |
| |
showdetails = document.visible[prefix+'details'][i].value; |
| |
} |
| |
} |
| |
var detval = "none"; |
| |
var sumval = ""; |
| |
if (showdetails == 1) { |
| |
detval = ""; |
| |
sumval = "none"; |
| |
} |
| |
for (var j=0; j<total; j++) { |
| |
var counter = j+1; |
| |
var itemid = prefix+"det_"+counter; |
| |
personele = document.getElementById(itemid); |
| |
if (personele != null) { |
| |
personele.style.display = detval; |
| |
} |
| |
} |
| |
var detheaderele = document.getElementById(prefix+"titledet"); |
| |
if (detheaderele != null) { |
| |
detheaderele.style.display = detval; |
| |
} |
| |
for (var k=0; k<sumrow; k++) { |
| |
var counter = k+1; |
| |
var itemid = prefix+"sum_"+counter; |
| |
catele = document.getElementById(itemid); |
| |
if (catele != null) { |
| |
catele.style.display = sumval; |
| |
} |
| |
} |
| |
var sumheaderele = document.getElementById(prefix+"titlesum"); |
| |
if (sumheaderele != null) { |
| |
sumheaderele.style.display = sumval; |
| |
} |
| |
return; |
| |
} |
| |
// ]]> |
| |
</script> |
| |
ENDTOGG |
| |
} |
| |
my $course_type=&Apache::loncommon::course_type(); |
| |
return &Apache::loncommon::start_page("What's New?", |
| |
$scripttag); |
| } |
} |
| |
|
| #------------------------------- |
#------------------------------- |
|
Line 194 ENDHEAD
|
Line 388 ENDHEAD
|
| # |
# |
| #------------------------------- |
#------------------------------- |
| |
|
| sub display_actions_box() { |
sub display_actions_box { |
| my $r = shift; |
my ($r,$command,$refpage,$threshold_titles,$interval_titles,$initpage, |
| |
$cdom,$crs,$checkallowed) = @_; |
| my $rowColor1 = "#ffffff"; |
my $udom = $env{'user.domain'}; |
| my $rowColor2 = "#eeeeee"; |
my $uname = $env{'user.name'}; |
| my $rowColor; |
my $cid = $env{'request.course.id'}; |
| |
my $crstype = &Apache::loncommon::course_type(); |
| |
my $lctype = lc($crstype); |
| |
my %stulabel = ( |
| |
'Course' => 'students', |
| |
'Community' => 'members', |
| |
); |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'yacc' => 'You are accessing an invalid course', |
| |
'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 %changed = (); |
| my @newmsgs = (); |
my @newmsgs = (); |
| my @critmsgs = (); |
my @critmsgs = (); |
| my @newdiscussions = (); |
my @newdiscussions = (); |
| my @tograde = (); |
my @tograde = (); |
| my @bombs = (); |
my @bombs = (); |
| |
my @warnings = (); |
| |
my $msgcount = 0; |
| |
my $critmsgcount = 0; |
| |
my $expirecount; |
| |
my %expired; |
| |
my $activecount; |
| |
my %activated; |
| |
my %loggedin; |
| |
my $logincount; |
| |
my %sessions; |
| |
my $sessioncount; |
| |
my %res_title = (); |
| |
my %show = (); |
| |
my $needitems = 0; |
| |
my $boxcount = 0; |
| |
|
| |
my $result; |
| |
if ($command eq 'newcourseinit') { |
| |
$result = &store_courseinit_setting($uname,$udom,$cid,$initpage); |
| |
} |
| |
|
| my $domain=&Apache::loncommon::determinedomain(); |
my %threshold = (); |
| my $function; |
my %pagedesc = &Apache::lonlocal::texthash ( |
| if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) { |
firstres => 'First resource', |
| $function='coordinator'; |
whatsnew => "What's New Page", |
| |
userpref => 'user preference', |
| |
coursespecific => $lctype.' only', |
| |
default => 'default', |
| |
); |
| |
|
| |
my ($initcontrol,$initdisp) = &curr_courseinit(); |
| |
my $currinit = $pagedesc{$initdisp}.' ('.$pagedesc{$initcontrol}.')'; |
| |
|
| |
unless ($cid) { |
| |
$r->print('<p><span style="text-align: center; font-weight: bold;">'.$lt{'yacc'}.'</span></p>'); |
| |
return; |
| |
} |
| |
|
| |
my $header = ''; |
| |
if ($refpage eq 'start') { |
| |
if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
| |
&GDBM_READER(),0640)) { |
| |
my $furl=&HTML::Entities::encode($bighash{'first_url'},'"<>&'); |
| |
untie(%bighash); |
| |
$header .= '<b><a href="'.$furl.'">'.$lt{'gtfr'}. |
| |
'</a></b><br />'; |
| |
} |
| } |
} |
| if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) { |
$header .= &mt('Page set to be displayed after you have selected a role in this '.$lctype).'.' |
| $function='admin'; |
.' <span class="LC_nobreak">' |
| |
.&mt('Currently: [_1].','<i>'.$currinit.'</i>') |
| |
.' ' |
| |
.&mt('[_1]Change[_2] for just [_3]this '.$lctype.'[_4] or for [_5]all your courses/communities[_6].' |
| |
,'<b>' |
| |
,'</b>' |
| |
,'<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.'">' |
| |
,'</a>' |
| |
,'<a href="/adm/preferences?action=changecourseinit&refpage='.$refpage.'">' |
| |
,'</a>') |
| |
.' </span>'; |
| |
|
| |
$r->print(&Apache::loncommon::head_subbox($header)); |
| |
|
| |
if ($command eq 'reset') { |
| |
$result = &process_reset($cdom,$crs,$checkallowed); |
| |
} elsif ($command eq 'update') { |
| |
$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 $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain); |
my $store_result=&store_display_settings($uname,$udom,$cid,$checkallowed); |
| my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
|
| |
|
| &getitems(\%unread,\%ungraded,\%bombed,\@newdiscussions,\@tograde,\@bombs); |
unless ($store_result eq 'ok') { |
| my ($msgcount,$critmsgcount) = &getmail(\@newmsgs,\@critmsgs); |
&Apache::lonnet::logthis('Error saving whatsnew settings: '. |
| |
$store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| |
$result .= '<span class="LC_error">' |
| |
.&mt('Unable to save visibility settings due to [_1]', |
| |
$store_result) |
| |
.'</span>'; |
| |
} |
| |
|
| unless ($ENV{'request.course.id'}) { |
if ($result) { |
| $r->print('<br /><b><center>You are accessing an invalid course</center></b><br /><br />'); |
$r->print($result.'<hr />'); |
| return; |
|
| } |
} |
| |
$r->rflush(); |
| |
|
| $r->print('<b>Course Action Items</b><br /><hr width="100%" /><table border="0" width="100%" cellpadding="2" cellspacing="4" bgcolor="#ffffff"><tr><td align="left" valign="top" width="45%">'); |
my (%timediff,%interval); |
| |
my %display_settings = &get_display_settings($uname,$udom,$cid); |
| |
$timediff{'versions'} = $display_settings{$cid.':interval'}; |
| |
unless (defined($timediff{'versions'})) { $timediff{'versions'} = 604800; } |
| |
$interval{'versions'} = $interval_titles->{'versions'}->{$timediff{'versions'}}; |
| |
|
| |
my %headings = &Apache::lonlocal::texthash( |
| |
coursediscussion => 'Unread '.$lctype.' discussion posts', |
| |
handgrading => 'Problems requiring handgrading', |
| |
haserrors => 'Problems with errors', |
| |
coursenormalmail => 'New '.$lctype.' messages', |
| |
coursecritmail => 'New critical messages in '.$lctype, |
| |
); |
| |
|
| |
if ($timediff{'versions'} == -1) { |
| |
$headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since start of '.$lctype); |
| |
} elsif ($timediff{'versions'} == 2592000) { |
| |
$headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since last month'); |
| |
} elsif ($timediff{'versions'} == 604800) { |
| |
$headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since last week'); |
| |
} elsif ($timediff{'versions'} == 86400) { |
| |
$headings{'versionchanges'} = &mt('Resources in '.$lctype.' with version changes since yesterday'); |
| |
} |
| |
|
| ## UNREAD COURSE DISCUSSION POSTS ## |
$timediff{'oldroles'} = $display_settings{$cid.':oldroleinterval'}; |
| $r->print(<<"END"); |
unless (defined($timediff{'oldroles'})) { $timediff{'oldroles'} = 604800; } |
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
$interval{'oldroles'} = $interval_titles->{'oldroles'}->{$timediff{'oldroles'}}; |
| <tr><td> |
|
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
if ($timediff{'oldroles'} == -1) { |
| <tr> |
$headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since start of '.$lctype); |
| <td bgcolor="$tabbg"><b>Unread course discussion posts:</b></td> |
} elsif ($timediff{'oldroles'} == 2592000) { |
| </tr> |
$headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since last month'); |
| <tr> |
} elsif ($timediff{'oldroles'} == 604800) { |
| <td bgcolor="#ffffff"> |
$headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since last week'); |
| <table cellpadding="2" cellspacing="0" border="0" width="100%"> |
} elsif ($timediff{'oldroles'} == 86400) { |
| END |
$headings{'oldroles'} = &mt('Roles for which access to '.$lctype.' has expired since yesterday'); |
| |
} |
| |
|
| if (@newdiscussions > 0) { |
$timediff{'newroles'} = $display_settings{$cid.':newroleinterval'}; |
| # @newdiscussions = sort { &cmp_title($a,$b) } @newdiscussions; |
unless (defined($timediff{'newroles'})) { $timediff{'newroles'} = 604800; } |
| my $rowNum = 0; |
$interval{'newroles'} = $interval_titles->{'newroles'}->{$timediff{'newroles'}}; |
| foreach my $ressymb (@newdiscussions) { |
|
| my $forum_title = $unread{$ressymb}{'title'}; |
if ($timediff{'newroles'} == -1) { |
| my ($map,$ind,$url)=&Apache::lonnet::decode_symb($ressymb); |
$headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since start of '.$lctype); |
| my $feedurl = &Apache::lonnet::clutter($url); |
} elsif ($timediff{'newroles'} == 2592000) { |
| # backward compatibility (bulletin boards used to be 'wrapped') |
$headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since last month'); |
| if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
} elsif ($timediff{'newroles'} == 604800) { |
| $feedurl=~s|^/adm/wrapper||; |
$headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since last week'); |
| } |
} elsif ($timediff{'newroles'} == 86400) { |
| my $unreadnum = keys %{$unread{$ressymb}}; |
$headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since yesterday'); |
| $unreadnum = $unreadnum - 2; |
} |
| if ($unreadnum > 0) { |
|
| if ($rowNum %2 == 1) { |
$timediff{'crslogin'} = $display_settings{$cid.':crslogininterval'}; |
| $rowColor = $rowColor1; |
unless (defined($timediff{'crslogin'})) { $timediff{'crslogin'} = 604800; } |
| } else { |
$interval{'crslogin'} = $interval_titles->{'crslogin'}->{$timediff{'crslogin'}}; |
| $rowColor = $rowColor2; |
|
| } |
if ($timediff{'crslogin'} == -1) { |
| $r->print('<tr><td bgcolor="'.$rowColor.'"><small><a href="'.$feedurl.'?symb='.$unread{$ressymb}{symb}.'">'.$forum_title.':</a> </td><td bgcolor="'.$rowColor.'" align="right">'.$unreadnum.' </td></tr>'); |
$headings{'crslogin'} = &mt('Last login for anyone who has ever logged in'); |
| $rowNum ++; |
} elsif ($timediff{'crslogin'} == 2592000) { |
| } |
$headings{'crslogin'} = &mt('Last login for users in last 30 days'); |
| } |
} elsif ($timediff{'crslogin'} == 604800) { |
| |
$headings{'crslogin'} = &mt('Last login for users in last 7 days'); |
| |
} elsif ($timediff{'crslogin'} == 86400) { |
| |
$headings{'crslogin'} = &mt('Last login for users in last 24 hours'); |
| |
} |
| |
|
| |
$timediff{'sessions'} = $display_settings{$cid.':sessionactivity'}; |
| |
unless (defined($timediff{'sessions'})) { $timediff{'sessions'} = 7200; } |
| |
$interval{'sessions'} = $interval_titles->{'sessions'}->{$timediff{'sessions'}}; |
| |
|
| |
if ($timediff{'sessions'} == -7200) { |
| |
$headings{'sessions'} = &mt('Session with activity more than 2 hours ago'); |
| |
} elsif ($timediff{'sessions'} == 7200) { |
| |
$headings{'sessions'} = &mt('Session with activity in last 2 hours'); |
| |
} elsif ($timediff{'sessions'} == 1800) { |
| |
$headings{'sessions'} = &mt('Session with activity in last 30 minutes'); |
| |
} elsif ($timediff{'sessions'} == 600) { |
| |
$headings{'sessions'} = &mt('Session with activity in last 10 minutes'); |
| |
} elsif ($timediff{'sessions'} == 300) { |
| |
$headings{'sessions'} = &mt('Session with activity in last 5 minutes'); |
| |
} |
| |
|
| |
my ($now,$starttime,$activatedstart,$expiredstart,$crsloginstart); |
| |
$now = time; |
| |
|
| |
if ($timediff{'versions'} == -1) { |
| |
$starttime = 0; |
| } else { |
} 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>'); |
$starttime = $now - $timediff{'versions'}; |
| } |
} |
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
|
| |
|
| ## UNGRADED ITEMS ## |
if ($timediff{'newroles'} == -1) { |
| $r->print(<<END); |
$activatedstart = 0; |
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
} else { |
| <tr><td> |
$activatedstart = $now - $timediff{'newroles'}; |
| <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) { |
if ($timediff{'oldroles'} == -1) { |
| $r->print('<tr><th bgcolor="#cccccc">Problem Name</th><th>Number ungraded</th></tr>'); |
$expiredstart = 0; |
| my $rowNum = 0; |
} else { |
| foreach my $res (@tograde) { |
$expiredstart = $now - $timediff{'oldroles'}; |
| if ($rowNum %2 == 1) { |
} |
| $rowColor = $rowColor1; |
|
| } else { |
if ($timediff{'crslogin'} == -1) { |
| $rowColor = $rowColor2; |
$crsloginstart = 0; |
| |
} else { |
| |
$crsloginstart = $now - $timediff{'crslogin'}; |
| |
} |
| |
|
| |
my $countunread = $display_settings{$cid.':countunread'}; |
| |
unless (defined($countunread)) { |
| |
$countunread = 'on'; |
| |
} |
| |
if ($$checkallowed{'abovethreshold'}) { |
| |
&get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); |
| |
} |
| |
|
| |
$headings{'abovethreshold'} = |
| |
&mt('(Problems with av. attempts ≥ [_1] or deg. difficulty ≥ [_2]) [_3] and total number of '.$stulabel{$crstype}.' with submissions ≥ [_4]', |
| |
$threshold{'av_attempts'},$threshold{'degdiff'}, |
| |
'<br />',$threshold{'numstudents'}); |
| |
|
| |
my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail','newroles','oldroles','crslogin','sessions'); |
| |
my %actioncolumn = ( |
| |
handgrading => 'left', |
| |
haserrors => 'left', |
| |
abovethreshold => 'left', |
| |
versionchanges => 'left', |
| |
coursediscussion => 'right', |
| |
coursenormalmail => 'right', |
| |
coursecritmail => 'right', |
| |
newroles => 'right', |
| |
oldroles => 'right', |
| |
crslogin => 'right', |
| |
sessions => 'right', |
| |
); |
| |
|
| |
foreach my $key (keys(%{$checkallowed})) { |
| |
if ($key =~ /_section$/) { next; } |
| |
$show{$key} = 0; |
| |
if ($$checkallowed{$key}) { |
| |
unless ($display_settings{$cid.':'.$key} eq 'hide') { |
| |
$show{$key} = 1; |
| } |
} |
| |
|
| $r->print('<tr bgcolor="'.$rowColor.'"><td>'.$ungraded{$res}{title}.'</td><td>'.$ungraded{$res}{count}.'</td></tr>'); |
|
| $rowNum ++; |
|
| } |
} |
| } 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 />'); |
|
| $r->print('</td><td width="5%"> </td><td align="left" valign="top" width-"50%">'); |
|
| |
|
| ## MESSAGES ## |
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%"> |
$item eq 'newroles' || $item eq 'oldroles' || |
| <tr> |
$item eq 'crslogin' || $item eq 'sessions') { |
| <td> |
if ($show{$item}) { |
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
$needitems = 1; |
| <tr> |
last; |
| <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) { |
|
| my $rowNum = 0; |
|
| my $mailcount = 1; |
|
| foreach my $msg (@newmsgs) { |
|
| if ($rowNum %2 == 1) { |
|
| $rowColor = $rowColor1; |
|
| } else { |
|
| $rowColor = $rowColor2; |
|
| } |
} |
| $r->print('<tr><td bgcolor="'.$rowColor.'" 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>'); |
|
| $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 />'); |
my $itemserror; |
| |
if ($needitems) { |
| |
$itemserror = &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread,$checkallowed); |
| |
} |
| |
my $classlist; |
| |
if ($show{'oldroles'} || $show{'newroles'} || $show{'crslogin'} || $show{'sessions'}) { |
| |
$classlist = &Apache::loncoursedata::get_classlist(); |
| |
} |
| |
if ($show{'coursenormalmail'}) { |
| |
$msgcount = &getnormalmail(\@newmsgs); |
| |
} |
| |
if ($show{'coursecritmail'}) { |
| |
$critmsgcount = &getcritmail(\@critmsgs); |
| |
} |
| |
if ($show{'oldroles'}) { |
| |
$expirecount = &getexpired(\%expired,$expiredstart,'previous',$classlist); |
| |
} |
| |
if ($show{'newroles'}) { |
| |
$activecount = &getactivated(\%activated,$activatedstart,'active',$classlist); |
| |
} |
| |
if ($show{'crslogin'}) { |
| |
$logincount = &getloggedin($cdom,$crs,\%loggedin,$crsloginstart); |
| |
} |
| |
if ($show{'sessions'}) { |
| |
$sessioncount = &getsessions($cdom,$crs,\%sessions,$timediff{'sessions'},$classlist); |
| |
} |
| |
$r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a> |
| |
<a href="javascript:changeAll('show');">$lt{'shal'}</a> |
| |
<form method="post" name="visible" action="/adm/whatsnew">\n|); |
| |
foreach my $item (keys(%{$checkallowed})) { |
| |
if ($item =~ /_section$/) { next; } |
| |
if ($$checkallowed{$item}) { |
| |
$r->print('<input type="hidden" name="display_'.$item.'" />'."\n"); |
| |
} |
| |
} |
| |
|
| $r->print(<<END); |
$r->print('<input type="hidden" name="refpage" value="'.$refpage.'" /><table class="LC_double_column"><tr><td class="LC_left_col">'); |
| <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; |
| my $rowNum = 0; |
my $totalboxes = 0; |
| my $mailcount = 1; |
foreach my $key (keys(%{$checkallowed})) { |
| foreach my $msg (@critmsgs) { |
if ($key =~ /_section$/) { next; } |
| if ($rowNum %2 == 1) { |
if ($key eq 'whatsnew' ) { next; } # whatsnew check creates no box |
| $rowColor = $rowColor1; |
if ($$checkallowed{$key}) { |
| } else { |
$totalboxes ++; |
| $rowColor = $rowColor2; |
} |
| |
} |
| |
my $currcolumn = 'left'; |
| |
# my $halfway = int($totalboxes/2) + $totalboxes%2; |
| |
foreach my $actionitem (@actionorder) { |
| |
if ($checkallowed->{$actionitem}) { |
| |
if (($actioncolumn{$actionitem} eq 'right') && ($currcolumn eq 'left')) { |
| |
$r->print('</td><td> </td><td class="LC_right_col" >'); |
| |
$currcolumn = 'right'; |
| } |
} |
| $r->print('<tr><td bgcolor="'.$rowColor.'" 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,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,\%interval,$countunread,\%expired,$expirecount,\%activated,$activecount,$crstype,$itemserror,\%loggedin,$logincount,\%sessions,$sessioncount,$classlist); |
| $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(' |
| $r->print('</table></td></tr></table></td></tr></table><br />'); |
</td> |
| |
</tr> |
| |
</table> |
| |
</form> |
| |
'); |
| |
} |
| |
|
| ## BOMBS ## |
#------------------------------- |
| $r->print(<<END); |
# display_threshold_config |
| <table border="0" cellpadding="0" cellspacing="0" bgcolor="#000000" width="100%"> |
# |
| <tr> |
# Display the threshold setting screen |
| <td> |
# |
| <table border="0" cellpadding="1" cellspacing="1" bgcolor="#000000" width="100%"> |
#------------------------------- |
| <tr> |
|
| <td bgcolor="$tabbg"><b>Problems with errors</b></td> |
sub display_threshold_config { |
| </tr> |
my ($r,$refpage,$threshold_titles,$cdom,$crs) = @_; |
| <tr> |
my $uname = $env{'user.name'}; |
| <td bgcolor="#ffffff"> |
my $udom = $env{'user.dom'}; |
| <table width="100%" cellspacing="0" cellpadding="0" border="0"> |
my $cid = $env{'request.course.id'}; |
| END |
my %threshold = (); |
| my $bombnum = 0; |
my $rowColor1 = "#ffffff"; |
| if (@bombs > 0) { |
my $rowColor2 = "#eeeeee"; |
| # @bombs = sort { &cmp_title($a,$b) } @bombs; |
my $rowColor; |
| foreach my $bomb (@bombs) { |
|
| if ($bombnum %2 == 1) { |
my @thresholditems = ("av_attempts","degdiff","numstudents"); |
| $rowColor = $rowColor1; |
my %threshold_titles = &Apache::lonlocal::texthash( |
| |
av_attempts => 'Average number of attempts', |
| |
degdiff => 'Degree of difficulty', |
| |
numstudents => 'Total number of students with submissions', |
| |
); |
| |
&get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); |
| |
|
| |
$r->print('<br /><form name="thresholdform" method="post" action="/adm/whatsnew">'. |
| |
&Apache::loncommon::start_data_table(). |
| |
&Apache::loncommon::start_data_table_header_row(). |
| |
'<th>'.&mt('Threshold Name').'</th>'."\n". |
| |
'<th>'.&mt('Current value').'</th>'."\n". |
| |
'<th>'.&mt('Change?').'</th>'."\n". |
| |
&Apache::loncommon::end_data_table_header_row()); |
| |
foreach my $type (@thresholditems) { |
| |
my $parameter = $env{'request.course.id'}.':threshold_'.$type; |
| |
# onchange is javascript to automatically check the 'Set' button. |
| |
my $onchange = 'onfocus="javascript:window.document.forms'. |
| |
"['thresholdform'].elements['".$parameter."_setparmval']". |
| |
'.checked=true;"'; |
| |
$r->print(&Apache::loncommon::start_data_table_row()."\n". |
| |
'<td>'.$threshold_titles{$type}.'</td>'."\n". |
| |
'<td>'.&Apache::lonhtmlcommon::textbox($parameter.'_value', |
| |
$threshold{$type}, |
| |
10,$onchange).'</td>'."\n". |
| |
'<td>'. |
| |
&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval'). |
| |
'</td>'."\n". |
| |
&Apache::loncommon::end_data_table_row()); |
| |
} |
| |
$r->print(&Apache::loncommon::end_data_table()."\n". |
| |
'<br /><input type="submit" name="threshold" value="'.&mt('Save').'" /> |
| |
<input type="hidden" name="command" value="update" /> |
| |
<input type="hidden" name="refpage" value="'.$refpage.'" /> |
| |
</form>'); |
| |
} |
| |
|
| |
#------------------------------- |
| |
# display_interval_config |
| |
# |
| |
# Display the interval setting screen |
| |
# |
| |
#------------------------------- |
| |
|
| |
sub display_interval_config { |
| |
my ($r,$refpage,$interval_titles,$context) = @_; |
| |
my $setting = 'interval'; |
| |
if ($context eq 'oldroles') { |
| |
$setting = 'oldroleinterval'; |
| |
} elsif ($context eq 'newroles') { |
| |
$setting = 'newroleinterval'; |
| |
} elsif ($context eq 'sessions') { |
| |
$setting = 'sessionactivity'; |
| |
} |
| |
my $lctype = lc(&Apache::loncommon::course_type()); |
| |
my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
| |
$env{'request.course.id'},$setting); |
| |
if ($context eq 'oldroles') { |
| |
$r->print('<br />'.&mt('Choose the time window to use to display roles for which access to the '.$lctype.' expired.').'<br />'); |
| |
} elsif ($context eq 'newroles') { |
| |
$r->print('<br />'.&mt('Choose the time window to use to display roles for which access to the '.$lctype.' became available.').'<br />'); |
| |
} elsif ($context eq 'crslogin') { |
| |
$r->print('<br />'.&mt('Choose the time window to use to display the last login by a user in the '.$lctype).'<br />'); |
| |
} elsif ($context eq 'sessions') { |
| |
$r->print('<br />'.&mt('Choose the time limit to use to display active user sessions in the '.$lctype.'.').'<br />'); |
| |
} else { |
| |
$r->print('<br />'.&mt('Choose the time window to use to display resources in the '.$lctype.' with version changes.').'<br />'); |
| |
} |
| |
unless ($current eq '') { |
| |
if (ref($interval_titles->{$context}) eq 'HASH') { |
| |
$r->print(' '.&mt('Current value is "[_1]".','<b>'. |
| |
$interval_titles->{$context}->{$current}.'</b>').'<br />'); |
| |
} |
| |
} |
| |
$r->print('<br /> |
| |
<form method="post" name="intervalswitch" action="/adm/whatsnew"> |
| |
<input type="hidden" name="command" value="newinterval" /> |
| |
<input type="hidden" name="intervaltype" value="'.$context.'" /> |
| |
<input type="hidden" name="refpage" value="'.$refpage.'" />'. |
| |
&mt('Display:').' |
| |
<select name="interval"> |
| |
<option value="" selected="selected">'.&mt('Select').'</option> |
| |
'); |
| |
if (ref($interval_titles) eq 'HASH') { |
| |
if (ref($interval_titles->{$context}) eq 'HASH') { |
| |
my @sorted; |
| |
if ($context eq 'sessions') { |
| |
@sorted = sort { $a <=> $b } (keys(%{$interval_titles->{$context}})); |
| |
push(@sorted,shift(@sorted)); |
| } else { |
} else { |
| $rowColor = $rowColor2; |
@sorted = reverse sort ({$a cmp $b} (keys(%{$interval_titles->{$context}}))); |
| } |
} |
| $r->print('<tr bgcolor="'.$rowColor.'"><td>'.$bombed{$bomb}{errorlink}.'</td></tr>'); |
foreach my $key (@sorted) { |
| $bombnum ++; |
$r->print('<option value="'.$key.'">'.&mt($interval_titles->{$context}->{$key}). |
| |
'</option>'."\n"); |
| |
} |
| |
} |
| |
} |
| |
$r->print('</select> |
| |
<input type="submit" name="display" value="'. |
| |
&mt('Save').'" /></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 discussion board which has unread posts.') |
| |
.'<br />' |
| |
.&mt("This can increase the time taken to gather data for the [_1]What's New Page[_2] by a few seconds.",'<i>','</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]',&mt($opposite{$current})).'" |
| |
onclick="javascript:toggle_countunread('."'change'".')" />'. |
| |
(' ' x7). |
| |
'<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(&Apache::loncommon::course_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' => 'Save', |
| |
); |
| |
$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('<span class="LC_nobreak"><label><input type="radio" name="courseinit_control" value="'. |
| |
$choice.'"'.$chkstring.'/>'.$$initpage{$choice}. |
| |
' </label></span>'); |
| |
} |
| |
$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('<span class="LC_nobreak"><label><input type="radio" name="courseinit_page" value="'. |
| |
$choice.'"'.$chkstring.'/>'.$$initpage{$choice}. |
| |
' </label></span>'); |
| |
} |
| |
$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 { |
} else { |
| $r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>No problems with errors</small></i></b></center><br /></td></tr>'); |
$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'; |
| |
} |
| } |
} |
| $r->print('</table></td></tr></td></tr></table>'); |
return ($control,$current); |
| $r->print(' |
} |
| </table> |
|
| </td> |
sub display_launcher { |
| </tr> |
my ($r,$action,$refpage,$checkallowed,$show,$headings,$res_title, |
| </table>'); |
$tograde,$ungraded,$bombs,$bombed,$changed,$warnings,$triggered, |
| $r->print('</td></tr></table>'); |
$newdiscussions,$unread,$msgcount,$newmsgs,$critmsgcount,$critmsgs, |
| |
$interval,$countunread,$expired,$expirecount,$activated,$activecount, |
| |
$crstype,$itemserror,$loggedin,$logincount,$sessions,$sessioncount, |
| |
$classlist) = @_; |
| |
|
| |
if ($$checkallowed{$action}) { |
| |
&start_box($r,$show,$headings,$action,$refpage); |
| |
if ($$show{$action}) { |
| |
if ($action eq 'handgrading') { # UNGRADED ITEMS |
| |
&display_handgrade($r,$tograde,$ungraded,$itemserror); |
| |
} elsif ($action eq 'haserrors') { # BOMBS |
| |
&display_haserrors($r,$bombs,$bombed,$res_title,$itemserror); |
| |
} elsif ($action eq 'versionchanges') { # VERSION CHANGES |
| |
&display_versionchanges($r,$changed,$res_title,$interval->{'versions'},$itemserror); |
| |
} elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS |
| |
&display_abovethreshold($r,$refpage,$warnings,$triggered, |
| |
$res_title,$itemserror,$checkallowed); |
| |
} elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION |
| |
&display_coursediscussion($r,$newdiscussions,$unread, |
| |
$countunread,$res_title,$itemserror); |
| |
} elsif ($action eq 'coursenormalmail') { # NORMAL MESSAGES |
| |
&display_coursenormalmail($r,$msgcount,$newmsgs); |
| |
} elsif ($action eq 'coursecritmail') { # CRITICAL MESSAGES |
| |
&display_coursecritmail($r,$critmsgcount,$critmsgs); |
| |
} elsif ($action eq 'newroles') { # ACTIVATED ROLES |
| |
&display_rolechanges($r,$activecount,$activated,$interval->{'newroles'}, |
| |
$crstype,$classlist); |
| |
} elsif ($action eq 'oldroles') { # EXPIRED ROLES |
| |
&display_rolechanges($r,$expirecount,$expired,$interval->{'oldroles'}, |
| |
$crstype,$classlist); |
| |
} elsif ($action eq 'crslogin') { #LAST LOGIN |
| |
&display_activity($r,'logins',$logincount,$loggedin,$interval->{'crslogin'}, |
| |
$crstype,$classlist); |
| |
} elsif ($action eq 'sessions') { #ACTIVE SESSIONS |
| |
&display_activity($r,'sessions',$sessioncount,$sessions,$interval->{'sessions'}, |
| |
$crstype,$classlist); |
| |
} |
| |
} |
| |
&end_box($r); |
| |
} |
| |
return; |
| } |
} |
| |
|
| sub getitems { |
sub getitems { |
| my ($unread,$ungraded,$bombed,$newdiscussions,$tograde,$bombs) = @_; |
my ($unread,$ungraded,$bombed,$triggered,$changed,$newdiscussions, |
| |
$tograde,$bombs,$warnings,$threshold,$cdom,$crs,$res_title,$show, |
| |
$starttime,$countunread,$checkallowed) = @_; |
| my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| my @allres=$navmap->retrieveResources(); |
if (!defined($navmap)) { |
| my %discussiontime = &Apache::lonnet::dump('discussiontimes', |
my $itemserror = '<span class="LC_warning">'.&mt('An error occurred retrieving information about the course.').'<br />'.&mt('It is recommended that you [_1]re-select the course[_2].','<a href="/adm/roles">','</a>').'</span>'; |
| $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
return $itemserror; |
| $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
} |
| my %lastread = &Apache::lonnet::dump('nohist_'.$ENV{'request.course.id'}.'_discuss',$ENV{'user.domain'},$ENV{'user.name'},'lastread'); |
# force retrieve Resource to seed the part id cache we'll need it later |
| my %lastreadtime = (); |
my @allres=$navmap->retrieveResources(undef, |
| my @discussions = (); |
sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;}); |
| my ($classlist,$keylist) = &Apache::loncoursedata::get_classlist(); |
my %resourcetracker; |
| |
my $discussiontime; |
| foreach (keys %lastread) { |
|
| my $key = $_; |
# Resource version changes |
| $key =~ s/_lastread$//; |
if ($$show{'versionchanges'}) { |
| $lastreadtime{$key} = $lastread{$_}; |
&checkversions($cdom,$crs,$navmap,$changed,$starttime); |
| } |
} |
| |
|
| |
if ($$show{'abovethreshold'}) { |
| |
%resourcetracker = &Apache::lonnet::dump('nohist_resourcetracker', |
| |
$cdom,$crs); |
| |
} |
| |
|
| 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}{numparts} = 0; |
| |
if ($resource->encrypted()) { |
| |
$$triggered{$symb}{'enclink'} = $resource->link(); |
| |
$$triggered{$symb}{'encsymb'} = $resource->shown_symb(); |
| |
} |
| my $title = $resource->compTitle(); |
my $title = $resource->compTitle(); |
| my $ressymb = $symb; |
$$res_title{$symb} = $title; |
| if ($ressymb =~ m-(___adm/\w+/\w+)/(\d+)/bulletinboard$-) { |
my $ressymb = $resource->wrap_symb(); |
| $ressymb = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard'; |
|
| unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
# Check if there are unread discussion postings |
| $ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|; |
if ($$show{'coursediscussion'}) { |
| |
&check_discussions($resource,$symb,$ressymb,$title, |
| |
$newdiscussions,$unread,$countunread); |
| |
} |
| |
|
| |
# Check for ungraded problems |
| |
if ($resource->is_problem()) { |
| |
if ($$show{'handgrading'}) { |
| |
&check_handgraded($resource,$symb,$title,$cdom,$crs,$ungraded, |
| |
$tograde); |
| } |
} |
| } |
} |
| |
|
| # Check for unread discussion postings |
# Check for bombs |
| if (defined($discussiontime{$ressymb})) { |
if ($$show{'haserrors'}) { |
| push(@discussions,$ressymb); |
&check_bombed($resource,$symb,$title,$bombs,$bombed); |
| my $prevread = 0; |
} |
| my $unreadcount = 0; |
|
| %{$$unread{$ressymb}} = (); |
# Maxtries and degree of difficulty for problem parts, unless handgradeable |
| $$unread{$ressymb}{'title'} = $title; |
if ($$show{'abovethreshold'}) { |
| $$unread{$ressymb}{'symb'} = $symb; |
&check_thresholds($resource,$symb,\%resourcetracker, |
| if (defined($lastreadtime{$ressymb})) { |
$triggered,$threshold,$warnings, |
| $prevread = $lastreadtime{$ressymb}; |
$checkallowed); |
| } |
} |
| my %contrib = &Apache::lonnet::restore($ressymb,$ENV{'request.course.id'}, |
} |
| $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, |
return; |
| $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); |
} |
| if ($contrib{'version'}) { |
|
| for (my $id=1;$id<=$contrib{'version'};$id++) { |
sub check_discussions { |
| unless (($contrib{'hidden'}=~/\.$id\./) || ($contrib{'deleted'}=~/\.$id\./)) { |
my ($resource,$symb,$ressymb,$title,$newdiscussions,$unread, |
| if ($prevread <$contrib{$id.':timestamp'}) { |
$countunread) = @_; |
| $$unread{$ressymb}{$unreadcount} = $id.': '.$contrib{$id.':subject'}; |
|
| $unreadcount ++; |
if (!$resource->hasDiscussion()) { return; } |
| push(@{$newdiscussions}, $ressymb); |
|
| } |
%{$$unread{$ressymb}} = (); |
| |
$$unread{$ressymb}{'title'} = $title; |
| |
$$unread{$ressymb}{'symb'} = $symb; |
| |
if ($resource->encrypted()) { |
| |
$$unread{$ressymb}{'enclink'} = $resource->link(); |
| |
$$unread{$ressymb}{'encsymb'} = $resource->shown_symb(); |
| |
} |
| |
push(@{$newdiscussions}, $ressymb); |
| |
|
| |
$$unread{$ressymb}{'lastpost'} = $resource->last_post_time(); |
| |
|
| |
if ($countunread eq 'on') { |
| |
$$unread{$ressymb}{'unreadcount'} = |
| |
$resource->discussion_info('unread'); |
| |
} |
| |
} |
| |
|
| |
sub check_handgraded { |
| |
my ($resource,$symb,$title,$cdom,$cnum,$ungraded,$tograde) = @_; |
| |
if ($resource->is_problem()) { |
| |
my ($handgradeable,$is_task); |
| |
my $partlist=$resource->parts(); |
| |
if ($resource->is_task()) { |
| |
$is_task = 1; |
| |
foreach my $part (@$partlist) { |
| |
if ($resource->handgrade($part) eq 'yes') { |
| |
$handgradeable=1; |
| |
last; |
| |
} |
| |
} |
| |
} else { |
| |
foreach my $part (@$partlist) { |
| |
my @types = $resource->responseType($part); |
| |
if (grep(/^essay$/,@types)) { |
| |
$handgradeable=1; |
| |
last; |
| |
} elsif (grep(/^custom$/,@types)) { |
| |
if ($resource->handgrade($part) eq 'yes') { |
| |
$handgradeable=1; |
| |
last; |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| |
if ($handgradeable) { |
| |
my @ungraded = &Apache::bridgetask::get_queue_symb_status( |
| |
'gradingqueue',$symb,$cdom,$cnum); |
| |
if (@ungraded > 0) { |
| |
$$ungraded{$symb}{count} = scalar(@ungraded); |
| |
$$ungraded{$symb}{title} = $title; |
| |
$$ungraded{$symb}{is_task} = $is_task; |
| |
if ($resource->encrypted()) { |
| |
$$ungraded{$symb}{'enclink'} = $resource->link(); |
| |
$$ungraded{$symb}{'encsymb'} = $resource->shown_symb(); |
| |
} |
| |
push(@{$tograde},$symb); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
|
| # Check for ungraded problems |
sub check_bombed { |
| if ($resource->is_problem()) { |
my ($resource,$symb,$title,$bombs,$bombed) = @_; |
| my $ctr = 0; |
if ($resource->getErrors()) { |
| my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb); |
my $errors = $resource->getErrors(); |
| my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($url,$symb); |
$errors =~ s/^,//; |
| foreach my $student (keys(%$classlist)) { |
my @bombs = split(/,/, $errors); |
| my ($uname,$udom) = split/:/,$student; |
my $errorcount = scalar(@bombs); |
| my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist); |
my $errorlink = '<a href="/adm/email?display='. |
| my $submitted = 0; |
&escape($bombs[0]).'">'. |
| my $graded = 0; |
$title.'</a>'; |
| foreach (keys(%status)) { |
$$bombed{$symb}{errorcount} = $errorcount; |
| $submitted = 1 if ($status{$_} ne 'nothing'); |
$$bombed{$symb}{errorlink} = $errorlink; |
| $graded = 1 if ($status{$_} !~ /^correct/); |
push(@{$bombs}, $symb); |
| my ($foo,$partid,$foo1) = split(/\./,$_); |
} |
| if ($status{'resource.'.$partid.'.submitted_by'} ne '') { |
} |
| $submitted = 0; |
|
| } |
sub check_thresholds { |
| |
my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings, |
| |
$checkallowed) = @_; |
| |
# Compile maxtries and degree of difficulty for problem parts, unless handgradeable |
| |
my @parts = @{$resource->parts()}; |
| |
my %stats; |
| |
my %lastreset = (); |
| |
my $warning = 0; |
| |
foreach my $part (@parts) { |
| |
if ($resource->handgrade($part) eq 'yes') { |
| |
next; |
| |
} |
| |
if ($resource->is_anonsurvey($part)) { |
| |
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); |
| |
} |
| |
&Apache::lonnet::statslog($symb,$part,$users,$av_attempts,$degdiff); |
| |
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) { |
| |
$$triggered{$symb}{title} = $resource->title; |
| |
my $partcount = 0; |
| |
@{$$triggered{$symb}{text}} = (); |
| |
foreach my $part (@parts) { |
| |
if (exists($stats{$part}{users})) { |
| |
my $resetname = 'reset_'.&escape($symb."\0".$part); |
| |
my $resettitle = 'title_'.&escape($symb."\0".$part); |
| |
if (@parts > 1) { |
| |
$$triggered{$symb}{text}[$partcount] = ' |
| |
<td>'.&mt('part - ').$part.'</td>'; |
| |
} else { |
| |
$$triggered{$symb}{text}[$partcount] = ' |
| |
<td>'.&mt('single part').'</td>'; |
| |
} |
| |
$$triggered{$symb}{text}[$partcount] .= ' |
| |
<td>'.$stats{$part}{users}.'</td> |
| |
<td>'.$stats{$part}{attempts}.'</td> |
| |
<td>'.$stats{$part}{degdiff}.'</td> |
| |
<td>'.$lastreset{$part}.'</td>'; |
| |
if ($checkallowed->{'resetcounters'}) { |
| |
$$triggered{$symb}{text}[$partcount] .= |
| |
'<td><input type="checkbox" name="'.$resetname.'" />'. |
| |
'<input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td>'; |
| } |
} |
| next if (!$submitted || !$graded); |
$partcount ++; |
| $ctr ++; |
|
| } |
} |
| if ($ctr) { |
$$triggered{$symb}{numparts} = $partcount; |
| $$ungraded{$symb}{count} = $ctr; |
} |
| $$ungraded{$symb}{title} = $title; |
push(@{$warnings},$symb); |
| push(@{$tograde}, $symb); |
} |
| |
} |
| |
|
| |
|
| |
sub get_curr_thresholds { |
| |
my ($threshold,$uname,$udom,$cid,$cdom,$crs) = @_; |
| |
# set default values |
| |
%$threshold = (av_attempts => 2, |
| |
degdiff => 0.5, |
| |
numstudents => 2 |
| |
); |
| |
my %thresholdsettings = &Apache::lonnet::dump('nohist_whatsnew',$udom, |
| |
$uname,$cid.':threshold'); |
| |
my $thresholdcount = 0; |
| |
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 ($thresholdcount == 3) { |
| |
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}; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return; |
| |
} |
| |
|
| # Check for bombs |
sub get_current { |
| if ($resource->getErrors()) { |
my ($uname,$udom,$cid,$caller) = @_; |
| my $errors = $resource->getErrors(); |
my $currvalue; |
| my @bombs = split(/,/, $errors); |
my %settings = &Apache::lonnet::dump('nohist_whatsnew',$udom,$uname,$cid. |
| my $errorcount = scalar(@bombs); |
':'.$caller); |
| my $errorlink = '<a href="/adm/email?display='. |
my ($tmp) = %settings; |
| &Apache::lonnet::escape($$bombs[0]).'">'; |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
| $$bombed{$symb}{errorcount} = $errorcount; |
$currvalue = $settings{$cid.':'.$caller}; |
| $$bombed{$symb}{errorlink} = $errorlink; |
} |
| push(@{$bombs}, $symb); |
return $currvalue; |
| } |
} |
| } |
|
| # Compile maxtries and degree of difficulty. |
sub process_reset { |
| } |
my ($dom,$crs,$checkallowed) = @_; |
| |
if (!$checkallowed->{'resetcounters'}) { |
| sub getmail { |
return '<b>'.&mt('You do not have the required privileges to reset counters'). |
| my ($newmsgs,$critmsgs) = @_; |
'</b><br />'; |
| # Check for unread mail in course |
} |
| |
my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). |
| |
'</b><br />'; |
| |
my @agg_types = ('attempts','users','correct'); |
| |
my %agg_titles = &Apache::lonlocal::texthash ( |
| |
attempts => 'Number of submissions', |
| |
users => 'Students with submissions', |
| |
correct => 'Number of correct submissions', |
| |
); |
| |
my @resets = (); |
| |
my %titles = (); |
| |
foreach my $key (keys(%env)) { |
| |
next if ($key !~ /^form\.reset_(.+)$/); |
| |
my $title = &unescape($env{'form.title_'.$1}); |
| |
my $reset_item = &unescape($1); |
| |
my %curr_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); |
| |
my %aggregates = (); |
| |
my ($symb,$part) = split(/\0/,$reset_item); |
| |
foreach my $type (@agg_types) { |
| |
$aggregates{$reset_item."\0".$type} = 0; |
| |
} |
| |
$aggregates{$reset_item."\0".'resettime'} = time; |
| |
my $putresult = &Apache::lonnet::put('nohist_resourcetracker',\%aggregates, |
| |
$dom,$crs); |
| |
if ($putresult eq 'ok') { |
| |
$result .= $title.' -part '.$part.': '; |
| |
my %new_aggregates = &Apache::lonnet::dump('nohist_resourcetracker',$dom,$crs,$reset_item); |
| |
foreach my $type (@agg_types) { |
| |
$result .= $agg_titles{$type}.' = '.$new_aggregates{$reset_item."\0".$type}.'; '; |
| |
} |
| |
$result =~ s/; $//; |
| |
$result .= '<br />'; |
| |
} else { |
| |
$result = $title.' -part '.$part.': '.&mt('Unable to reset counters to zero due to [_1]',$putresult).'.<br />'."\n"; |
| |
} |
| |
} |
| |
return $result; |
| |
} |
| |
|
| |
sub process_update { |
| |
my ($uname,$udom,$threshold_titles) = @_; |
| |
my $setoutput = '<b>'.&mt('Changes to threshold(s) for problem tracking:').'</b><br/><br />'; |
| |
foreach my $key (keys(%env)) { |
| |
my $name; |
| |
if ($key =~/^form\.(.+)\_setparmval$/) { |
| |
$name = $1; |
| |
} else { |
| |
next; |
| |
} |
| |
my $value = $env{'form.'.$name.'_value'}; |
| |
if ($name && defined($value) && ($value ne '')) { |
| |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
| |
{$name=>$value},$udom,$uname); |
| |
|
| |
my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E:threshold_(.+)$/); |
| |
if ($put_result eq 'ok') { |
| |
$setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Set threshold for [_1] to [_2]', |
| |
'<b>'.$$threshold_titles{$shortname}.'</b>', |
| |
'<b>'.$value.'</b>').'<br />'); |
| |
} else { |
| |
$setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set threshold for [_1] to [_2] due to [_3].', |
| |
'<b>'.$name.'</b>','<b>'.$value.'</b>', |
| |
'<tt>'.$put_result.'</tt>').'<br />',1); |
| |
} |
| |
} |
| |
} |
| |
return &Apache::loncommon::confirmwrapper($setoutput); |
| |
} |
| |
|
| |
sub getnormalmail { |
| |
my ($newmsgs) = @_; |
| |
# Check for unread messages in user's INBOX (which were sent in context of current course). |
| my $msgcount = 0; |
my $msgcount = 0; |
| my @msgids = sort split(/\&/,&Apache::lonnet::reply |
my @messages = &Apache::lonnet::getkeys('nohist_email'); |
| ('keys:'.$ENV{'user.domain'}.':'. |
return $msgcount if (!@messages); |
| $ENV{'user.name'}.':nohist_email', |
my %emailstatus = &Apache::lonnet::dump('email_status'); |
| $ENV{'user.home'})); |
foreach my $msgid (sort(@messages)) { |
| foreach my $msgid (@msgids) { |
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
| my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)= |
my $skipstatus; |
| &Apache::lonmsg::unpackmsgid($msgid); |
if ($emailstatus{$msgid} eq 'new') { |
| if ($fromcid eq $ENV{'request.course.id'}) { |
$skipstatus = 1; |
| if (defined($sendtime) && $sendtime!~/error/) { |
} |
| my $numsendtime = $sendtime; |
my $esc_msgid = &escape($msgid); |
| $sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
| if ($status eq 'new') { |
&Apache::lonmsg::unpackmsgid($esc_msgid,undef,$skipstatus,undef, |
| $$msgcount ++; |
$env{'request.course.id'}); |
| push(@{$newmsgs}, { |
if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
| msgid => $msgid, |
if (defined($sendtime) && $sendtime!~/error/) { |
| sendtime => $sendtime, |
if (($emailstatus{$msgid} eq 'new') || ($status eq 'new')) { |
| shortsub => &Apache::lonnet::unescape($shortsubj), |
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
| from => $fromname, |
$msgcount ++; |
| fromdom => $fromdom |
if ($shortsubj eq '') { |
| }); |
$shortsubj = &mt('No subject'); |
| |
} |
| |
push(@{$newmsgs}, { |
| |
msgid => $esc_msgid, |
| |
sendtime => $sendtime, |
| |
shortsub => $shortsubj, |
| |
from => $fromname, |
| |
fromdom => $fromdom |
| |
}); |
| |
} |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| |
return $msgcount; |
| |
} |
| |
|
| # Check for critical messages in course |
sub getcritmail { |
| |
my ($critmsgs) = @_; |
| |
# Check for critical messages which were sent in context of current course. |
| my %what=&Apache::lonnet::dump('critical'); |
my %what=&Apache::lonnet::dump('critical'); |
| my $result = ''; |
my $result = ''; |
| my $critmsgcount = 0; |
my $critmsgcount = 0; |
| foreach my $msgid (sort keys %what) { |
foreach my $msgid (sort(keys(%what))) { |
| my ($sendtime,$shortsubj,$fromname,$fromdom,$fromcid,$status)= |
my $esc_msgid = &escape($msgid); |
| &Apache::lonmsg::unpackmsgid($_); |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
| if ($fromcid eq $ENV{'request.course.id'}) { |
&Apache::lonmsg::unpackmsgid($esc_msgid,undef,1,undef, |
| |
$env{'request.course.id'}); |
| |
if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
| if (defined($sendtime) && $sendtime!~/error/) { |
if (defined($sendtime) && $sendtime!~/error/) { |
| my $numsendtime = $sendtime; |
|
| $sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
| $critmsgcount ++; |
$critmsgcount ++; |
| |
if ($shortsubj eq '') { |
| |
$shortsubj = &mt('No subject'); |
| |
} |
| push(@{$critmsgs}, { |
push(@{$critmsgs}, { |
| msgid => $msgid, |
msgid => $esc_msgid, |
| sendtime => $sendtime, |
sendtime => $sendtime, |
| shortsub => &Apache::lonnet::unescape($shortsubj), |
shortsub => $shortsubj, |
| from => $fromname, |
from => $fromname, |
| fromdom => $fromdom |
fromdom => $fromdom |
| }); |
}); |
| } |
} |
| } |
} |
| } |
} |
| return ($msgcount,$critmsgcount); |
return $critmsgcount; |
| |
} |
| |
|
| |
sub getexpired { |
| |
my ($rolechgs,$rolechgtime,$status,$classlist) = @_; |
| |
my $expirecount = &getrolechanges($rolechgs,$rolechgtime,$status,$classlist); |
| |
return $expirecount; |
| |
} |
| |
|
| |
sub getactivated { |
| |
my ($rolechgs,$rolechgtime,$status,$classlist) = @_; |
| |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| |
my $now = time(); |
| |
my $context = 'course'; |
| |
my ($permission,$allowed) = |
| |
&Apache::lonuserutils::get_permission($context); |
| |
my $viewablesec = &Apache::lonuserutils::viewable_section($permission); |
| |
my %changes=&Apache::lonnet::dump('nohist_rolelog',$cdom,$cnum); |
| |
my (%stucounted,%advcounted); |
| |
my $activatedcount = 0; |
| |
if (keys(%changes) > 0) { |
| |
foreach my $chg (keys(%changes)) { |
| |
if (ref($changes{$chg}) eq 'HASH') { |
| |
next if ($changes{$chg}{'delflag'}); |
| |
if ($rolechgtime > 0) { |
| |
next if ($changes{$chg}{'exe_time'} < $rolechgtime); |
| |
} |
| |
if ($changes{$chg}{'exe_time'}) { |
| |
my $timestamp = $changes{$chg}{'exe_time'}; |
| |
if (ref($changes{$chg}{'logentry'}) eq 'HASH') { |
| |
my $end = $changes{$chg}{'logentry'}{'end'}; |
| |
next if ($end && $end <= $now); |
| |
my $start = $changes{$chg}{'logentry'}{'start'}; |
| |
next if ($start >= $timestamp); |
| |
my $section = $changes{$chg}{'logentry'}{'section'}; |
| |
if (($viewablesec ne '') && ($section ne '')) { |
| |
next if ($viewablesec ne $section); |
| |
} |
| |
my $role = $changes{$chg}{'logentry'}{'role'}; |
| |
my $uname = $changes{$chg}{'uname'}; |
| |
my $udom = $changes{$chg}{'udom'}; |
| |
if ($role eq 'st') { |
| |
$stucounted{$uname.':'.$udom.':'.$section} = $start.':'.$end; |
| |
} else { |
| |
$advcounted{$uname.':'.$udom.':'.$role.':'.$section} = $start.':'.$end; |
| |
} |
| |
my %chginfo = ( |
| |
'section' => $section, |
| |
'uname' => $uname, |
| |
'udom' => $udom, |
| |
'role' => $role, |
| |
'status' => $status, |
| |
); |
| |
$activatedcount ++; |
| |
push (@{$rolechgs->{$timestamp}},\%chginfo); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
$activatedcount += &getrolechanges($rolechgs,$rolechgtime,$status,$classlist,\%stucounted, |
| |
\%advcounted); |
| |
return $activatedcount; |
| |
} |
| |
|
| |
sub getrolechanges { |
| |
my ($rolechgs,$rolechgtime,$status,$classlist,$stucountref,$advcountref) = @_; |
| |
my (%stucounted,%advcounted); |
| |
if (ref($stucountref) eq 'HASH') { |
| |
%stucounted = %{$stucountref}; |
| |
} |
| |
if (ref($advcountref) eq 'HASH') { |
| |
%advcounted = %{$advcountref}; |
| |
} |
| |
my $withsec = 1; |
| |
my $hidepriv = 1; |
| |
my $context = 'course'; |
| |
my @statuses = ($status); |
| |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| |
my $now = time(); |
| |
my ($permission,$allowed) = |
| |
&Apache::lonuserutils::get_permission($context); |
| |
my $viewablesec = &Apache::lonuserutils::viewable_section($permission); |
| |
my $secidx = &Apache::loncoursedata::CL_SECTION(); |
| |
my $startidx = &Apache::loncoursedata::CL_START(); |
| |
my $endidx = &Apache::loncoursedata::CL_END(); |
| |
my $rolechgcount = 0; |
| |
if (ref($classlist) eq 'HASH') { |
| |
foreach my $key (keys(%{$classlist})) { |
| |
my ($userstatus,$eventtime); |
| |
my $student = $classlist->{$key}; |
| |
if (ref($student) eq 'ARRAY') { |
| |
my $start = $student->[$startidx]; |
| |
my $end = $student->[$endidx]; |
| |
my $sec = $student->[$secidx]; |
| |
my ($stuname,$studom) = split(/:/,$key); |
| |
if ($status eq 'active') { |
| |
if (exists($stucounted{$key.':'.$sec})) { |
| |
next; |
| |
} |
| |
} |
| |
if (($end == 0) || ($end > $start)) { |
| |
if ($start <= $now) { |
| |
if ($end && $end < $now) { |
| |
if ($rolechgtime > 0) { |
| |
if ($end > $rolechgtime) { |
| |
$userstatus = 'previous'; |
| |
} |
| |
} else { |
| |
$userstatus = 'previous'; |
| |
} |
| |
} else { |
| |
if ($rolechgtime > 0) { |
| |
if ($start >= $rolechgtime) { |
| |
$userstatus = 'active'; |
| |
} |
| |
} else { |
| |
$userstatus = 'active'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
next if ($userstatus ne $status); |
| |
if ($status eq 'active') { |
| |
$eventtime = $start; |
| |
} else { |
| |
$eventtime = $end; |
| |
} |
| |
if (($viewablesec ne '') && ($sec ne '')) { |
| |
next if ($viewablesec ne $sec); |
| |
} |
| |
my %chginfo = ( |
| |
'section' => $sec, |
| |
'uname' => $stuname, |
| |
'udom' => $studom, |
| |
'role' => 'st', |
| |
'status' => $userstatus, |
| |
); |
| |
$rolechgcount ++; |
| |
push(@{$rolechgs->{$eventtime}},\%chginfo); |
| |
} |
| |
} |
| |
} |
| |
my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef, |
| |
\@statuses,undef,undef,$withsec,$hidepriv); |
| |
foreach my $item (keys(%advrolehash)) { |
| |
my ($userstatus,$eventtime); |
| |
my ($uname,$udom,$role,$section) = split(/:/,$item,-1); |
| |
my ($start,$end) = split(/:/,$advrolehash{$item}); |
| |
if ($start eq '-1' && $end eq '-1') { |
| |
next; |
| |
} else { |
| |
if ($status eq 'active') { |
| |
if (exists($advcounted{$item})) { |
| |
next; |
| |
} |
| |
} |
| |
if (($end == 0) || ($end > $start)) { |
| |
if ($start <= $now) { |
| |
if ($end && $end < $now) { |
| |
if ($rolechgtime > 0) { |
| |
if ($end > $rolechgtime) { |
| |
$userstatus = 'previous'; |
| |
} |
| |
} else { |
| |
$userstatus = 'previous'; |
| |
} |
| |
} else { |
| |
if ($rolechgtime > 0) { |
| |
if ($start >= $rolechgtime) { |
| |
$userstatus = 'active'; |
| |
} |
| |
} else { |
| |
$userstatus = 'active'; |
| |
} |
| |
} |
| |
} |
| |
} |
| |
next if ($userstatus ne $status); |
| |
if ($status eq 'active') { |
| |
$eventtime = $start; |
| |
} else { |
| |
$eventtime = $end; |
| |
} |
| |
} |
| |
if (($viewablesec ne '') && ($section ne '')) { |
| |
next if ($viewablesec ne $section); |
| |
} |
| |
my %chginfo = ( |
| |
'section' => $section, |
| |
'uname' => $uname, |
| |
'udom' => $udom, |
| |
'role' => $role, |
| |
'status' => $userstatus, |
| |
); |
| |
$rolechgcount ++; |
| |
push (@{$rolechgs->{$eventtime}},\%chginfo); |
| |
} |
| |
return $rolechgcount; |
| |
} |
| |
|
| |
sub getloggedin { |
| |
my ($cdom,$crs,$lastlogins,$starttime) = @_; |
| |
my $context = 'course'; |
| |
my ($permission,$allowed) = |
| |
&Apache::lonuserutils::get_permission($context); |
| |
my $viewablesec = &Apache::lonuserutils::viewable_section($permission); |
| |
my %crslogins=&Apache::lonnet::dump('nohist_crslastlogin',$cdom,$crs); |
| |
my $logincount = 0; |
| |
my ($tmp) = keys(%crslogins); |
| |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
| |
if (keys(%crslogins) > 0) { |
| |
foreach my $key (keys(%crslogins)) { |
| |
my ($uname,$udom,$section,$role) = split(/:/,$key); |
| |
my $eventtime = $crslogins{$key}; |
| |
if ($eventtime > $starttime) { |
| |
if (($viewablesec ne '') && ($section ne '')) { |
| |
next if ($viewablesec ne $section); |
| |
} |
| |
my %chginfo = ( |
| |
'section' => $section, |
| |
'uname' => $uname, |
| |
'udom' => $udom, |
| |
'role' => $role, |
| |
); |
| |
$logincount ++; |
| |
push (@{$lastlogins->{$eventtime}},\%chginfo); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return $logincount; |
| |
} |
| |
|
| |
sub getsessions { |
| |
my ($cdom,$cnum,$sessions,$lastactive,$classlist) = @_; |
| |
my $context = 'course'; |
| |
my ($permission,$allowed) = |
| |
&Apache::lonuserutils::get_permission($context); |
| |
my %crs_sessions = &Apache::lonnet::get_course_sessions($cnum,$cdom,$lastactive); |
| |
my $sessioncount = 0; |
| |
if (keys(%crs_sessions) > 0) { |
| |
if (ref($classlist) eq 'HASH') { |
| |
my $viewablesec = &Apache::lonuserutils::viewable_section($permission); |
| |
my $secidx = &Apache::loncoursedata::CL_SECTION(); |
| |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'_'.$cnum,1); |
| |
my %personnel; |
| |
foreach my $role (sort(keys(%coursepersonnel))) { |
| |
my ($rolecode,$section); |
| |
if ($role =~ /:/) { |
| |
($rolecode,$section) = split(/:/,$role); |
| |
} else { |
| |
$rolecode = $role; |
| |
} |
| |
if ($viewablesec ne '') { |
| |
next if ($viewablesec ne $section); |
| |
} |
| |
foreach my $user (split(/\,/,$coursepersonnel{$role})) { |
| |
push(@{$personnel{$user}{$rolecode}},$section); |
| |
} |
| |
} |
| |
foreach my $key (keys(%crs_sessions)) { |
| |
if (exists($classlist->{$key})) { |
| |
my $student = $classlist->{$key}; |
| |
my $section = $student->[$secidx]; |
| |
my $lastaccess = $crs_sessions{$key}; |
| |
if ($viewablesec ne '') { |
| |
next if ($viewablesec ne $section); |
| |
} |
| |
my ($stuname,$studom) = split(/:/,$key); |
| |
my %info = ( |
| |
'section' => $section, |
| |
'role' => 'st', |
| |
'uname' => $stuname, |
| |
'udom' => $studom, |
| |
); |
| |
$sessioncount ++; |
| |
push(@{$sessions->{$lastaccess}},\%info); |
| |
} elsif (exists($personnel{$key})) { |
| |
my $lastaccess = $crs_sessions{$key}; |
| |
my ($uname,$udom) = split(/:/,$key); |
| |
if (ref($personnel{$key}) eq 'HASH') { |
| |
my ($showrole,$showsec); |
| |
foreach my $possrole ('cc','co','in','ta','ep','ad','st') { |
| |
if (exists($personnel{$key}{$possrole})) { |
| |
$showrole = $possrole; |
| |
$showsec = join(', ',@{$personnel{$key}{$possrole}}); |
| |
last; |
| |
} |
| |
} |
| |
my %info = ( |
| |
'section' => $showsec, |
| |
'role' => $showrole, |
| |
'uname' => $uname, |
| |
'udom' => $udom, |
| |
); |
| |
$sessioncount ++; |
| |
push(@{$sessions->{$lastaccess}},\%info); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return $sessioncount; |
| |
} |
| |
|
| |
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($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,$ungraded,$itemserror) = @_; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'prna' => 'Problem Name', |
| |
'nmun' => 'Number ungraded', |
| |
'nopr' => 'No problems require handgrading', |
| |
); |
| |
if (@{$tograde} > 0) { |
| |
$r->print('<tr class="LC_info_row"><td class="LC_left_item">'. |
| |
$lt{'prna'}.'</td><td class="LC_right_item">'. |
| |
$lt{'nmun'}.'</td></tr>'); |
| |
my $rowNum = 0; |
| |
foreach my $res (@{$tograde}) { |
| |
$rowNum ++; |
| |
my $css_class = $rowNum%2?' class="LC_odd_row"':''; |
| |
my $linkurl; |
| |
if ($$ungraded{$res}{'is_task'}) { |
| |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
| |
$linkurl=&Apache::lonnet::clutter($url); |
| |
$linkurl .= '?symb='.&escape($res); |
| |
if ($$ungraded{$res}{'enclink'}) { |
| |
$linkurl = |
| |
$$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'}; |
| |
} |
| |
} else { |
| |
$linkurl='/adm/grades'; |
| |
if ($$ungraded{$res}{'enclink'}) { |
| |
$linkurl.='?symb='.$$ungraded{$res}{'encsymb'}; |
| |
} else { |
| |
$linkurl.='?symb='.&escape($res); |
| |
} |
| |
$linkurl.='&command=ungraded'; |
| |
} |
| |
$r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>'); |
| |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_haserrors { |
| |
my ($r,$bombs,$bombed,$res_title,$itemserror) = @_; |
| |
my $bombnum = 0; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
reso => 'Resource', |
| |
nmer => 'Number of errors', |
| |
noer => 'No problems with errors', |
| |
); |
| |
if (@{$bombs} > 0) { |
| |
$r->print('<tr class="LC_info_row"><td class="LC_left_item">'. |
| |
$lt{'reso'}.'</td><td class="LC_right_item">'. |
| |
$lt{'nmer'}.'</td></tr>'); |
| |
@{$bombs} = sort { &cmp_title($a,$b,$res_title) } @{$bombs}; |
| |
foreach my $bomb (@{$bombs}) { |
| |
$bombnum ++; |
| |
my $css_class = $bombnum%2?' class="LC_odd_row"':''; |
| |
$r->print('<tr'.$css_class.'><td>'.$$bombed{$bomb}{errorlink}. |
| |
'</td><td class="LC_right_item">'. |
| |
$$bombed{$bomb}{errorcount}.'</td></tr>'); |
| |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'noer'}.'</td></tr>'); |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub display_abovethreshold { |
| |
my ($r,$refpage,$warnings,$triggered,$res_title,$itemserror,$checkallowed) = @_; |
| |
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('<tr class="LC_info_row">'. |
| |
'<td class="LC_left_item">'.$lt{'reso'}. |
| |
'<input type="hidden" name="command" value="" /></td>'. |
| |
'<td>'.$lt{'part'}.'</td><td>'.$lt{'nust'}.'</td>'. |
| |
'<td>'.$lt{'avat'}.'</td><td>'.$lt{'dedi'}.'</td>'. |
| |
'<td>'.$lt{'lare'}.'</td>'); |
| |
if ($checkallowed->{'resetcounters'}) { |
| |
$r->print('<td class="LC_right_item">'.$lt{'reco'}.'</td>'); |
| |
} |
| |
$r->print('</tr>'); |
| |
my $row; |
| |
foreach my $res (@{$warnings}) { |
| |
$row++; |
| |
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); |
| |
if ($$triggered{$res}{'enclink'}) { |
| |
$linkurl = |
| |
$$triggered{$res}{'enclink'}.'?symb='.$$triggered{$res}{'encsymb'}; |
| |
} |
| |
my $css_class = $row%2?' class="LC_odd_row"':''; |
| |
$r->print('<tr'.$css_class.'>'. |
| |
'<td class="LC_first_item" '.$rowspan.'><a href="'.$linkurl.'">'. |
| |
$$triggered{$res}{title}.'</a></td>'); |
| |
if (ref($$triggered{$res}{text}) eq 'ARRAY') { |
| |
$r->print($$triggered{$res}{text}[0]); |
| |
} |
| |
$r->print('</tr>'); |
| |
if (ref($$triggered{$res}{text}) eq 'ARRAY') { |
| |
if (@{$$triggered{$res}{text}} > 1) { |
| |
for (my $i=1; $i<@{$$triggered{$res}{text}}; $i++) { |
| |
$r->print('<tr '.$css_class.'>'. |
| |
$$triggered{$res}{text}[$i].'</tr>'); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
if ($checkallowed->{'resetcounters'}) { |
| |
$r->print('<tr class="LC_info_row"><td colspan="7" class="LC_right_item"><br /><input type="button" name="counters" value="'.$lt{'rese'}.'" onclick="javascript:thresholdreset();" /></td></tr>'); |
| |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_versionchanges { |
| |
my ($r,$changed,$res_title,$interval,$itemserror) = @_; |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'reso' => 'Resource', |
| |
'revd' => 'Last revised', |
| |
'newv' => 'New version', |
| |
'veru' => 'Version used', |
| |
); |
| |
if (keys(%{$changed}) > 0) { |
| |
$r->print('<tr class="LC_info_row"><td class="LC_left_item">'. |
| |
$lt{'reso'}.'</td><td>'.$lt{'revd'}.'</td><td>'. |
| |
$lt{'newv'}.'</td><td class="LC_right_item">'. |
| |
$lt{'veru'}.'</td></tr>'); |
| |
my @changes = sort { &cmp_title($a,$b,$res_title) } keys(%{$changed}); |
| |
my $changenum = 0; |
| |
foreach my $item (@changes) { |
| |
$changenum ++; |
| |
my $css_class = $changenum%2?' class="LC_odd_row"':''; |
| |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($item); |
| |
my $linkurl=&Apache::lonnet::clutter($url); |
| |
$linkurl .= '?symb='.&escape($item); |
| |
|
| |
$r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'. |
| |
$$res_title{$item}.'</a></td><td>'. |
| |
$$changed{$item}{'revdate'}.'</td><td>'. |
| |
$$changed{$item}{'current'}.'</td><td>'. |
| |
$$changed{$item}{'version'}.'</td></tr>'); |
| |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>' |
| |
.&mt('No '.$interval).'</td></tr>'); |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub display_rolechanges { |
| |
my ($r,$chgcount,$changed,$interval,$crstype,$classlist) = @_; |
| |
my $now = time(); |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'user' => 'User', |
| |
'tich' => 'Time of change', |
| |
'role' => 'Role', |
| |
'sec' => 'Section', |
| |
'status' => 'Status', |
| |
); |
| |
if ($chgcount) { |
| |
$r->print('<tr class="LC_info_row">'. |
| |
'<td class="LC_left_item">'.$lt{'tich'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'user'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'role'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'sec'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'status'}.'</td></tr>'); |
| |
if (ref($changed) eq 'HASH') { |
| |
my @changes = sort { $b <=> $a } (keys(%{$changed})); |
| |
my $changenum = 0; |
| |
my $fullnameidx = &Apache::loncoursedata::CL_FULLNAME(); |
| |
foreach my $item (@changes) { |
| |
if (ref($changed->{$item}) eq 'ARRAY') { |
| |
foreach my $chg (@{$changed->{$item}}) { |
| |
if (ref($chg) eq 'HASH') { |
| |
my $section; |
| |
my $role = |
| |
&Apache::lonnet::plaintext($chg->{'role'},$crstype); |
| |
my $status = &mt($chg->{'status'}); |
| |
if ($chg->{'section'} eq '') { |
| |
$section = &mt('none'); |
| |
} else { |
| |
$section = $chg->{'section'}; |
| |
} |
| |
my $uname = $chg->{'uname'}; |
| |
my $udom = $chg->{'udom'}; |
| |
$changenum ++; |
| |
my $css_class = $changenum%2?' class="LC_odd_row"':''; |
| |
my $fullname; |
| |
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { |
| |
$fullname = $classlist->{$uname.':'.$udom}->[$fullnameidx]; |
| |
} else { |
| |
$fullname = &Apache::loncommon::plainname($uname,$udom,'lastname'); |
| |
} |
| |
my $link = |
| |
&Apache::loncommon::aboutmewrapper($fullname,$uname,$udom); |
| |
$r->print('<tr'.$css_class.'>'. |
| |
'<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'. |
| |
'<td>'.$link.'</td>'. |
| |
'<td>'.$role.'</td>'. |
| |
'<td>'.$section.'</td>'. |
| |
'<td>'.$status.'</td></tr>'); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>' |
| |
.&mt('There are no '.$interval).'</td></tr>'); |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub display_activity { |
| |
my ($r,$context,$count,$details,$interval,$crstype,$classlist) = @_; |
| |
return unless (ref($classlist) eq 'HASH'); |
| |
my %lt = &Apache::lonlocal::texthash( |
| |
'user' => 'User', |
| |
'role' => 'Role', |
| |
'sec' => 'Section', |
| |
'number' => 'Total number of logins', |
| |
); |
| |
my $prefix = 'login'; |
| |
if ($context eq 'sessions') { |
| |
$lt{'number'} = &mt('Total number of active user sessions'); |
| |
$lt{'active'} = &mt('Last active'); |
| |
$prefix = 'session'; |
| |
} |
| |
if ($count) { |
| |
|
| |
my $hdr = '<tr class="LC_info_row" style="display:none" id="'.$prefix.'titledet">'. |
| |
'<td class="LC_left_item">'.$lt{'user'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'role'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'sec'}.'</td>'; |
| |
if ($context eq 'sessions') { |
| |
$hdr .= '<td class="LC_left_item">'.$lt{'active'}.'</td>'; |
| |
} |
| |
$hdr .= '</tr>'."\n". |
| |
'<tr class="LC_info_row" id="'.$prefix.'titlesum">'. |
| |
'<td class="LC_left_item">'.$lt{'number'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'role'}.'</td>'. |
| |
'<td class="LC_left_item">'.$lt{'sec'}; |
| |
my (%bylastname,%counts); |
| |
if (ref($details) eq 'HASH') { |
| |
my @items = sort { $b <=> $a } (keys(%{$details})); |
| |
my $num = 0; |
| |
my $fullnameidx = &Apache::loncoursedata::CL_FULLNAME(); |
| |
foreach my $item (@items) { |
| |
if (ref($details->{$item}) eq 'ARRAY') { |
| |
foreach my $user (@{$details->{$item}}) { |
| |
if (ref($user) eq 'HASH') { |
| |
my $section; |
| |
my $role = |
| |
&Apache::lonnet::plaintext($user->{'role'},$crstype); |
| |
if ($user->{'section'} eq '') { |
| |
$section = &mt('none'); |
| |
} else { |
| |
$section = $user->{'section'}; |
| |
} |
| |
$counts{$user->{'role'}}{$section} ++; |
| |
my $uname = $user->{'uname'}; |
| |
my $udom = $user->{'udom'}; |
| |
my $fullname; |
| |
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { |
| |
$fullname = $classlist->{$uname.':'.$udom}->[$fullnameidx]; |
| |
} else { |
| |
$fullname = &Apache::loncommon::plainname($uname,$udom,'lastname'); |
| |
} |
| |
my $link = |
| |
&Apache::loncommon::aboutmewrapper($fullname,$uname,$udom); |
| |
my $entry = '<td>'.$link.'</td>'. |
| |
'<td>'.$role.'</td>'. |
| |
'<td>'.$section.'</td>'; |
| |
if ($context eq 'sessions') { |
| |
$entry .= '<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'; |
| |
} |
| |
push(@{$bylastname{$fullname}},$entry); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
my $table; |
| |
foreach my $person (sort(keys(%bylastname))) { |
| |
if (ref($bylastname{$person}) eq 'ARRAY') { |
| |
foreach my $item (@{$bylastname{$person}}) { |
| |
$num ++; |
| |
my $css_class = $num%2?' class="LC_odd_row"':''; |
| |
$table .= '<tr'.$css_class.' style="display:none;" id="'.$prefix.'det_'.$num.'">'.$item.'</tr>'; |
| |
} |
| |
} |
| |
} |
| |
my $numrow = 0; |
| |
foreach my $role (sort(keys(%counts))) { |
| |
my $showrole = &Apache::lonnet::plaintext($role,$crstype); |
| |
if (ref($counts{$role}) eq 'HASH') { |
| |
foreach my $sec (sort { $b <=> $a } (keys(%{$counts{$role}}))) { |
| |
$numrow ++; |
| |
my $css_class = $numrow%2?' class="LC_odd_row"':''; |
| |
$table .= '<tr '.$css_class.' id="'.$prefix.'sum_'.$numrow.'">'. |
| |
'<td>'.$counts{$role}{$sec}.'</td>'. |
| |
'<td>'.$showrole.'</td>'. |
| |
'<td>'.$sec.'</td></tr>'; |
| |
} |
| |
} |
| |
} |
| |
$r->print($hdr.'<input type="hidden" name="'.$prefix.'count" value="'.$num. |
| |
'" /><input type="hidden" name="'.$prefix.'row" value="'.$numrow. |
| |
'" /></td></tr>'.$table); |
| |
} |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>'. |
| |
&mt('There are no '.$interval). |
| |
'<input type="hidden" name="'.$prefix.'count" value="'.$count. |
| |
'." /></td></tr>'); |
| |
} |
| |
return; |
| |
} |
| |
|
| |
sub display_coursediscussion { |
| |
my ($r,$newdiscussions,$unread,$countunread,$res_title,$itemserror) = @_; |
| |
my $lctype = lc(&Apache::loncommon::course_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', |
| |
); |
| |
if (@{$newdiscussions} > 0) { |
| |
$r->print('<tr class="LC_info_row"><td class="LC_left_item">'. |
| |
$lt{'loca'}.'</td><td>'. |
| |
$lt{'type'}.'</td>'); |
| |
if ($countunread eq 'on') { |
| |
$r->print('<td>'.$lt{'tmlp'}.'</td>'. |
| |
'<td class="LC_right_item">'.$lt{'numn'}.'</td>'); |
| |
} else { |
| |
$r->print('<td class="LC_right_item">'.$lt{'tmlp'}.'</td>'); |
| |
} |
| |
$r->print("</tr>\n"); |
| |
@{$newdiscussions} = sort { &cmp_title($a,$b,$res_title) } |
| |
@{$newdiscussions}; |
| |
my $rowNum = 0; |
| |
foreach my $ressymb (@{$newdiscussions}) { |
| |
$rowNum ++; |
| |
my $forum_title = $$unread{$ressymb}{'title'}; |
| |
my $type = 'Resource'; |
| |
my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); |
| |
my $disclink = $feedurl.'?symb='. &escape($$unread{$ressymb}{symb}); |
| |
if ($feedurl =~ /bulletinboard/) { |
| |
$type = 'Discussion Board'; |
| |
} |
| |
if ($$unread{$ressymb}{'enclink'}) { |
| |
$disclink = $$unread{$ressymb}{'enclink'}.'?symb='.$$unread{$ressymb}{'encsymb'}; |
| |
} |
| |
my $css_class = $rowNum%2?' class="LC_odd_row"':''; |
| |
my $lastpost = &Apache::lonnavmaps::timeToHumanString( |
| |
$$unread{$ressymb}{'lastpost'}); |
| |
$r->print('<tr'.$css_class.'><td><a href="'.$disclink.'">'.$forum_title.'</a> </td><td>'.&mt($type).' </td>'); |
| |
if ($countunread eq 'on') { |
| |
my $unreadnum = $$unread{$ressymb}{'unreadcount'}; |
| |
$r->print('<td>'.$lastpost.'</td><td class="LC_right_item">'. |
| |
$unreadnum.' </td>'); |
| |
} else { |
| |
$r->print('<td class="LC_right_item">'.$lastpost.'</td>'); |
| |
} |
| |
$r->print("</tr>\n"); |
| |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'noun'}.'</td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_coursenormalmail { |
| |
my ($r,$msgcount,$newmsgs) = @_; |
| |
my $lctype = lc(&Apache::loncommon::course_type()); |
| |
if ($msgcount > 0) { |
| |
$r->print('<tr class="LC_info_row"><td class="LC_left_item">'. |
| |
&mt('Number').'</td><td>'.&mt('Subject').'</td><td>'. |
| |
&mt('Sender').'</td><td class="LC_right_item">'. |
| |
&mt('Date/Time').'</td></tr>'); |
| |
my $mailcount = 0; |
| |
foreach my $msg (@{$newmsgs}) { |
| |
$mailcount ++; |
| |
my $css_class = $mailcount%2?' class="LC_odd_row"':''; |
| |
$r->print('<tr'.$css_class.'><td>'.$mailcount |
| |
.'. </td><td><a href="/adm/email?display=' |
| |
.$msg->{'msgid'}.'">' |
| |
.$msg->{'shortsub'}.'</a> </td><td> ' |
| |
.$msg->{'from'}.':'.$msg->{'fromdom'}.' </td><td>' |
| |
.$msg->{'sendtime'}.'</td></tr>'); |
| |
} |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>'. |
| |
&mt('No new '.$lctype.' messages').'</td></tr>'); |
| |
} |
| |
} |
| |
|
| |
sub display_coursecritmail { |
| |
my ($r,$critmsgcount,$critmsgs) = @_; |
| |
my $lctype = lc(&Apache::loncommon::course_type()); |
| |
if ($critmsgcount > 0) { |
| |
$r->print('<tr class="LC_info_row"><td class="LC_left_item">'. |
| |
&mt('Number').'</td><td>'.&mt('Subject').'</td><td>'. |
| |
&mt('Sender').'</td><td class="LC_right_item">'. |
| |
&mt('Date/Time').'</td></tr>'); |
| |
my $mailcount = 0; |
| |
foreach my $msg (@{$critmsgs}) { |
| |
$mailcount ++; |
| |
my $css_class = $mailcount%2?' class="LC_odd_row"':''; |
| |
$r->print('<tr'.$css_class.'><td>'.$mailcount. |
| |
'. </td><td><a href="/adm/email?folder=critical">'. |
| |
$msg->{'shortsub'}.'</a> </td><td> '. |
| |
$msg->{'from'}.':'.$msg->{'fromdom'}.' </td><td>'. |
| |
$msg->{'sendtime'}.'</td></tr>'); |
| |
} |
| |
} else { |
| |
$r->print('<tr class="LC_empty_row"><td>'. |
| |
&mt('No unread critical messages in '.$lctype). |
| |
'</td></tr>'); |
| |
} |
| } |
} |
| |
|
| sub cmp_title { |
sub cmp_title { |
| my ($atitle,$btitle) = (lc($_[0]->compTitle),lc($_[1]->compTitle)); |
my ($a,$b,$res_title) = @_; |
| |
my ($atitle,$btitle) = (lc($$res_title{$a}),lc($$res_title{$b})); |
| $atitle=~s/^\s*//; |
$atitle=~s/^\s*//; |
| $btitle=~s/^\s*//; |
$btitle=~s/^\s*//; |
| 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(&Apache::loncommon::course_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; |
| |
my $context = $env{'form.intervaltype'}; |
| |
if ($env{'form.interval'} ne '') { |
| |
if ($context eq 'oldroles') { |
| |
$interval_settings{$cid.':oldroleinterval'} = $env{'form.interval'}; |
| |
} elsif ($context eq 'newroles') { |
| |
$interval_settings{$cid.':newroleinterval'} = $env{'form.interval'}; |
| |
} elsif ($context eq 'crslogin') { |
| |
$interval_settings{$cid.':crslogininterval'} = $env{'form.interval'}; |
| |
} elsif ($context eq 'sessions') { |
| |
$interval_settings{$cid.':sessionactivity'} = $env{'form.interval'}; |
| |
} else { |
| |
$interval_settings{$cid.':interval'} = $env{'form.interval'}; |
| |
} |
| |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
| |
\%interval_settings,$udom,$uname); |
| |
if ($outcome eq 'ok') { |
| |
if (ref($interval_titles->{$context}) eq 'HASH') { |
| |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('New filter setting: [_1].','<b>'. |
| |
$interval_titles->{$context}->{$env{'form.interval'}}.'</b>').'<br />'); |
| |
} |
| |
} else { |
| |
my $lctype = lc(&Apache::loncommon::course_type()); |
| |
&Apache::lonnet::logthis('Error saving whatsnew '.$context.' interval setting'. |
| |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set interval to [_1] due to [_2].', |
| |
'<b>'.$interval_titles->{$context}->{$env{'form.interval'}}.'</b>', |
| |
'<tt>'.$outcome.'</tt>'),1); |
| |
} |
| |
} |
| |
return &Apache::loncommon::confirmwrapper($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 = &Apache::lonhtmlcommon::confirm_success(&mt('Count unread posts in discussions display set to [_1]', |
| |
'<b>'.&mt($env{'form.countunread'}).'</b>').'<br />'); |
| |
|
| |
} else { |
| |
my $lctype = lc(&Apache::loncommon::course_type()); |
| |
&Apache::lonnet::logthis('Error saving whatsnew countunread setting'. |
| |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set "number unread posts display" to [_1]'. |
| |
' due to [_2].', |
| |
'<b>'.&mt($env{'form.countunread'}).'</b>', |
| |
'<tt>'.$outcome.'</tt>'),1); |
| |
} |
| |
} |
| |
return &Apache::loncommon::confirmwrapper($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(&Apache::loncommon::course_type()); |
| |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
| |
\%courseinit_settings,$udom,$uname); |
| |
if ($outcome eq 'ok') { |
| |
if ($page_control eq 'global preferences') { |
| |
$result = &Apache::lonhtmlcommon::confirm_success(&mt("Page displayed after role selection in $lctype now set by [_1]user's global preferences[_2].",'<b>','</b>')); |
| |
} else { |
| |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Page displayed after role selection in this '.$lctype.' set to [_1].' |
| |
,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>')); |
| |
} |
| |
} else { |
| |
&Apache::lonnet::logthis('Error saving whatsnew courseinit '. |
| |
'setting: '.$outcome.' for '.$uname. |
| |
':'.$udom.' in '.$lctype.' '.$cid); |
| |
if ($page_control eq 'global preferences') { |
| |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set control of page display to [_1]'. |
| |
' due to [_2].', |
| |
'<b>'.$page_control.'</b>', |
| |
'<tt>'.$outcome.'</tt>'),1); |
| |
} else { |
| |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set page display, after role selection, for this '.$lctype.' to [_1] due to [_2].' |
| |
,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>' |
| |
,'<tt>'.$outcome.'</tt>'),1); |
| |
} |
| |
} |
| |
} |
| |
} |
| |
return &Apache::loncommon::confirmwrapper($result); |
| |
} |
| |
|
| |
sub start_box { |
| |
my ($r,$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'".');">'. |
| |
&mt('Hide').'</a></b>'; |
| |
|
| |
} else { |
| |
$showhide = '<b><a href="javascript:change_display(document.visible.'. |
| |
'display_'.$caller.",'show'".');">'. |
| |
&mt('Show').'</a></b>'; |
| |
} |
| |
|
| |
$r->print(' |
| |
<table class="LC_nested_outer"> |
| |
<tr> |
| |
<th class="LC_left_item">'.$$heading{$caller}.'</th> |
| |
<th class="LC_right_item">'.$showhide.'</th> |
| |
</tr>'); |
| |
if (($caller eq 'abovethreshold') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'">'.$lt{'chth'}.'</a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif (($caller eq 'versionchanges') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif ($caller eq 'coursediscussion') { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'">'.$lt{'chop'}.'</a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif (($caller eq 'newroles') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgnewroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif (($caller eq 'oldroles') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgoldroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif (($caller eq 'crslogin') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td class="LC_subheader" align="left"><span class="LC_nobreak"><label><input type="radio" name="logindetails" value="0" checked="checked" onclick="javascript:toggledetails('."'login'".');" /> '.&mt('Summary').'</label><label><input type="radio" name="logindetails" value="1" onclick="javascript:toggledetails('."'login'".');" /> '.&mt('Details').'</label></span></td><td class="LC_subheader"><a href="/adm/whatsnew?command=chgcrslogininterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| |
</tr>'); |
| |
} |
| |
} elsif (($caller eq 'sessions') && ($$show{$caller})) { |
| |
if ($$show{$caller}) { |
| |
$r->print(' |
| |
<tr> |
| |
<td class="LC_subheader" align="left"><span class="LC_nobreak"><label><input type="radio" name="sessiondetails" value="0" checked="checked" onclick="javascript:toggledetails('."'session'".');" /> '.&mt('Summary').'</label><label><input type="radio" name="sessiondetails" value="1" onclick="javascript:toggledetails('."'session'".');" /> '.&mt('Details').'</label></span></td><td class="LC_subheader"><a href="/adm/whatsnew?command=chgsessionlimit&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| |
</tr>'); |
| |
} |
| |
} |
| |
$r->print(' |
| |
<tr> |
| |
<td colspan="2"> |
| |
<table class="LC_nested"> |
| |
'); |
| |
return; |
| |
} |
| |
|
| |
sub end_box { |
| |
my ($r) = shift; |
| |
$r->print(' |
| |
</table> |
| |
</td> |
| |
</tr> |
| |
</table><br />'); |
| |
return; |
| |
} |
| |
|
| |
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