|
version 1.80.2.2, 2008/12/17 19:22:00
|
version 1.126, 2020/03/30 11:04:13
|
|
Line 42 use Time::Local;
|
Line 42 use Time::Local;
|
| use GDBM_File; |
use GDBM_File; |
| use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
| use LONCAPA; |
use LONCAPA; |
| |
use HTML::Entities; |
| |
|
| #---------------------------- |
#---------------------------- |
| # handler |
# handler |
|
Line 61 sub handler {
|
Line 62 sub handler {
|
| my $command = $env{'form.command'}; |
my $command = $env{'form.command'}; |
| my $refpage = $env{'form.refpage'}; |
my $refpage = $env{'form.refpage'}; |
| |
|
| my %checkallowed = ( coursenormalmail => 1, |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| coursecritmail => 1, ); |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| |
|
| |
my ($isadhoc,%checkallowed); |
| |
|
| |
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], |
foreach my $perm_check (['whn','whatsnew',1], |
| ['pch','coursediscussion',1], |
['pch','coursediscussion',1], |
| ['mgr','handgrading',1], |
['mgr','handgrading',1], |
| ['vgr','abovethreshold',1], |
['vgr','abovethreshold',1], |
| ['opa','haserrors',1], |
['vgr','haserrors',1], |
| ['mdc','versionchanges',0], |
['whn','versionchanges',1], |
| ['vcl','newroles',1], |
['vcl','newroles',1], |
| ['vcl','oldroles',1], |
['vcl','oldroles',1], |
| |
['whn','crslogin',1], |
| |
['vcl','sessions',1], |
| |
['mgr','resetcounters',1], |
| ) { |
) { |
| my ($perm,$key,$check_section) = @{ $perm_check }; |
my ($perm,$key,$check_section) = @{ $perm_check }; |
| my $scope = $env{'request.course.id'}; |
my $scope = $env{'request.course.id'}; |
|
Line 87 sub handler {
|
Line 109 sub handler {
|
| |
|
| if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) { |
if ( ! $env{'request.course.fn'} || ! $checkallowed{'whatsnew'}) { |
| # Not in a course, or no whn priv in course |
# Not in a course, or no whn priv in course |
| $env{'user.error.msg'}="/adm/whatsnew::whn:0:0:Cannot display what's new page"; |
$env{'user.error.msg'}="/adm/whatsnew:whn:0:0:Cannot display what's new page"; |
| return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
| } |
} |
| |
|
|
Line 99 sub handler {
|
Line 121 sub handler {
|
| &Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
| &Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
| ({href=>'/adm/whatsnew', |
({href=>'/adm/whatsnew', |
| text=>"Display Action Items"}); |
text=>"What's New?"}); |
| if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) { |
if (($command eq 'chgthreshold') && $checkallowed{'abovethreshold'}) { |
| &Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
| ({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, |
({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, |
|
Line 142 sub handler {
|
Line 164 sub handler {
|
| $r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| ("What's New?",#'Course_Action_Items_Intervals' |
("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 { |
} else { |
| $r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
| ("What's New?",#'Course_Action_Items_Display' |
("What's New?",#'Course_Action_Items_Display' |
| )); |
)); |
| } |
} |
| &display_main_box($r,$command,$refpage,\%checkallowed); |
&display_main_box($r,$command,$refpage,\%checkallowed,$cdom,$crs); |
| return OK; |
return OK; |
| } |
} |
| |
|
|
Line 158 sub handler {
|
Line 194 sub handler {
|
| #------------------------------ |
#------------------------------ |
| |
|
| sub display_main_box { |
sub display_main_box { |
| my ($r,$command,$refpage,$checkallowed) = @_; |
my ($r,$command,$refpage,$checkallowed,$cdom,$crs) = @_; |
| my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
| my $function = &Apache::loncommon::get_users_function(); |
my $function = &Apache::loncommon::get_users_function(); |
| my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = lc(&Apache::loncommon::course_type()); |
|
Line 187 sub display_main_box {
|
Line 223 sub display_main_box {
|
| 604800 => 'roles which expired since last week', |
604800 => 'roles which expired since last week', |
| 86400 => 'roles which expired since yesterday', |
86400 => 'roles which expired since yesterday', |
| ); |
); |
| |
my %crslogins = ( |
| |
-1 => 'last logins for anyone who has ever logged in', |
| |
2592000 => 'last logins for users in last 30 days', |
| |
604800 => 'last logins for users in last 7 days', |
| |
86400 => 'last logins for users in last 24 hours', |
| |
); |
| |
my %sessions = ( |
| |
300 => 'course sessions active in the last 5 minutes', |
| |
600 => 'course sessions active in the last 10 minutes', |
| |
1800 => 'course sessions active in the last 30 minutes', |
| |
7200 => 'course sessions active in the last 2 hours', |
| |
-7200 => 'course sessions with last activity more than 2 hours ago', |
| |
); |
| my %interval_titles = ( |
my %interval_titles = ( |
| versions => \%versions, |
versions => \%versions, |
| newroles => \%newroles, |
newroles => \%newroles, |
| oldroles => \%oldroles, |
oldroles => \%oldroles, |
| |
crslogin => \%crslogins, |
| |
sessions => \%sessions, |
| ); |
); |
| my %initpage = &Apache::lonlocal::texthash ( |
my %initpage = &Apache::lonlocal::texthash ( |
| firstres => "first resource in the $lctype", |
firstres => "first resource in the $lctype", |
| whatsnew => "what's new? page", |
whatsnew => "What's New Page", |
| userpref => 'your general user preferences', |
userpref => 'your general user preferences', |
| coursespecific => "specific setting for this $lctype", |
coursespecific => "specific setting for this $lctype", |
| ); |
); |
| my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
| my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
| |
|
| if (($command eq 'chgthreshold') |
if (($command eq 'chgthreshold') |
| && $checkallowed->{'abovethreshold'}) { |
&& $checkallowed->{'abovethreshold'}) { |
| &display_threshold_config($r,$refpage,\%threshold_titles, |
&display_threshold_config($r,$refpage,\%threshold_titles,$cdom,$crs); |
| $cdom,$crs); |
|
| } elsif (($command eq 'chginterval') |
} elsif (($command eq 'chginterval') |
| && $checkallowed->{'versionchanges'}) { |
&& $checkallowed->{'versionchanges'}) { |
| &display_interval_config($r,$refpage,\%interval_titles,'versions'); |
&display_interval_config($r,$refpage,\%interval_titles,'versions'); |
|
Line 219 sub display_main_box {
|
Line 267 sub display_main_box {
|
| } elsif (($command eq 'chgoldroleinterval') |
} elsif (($command eq 'chgoldroleinterval') |
| && $checkallowed->{'oldroles'}) { |
&& $checkallowed->{'oldroles'}) { |
| &display_interval_config($r,$refpage,\%interval_titles,'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,$command,$refpage,\%threshold_titles, |
&display_actions_box($r,$command,$refpage,\%threshold_titles, |
| \%interval_titles,\%initpage,$cdom,$crs,$checkallowed); |
\%interval_titles,\%initpage,$cdom,$crs,$checkallowed); |
|
Line 244 sub display_header {
|
Line 298 sub display_header {
|
| |
|
| my $scripttag; |
my $scripttag; |
| unless ($command eq 'chgthreshold' || $command eq 'chginterval' || |
unless ($command eq 'chgthreshold' || $command eq 'chginterval' || |
| $command eq 'chgoldroleinterval' || $command eq 'chgnewroleinterval') { |
$command eq 'chgoldroleinterval' || |
| |
$command eq 'chgnewroleinterval' || $command eq 'chgcrslogininterval') { |
| $scripttag = <<"END"; |
$scripttag = <<"END"; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| |
// <![CDATA[ |
| function change_display(caller,change) { |
function change_display(caller,change) { |
| caller.value = change; |
caller.value = change; |
| document.visible.submit(); |
document.visible.submit(); |
|
Line 261 END
|
Line 317 END
|
| "\n"; |
"\n"; |
| } |
} |
| } |
} |
| $scripttag.='document.visible.submit(); |
$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> |
</script> |
| '; |
ENDTOGG |
| } |
} |
| my $course_type=&Apache::loncommon::course_type(); |
my $course_type=&Apache::loncommon::course_type(); |
| return &Apache::loncommon::start_page($course_type.' Action Items', |
return &Apache::loncommon::start_page("What's New?", |
| $scripttag); |
$scripttag); |
| } |
} |
| |
|
|
Line 288 sub display_actions_box {
|
Line 396 sub display_actions_box {
|
| my $lctype = lc($crstype); |
my $lctype = lc($crstype); |
| my %stulabel = ( |
my %stulabel = ( |
| 'Course' => 'students', |
'Course' => 'students', |
| 'Group' => 'members', |
'Community' => 'members', |
| ); |
); |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| 'yacc' => 'You are accessing an invalid course', |
'yacc' => 'You are accessing an invalid course', |
|
Line 314 sub display_actions_box {
|
Line 422 sub display_actions_box {
|
| my %expired; |
my %expired; |
| my $activecount; |
my $activecount; |
| my %activated; |
my %activated; |
| |
my %loggedin; |
| |
my $logincount; |
| |
my %sessions; |
| |
my $sessioncount; |
| my %res_title = (); |
my %res_title = (); |
| my %show = (); |
my %show = (); |
| my $needitems = 0; |
my $needitems = 0; |
|
Line 327 sub display_actions_box {
|
Line 439 sub display_actions_box {
|
| my %threshold = (); |
my %threshold = (); |
| my %pagedesc = &Apache::lonlocal::texthash ( |
my %pagedesc = &Apache::lonlocal::texthash ( |
| firstres => 'First resource', |
firstres => 'First resource', |
| whatsnew => "What's New? page", |
whatsnew => "What's New Page", |
| userpref => 'user preference', |
userpref => 'user preference', |
| coursespecific => $lctype.' only', |
coursespecific => $lctype.' only', |
| default => 'default', |
default => 'default', |
|
Line 341 sub display_actions_box {
|
Line 453 sub display_actions_box {
|
| return; |
return; |
| } |
} |
| |
|
| |
my $header = ''; |
| if ($refpage eq 'start') { |
if ($refpage eq 'start') { |
| if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
if (tie(my %bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
| &GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
| my $furl=$bighash{'first_url'}; |
my $furl=&HTML::Entities::encode($bighash{'first_url'},'"<>&'); |
| untie(%bighash); |
untie(%bighash); |
| $r->print('<span style="font-size: larger;"><a href="'.$furl.'">'.$lt{'gtfr'}. |
$header .= '<b><a href="'.$furl.'">'.$lt{'gtfr'}. |
| '</a></span><br />'); |
'</a></b><br />'; |
| } |
} |
| } |
} |
| $r->print(&mt('Page set to be displayed after you have selected a role in this '.$lctype).'.' |
$header .= &mt('Page set to be displayed after you have selected a role in this '.$lctype).'.' |
| .' <span class="LC_nobreak">' |
.' <span class="LC_nobreak">' |
| .&mt('Currently: [_1].','<i>'.$currinit.'</i>') |
.&mt('Currently: [_1].','<i>'.$currinit.'</i>') |
| .' ' |
.' ' |
| .&mt('<b>Change</b> for just [_1]this course[_2]' |
.&mt('[_1]Change[_2] for just [_3]this '.$lctype.'[_4] or for [_5]all your courses/communities[_6].' |
| .' or for all [_3]your courses[_2].' |
,'<b>' |
| |
,'</b>' |
| ,'<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.'">' |
,'<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage.'">' |
| ,'</a>' |
,'</a>' |
| ,'<a href="/adm/preferences?action=changecourseinit&refpage='.$refpage.'">') |
,'<a href="/adm/preferences?action=changecourseinit&refpage='.$refpage.'">' |
| .' </span><br /><hr />'); |
,'</a>') |
| |
.' </span>'; |
| |
|
| |
$r->print(&Apache::loncommon::head_subbox($header)); |
| |
|
| if ($command eq 'reset') { |
if ($command eq 'reset') { |
| $result = &process_reset($cdom,$crs); |
$result = &process_reset($cdom,$crs,$checkallowed); |
| } elsif ($command eq 'update') { |
} elsif ($command eq 'update') { |
| $result = &process_update($uname,$udom,$threshold_titles); |
$result = &process_update($uname,$udom,$threshold_titles); |
| } elsif ($command eq 'newinterval') { |
} elsif ($command eq 'newinterval') { |
|
Line 376 sub display_actions_box {
|
Line 493 sub display_actions_box {
|
| unless ($store_result eq 'ok') { |
unless ($store_result eq 'ok') { |
| &Apache::lonnet::logthis('Error saving whatsnew settings: '. |
&Apache::lonnet::logthis('Error saving whatsnew settings: '. |
| $store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
$store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| $result .= &mt('Unable to save visibility settings due to [_1]', |
$result .= '<span class="LC_error">' |
| $store_result); |
.&mt('Unable to save visibility settings due to [_1]', |
| |
$store_result) |
| |
.'</span>'; |
| } |
} |
| |
|
| if ($result) { |
if ($result) { |
| $r->print($result.'<hr width="100%" />'); |
$r->print($result.'<hr />'); |
| } |
} |
| $r->rflush(); |
$r->rflush(); |
| |
|
|
Line 437 sub display_actions_box {
|
Line 556 sub display_actions_box {
|
| $headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since yesterday'); |
$headings{'newroles'} = &mt('Roles for which access to '.$lctype.' has become available since yesterday'); |
| } |
} |
| |
|
| my $now = time; |
$timediff{'crslogin'} = $display_settings{$cid.':crslogininterval'}; |
| |
unless (defined($timediff{'crslogin'})) { $timediff{'crslogin'} = 604800; } |
| |
$interval{'crslogin'} = $interval_titles->{'crslogin'}->{$timediff{'crslogin'}}; |
| |
|
| |
if ($timediff{'crslogin'} == -1) { |
| |
$headings{'crslogin'} = &mt('Last login for anyone who has ever logged in'); |
| |
} 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) { |
if ($timediff{'versions'} == -1) { |
| $timediff{'versions'} = time; |
$starttime = 0; |
| |
} else { |
| |
$starttime = $now - $timediff{'versions'}; |
| } |
} |
| my $starttime = $now - $timediff{'versions'}; |
|
| |
|
| if ($timediff{'newroles'} == -1) { |
if ($timediff{'newroles'} == -1) { |
| $timediff{'newroles'} = time; |
$activatedstart = 0; |
| |
} else { |
| |
$activatedstart = $now - $timediff{'newroles'}; |
| } |
} |
| my $activatedstart = $now - $timediff{'newroles'}; |
|
| |
|
| if ($timediff{'oldroles'} == -1) { |
if ($timediff{'oldroles'} == -1) { |
| $timediff{'oldroles'} = time; |
$expiredstart = 0; |
| |
} else { |
| |
$expiredstart = $now - $timediff{'oldroles'}; |
| |
} |
| |
|
| |
if ($timediff{'crslogin'} == -1) { |
| |
$crsloginstart = 0; |
| |
} else { |
| |
$crsloginstart = $now - $timediff{'crslogin'}; |
| } |
} |
| my $expiredstart = $now - $timediff{'oldroles'}; |
|
| |
|
| my $countunread = $display_settings{$cid.':countunread'}; |
my $countunread = $display_settings{$cid.':countunread'}; |
| unless (defined($countunread)) { |
unless (defined($countunread)) { |
|
Line 466 sub display_actions_box {
|
Line 626 sub display_actions_box {
|
| $threshold{'av_attempts'},$threshold{'degdiff'}, |
$threshold{'av_attempts'},$threshold{'degdiff'}, |
| '<br />',$threshold{'numstudents'}); |
'<br />',$threshold{'numstudents'}); |
| |
|
| my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail','newroles','oldroles'); |
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})) { |
foreach my $key (keys(%{$checkallowed})) { |
| if ($key =~ /_section$/) { next; } |
if ($key =~ /_section$/) { next; } |
|
Line 488 sub display_actions_box {
|
Line 661 sub display_actions_box {
|
| } |
} |
| } |
} |
| |
|
| |
my $itemserror; |
| if ($needitems) { |
if ($needitems) { |
| &getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread); |
$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'}) { |
if ($show{'coursenormalmail'}) { |
| $msgcount = &getnormalmail(\@newmsgs); |
$msgcount = &getnormalmail(\@newmsgs); |
|
Line 498 sub display_actions_box {
|
Line 676 sub display_actions_box {
|
| $critmsgcount = &getcritmail(\@critmsgs); |
$critmsgcount = &getcritmail(\@critmsgs); |
| } |
} |
| if ($show{'oldroles'}) { |
if ($show{'oldroles'}) { |
| $expirecount = &getexpired(\%expired,$expiredstart,'previous'); |
$expirecount = &getexpired(\%expired,$expiredstart,'previous',$classlist); |
| } |
} |
| if ($show{'newroles'}) { |
if ($show{'newroles'}) { |
| $activecount = &getactivated(\%activated,$activatedstart,'active'); |
$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> |
$r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a> |
| <a href="javascript:changeAll('show');">$lt{'shal'}</a> |
<a href="javascript:changeAll('show');">$lt{'shal'}</a> |
|
Line 513 sub display_actions_box {
|
Line 697 sub display_actions_box {
|
| } |
} |
| } |
} |
| |
|
| $r->print('<input type="hidden" name="refpage" value="'.$refpage.'" /></form><table class="LC_double_column"><tr><td class="LC_left_col">'); |
$r->print('<input type="hidden" name="refpage" value="'.$refpage.'" /><table class="LC_double_column"><tr><td class="LC_left_col">'); |
| |
|
| my $displayed = 0; |
my $displayed = 0; |
| my $totalboxes = 0; |
my $totalboxes = 0; |
|
Line 524 sub display_actions_box {
|
Line 708 sub display_actions_box {
|
| $totalboxes ++; |
$totalboxes ++; |
| } |
} |
| } |
} |
| my $halfway = 4; |
my $currcolumn = 'left'; |
| # my $halfway = int($totalboxes/2) + $totalboxes%2; |
# my $halfway = int($totalboxes/2) + $totalboxes%2; |
| foreach my $actionitem (@actionorder) { |
foreach my $actionitem (@actionorder) { |
| if ($$checkallowed{$actionitem}) { |
if ($checkallowed->{$actionitem}) { |
| if ($displayed == $halfway) { |
if (($actioncolumn{$actionitem} eq 'right') && ($currcolumn eq 'left')) { |
| $r->print('</td><td> </td><td class="LC_right_col" >'); |
$r->print('</td><td> </td><td class="LC_right_col" >'); |
| |
$currcolumn = 'right'; |
| } |
} |
| &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); |
&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); |
| $displayed ++; |
$displayed ++; |
| } |
} |
| } |
} |
|
Line 539 sub display_actions_box {
|
Line 724 sub display_actions_box {
|
| </td> |
</td> |
| </tr> |
</tr> |
| </table> |
</table> |
| |
</form> |
| '); |
'); |
| } |
} |
| |
|
|
Line 577 sub display_threshold_config {
|
Line 763 sub display_threshold_config {
|
| foreach my $type (@thresholditems) { |
foreach my $type (@thresholditems) { |
| my $parameter = $env{'request.course.id'}.':threshold_'.$type; |
my $parameter = $env{'request.course.id'}.':threshold_'.$type; |
| # onchange is javascript to automatically check the 'Set' button. |
# onchange is javascript to automatically check the 'Set' button. |
| my $onchange = 'onFocus="javascript:window.document.forms'. |
my $onchange = 'onfocus="javascript:window.document.forms'. |
| "['thresholdform'].elements['".$parameter."_setparmval']". |
"['thresholdform'].elements['".$parameter."_setparmval']". |
| '.checked=true;"'; |
'.checked=true;"'; |
| $r->print(&Apache::loncommon::start_data_table_row()."\n". |
$r->print(&Apache::loncommon::start_data_table_row()."\n". |
|
Line 591 sub display_threshold_config {
|
Line 777 sub display_threshold_config {
|
| &Apache::loncommon::end_data_table_row()); |
&Apache::loncommon::end_data_table_row()); |
| } |
} |
| $r->print(&Apache::loncommon::end_data_table()."\n". |
$r->print(&Apache::loncommon::end_data_table()."\n". |
| '<br /><input type="submit" name="threshold" value="'.&mt('Make changes').'" /> |
'<br /><input type="submit" name="threshold" value="'.&mt('Save').'" /> |
| <input type="hidden" name="command" value="update" /> |
<input type="hidden" name="command" value="update" /> |
| <input type="hidden" name="refpage" value="'.$refpage.'" /> |
<input type="hidden" name="refpage" value="'.$refpage.'" /> |
| </form>'); |
</form>'); |
|
Line 611 sub display_interval_config {
|
Line 797 sub display_interval_config {
|
| $setting = 'oldroleinterval'; |
$setting = 'oldroleinterval'; |
| } elsif ($context eq 'newroles') { |
} elsif ($context eq 'newroles') { |
| $setting = 'newroleinterval'; |
$setting = 'newroleinterval'; |
| |
} elsif ($context eq 'sessions') { |
| |
$setting = 'sessionactivity'; |
| } |
} |
| my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = lc(&Apache::loncommon::course_type()); |
| my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
|
Line 619 sub display_interval_config {
|
Line 807 sub display_interval_config {
|
| $r->print('<br />'.&mt('Choose the time window to use to display roles for which access to the '.$lctype.' expired.').'<br />'); |
$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') { |
} 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 />'); |
$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 { |
} else { |
| $r->print('<br />'.&mt('Choose the time window to use to display resources in the '.$lctype.' with version changes.').'<br />'); |
$r->print('<br />'.&mt('Choose the time window to use to display resources in the '.$lctype.' with version changes.').'<br />'); |
| } |
} |
|
Line 639 sub display_interval_config {
|
Line 831 sub display_interval_config {
|
| '); |
'); |
| if (ref($interval_titles) eq 'HASH') { |
if (ref($interval_titles) eq 'HASH') { |
| if (ref($interval_titles->{$context}) eq 'HASH') { |
if (ref($interval_titles->{$context}) eq 'HASH') { |
| foreach my $key (reverse sort ({$a cmp $b} (keys(%{$interval_titles->{$context}})))) { |
my @sorted; |
| |
if ($context eq 'sessions') { |
| |
@sorted = sort { $a <=> $b } (keys(%{$interval_titles->{$context}})); |
| |
push(@sorted,shift(@sorted)); |
| |
} else { |
| |
@sorted = reverse sort ({$a cmp $b} (keys(%{$interval_titles->{$context}}))); |
| |
} |
| |
foreach my $key (@sorted) { |
| $r->print('<option value="'.$key.'">'.&mt($interval_titles->{$context}->{$key}). |
$r->print('<option value="'.$key.'">'.&mt($interval_titles->{$context}->{$key}). |
| '</option>'."\n"); |
'</option>'."\n"); |
| } |
} |
|
Line 647 sub display_interval_config {
|
Line 846 sub display_interval_config {
|
| } |
} |
| $r->print('</select> |
$r->print('</select> |
| <input type="submit" name="display" value="'. |
<input type="submit" name="display" value="'. |
| &mt('Change interval').'" /></form>'); |
&mt('Save').'" /></form>'); |
| return; |
return; |
| } |
} |
| |
|
|
Line 677 function toggle_countunread(choice) {
|
Line 876 function toggle_countunread(choice) {
|
| document.discussionswitch.submit(); |
document.discussionswitch.submit(); |
| } |
} |
| </script>'); |
</script>'); |
| $r->print('<br />'.&mt('Choose whether or not to display a count of the number of new posts for each resource or bulletin board which has unread posts.').'<br />'.&mt("This can increase the time taken to gather data for the '<i>What's New?</i>' page by a few seconds.").' '.&mt("Currently set to <b>$current</b>.")); |
$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 /> |
$r->print('<br /><br /> |
| <form method="post" name="discussionswitch" action="/adm/whatsnew"> |
<form method="post" name="discussionswitch" action="/adm/whatsnew"> |
| <input type="hidden" name="command" value="newdiscconf" /> |
<input type="hidden" name="command" value="newdiscconf" /> |
|
Line 716 sub courseinit_config {
|
Line 921 sub courseinit_config {
|
| 'anis' => 'and is set to display', |
'anis' => 'and is set to display', |
| 'padc' => 'Page display controlled by', |
'padc' => 'Page display controlled by', |
| 'chce' => 'Choose '.$lctype.' entry', |
'chce' => 'Choose '.$lctype.' entry', |
| 'moce' => 'Modify '.$lctype.' entry', |
'moce' => 'Save', |
| ); |
); |
| $r->print(<<"END"); |
$r->print(<<"END"); |
| <br />$lt{'chwp'} |
<br />$lt{'chwp'} |
|
Line 778 sub display_launcher {
|
Line 983 sub display_launcher {
|
| $tograde,$ungraded,$bombs,$bombed,$changed,$warnings,$triggered, |
$tograde,$ungraded,$bombs,$bombed,$changed,$warnings,$triggered, |
| $newdiscussions,$unread,$msgcount,$newmsgs,$critmsgcount,$critmsgs, |
$newdiscussions,$unread,$msgcount,$newmsgs,$critmsgcount,$critmsgs, |
| $interval,$countunread,$expired,$expirecount,$activated,$activecount, |
$interval,$countunread,$expired,$expirecount,$activated,$activecount, |
| $crstype) = @_; |
$crstype,$itemserror,$loggedin,$logincount,$sessions,$sessioncount, |
| |
$classlist) = @_; |
| |
|
| if ($$checkallowed{$action}) { |
if ($$checkallowed{$action}) { |
| &start_box($r,$show,$headings,$action,$refpage,$action); |
&start_box($r,$show,$headings,$action,$refpage); |
| if ($$show{$action}) { |
if ($$show{$action}) { |
| if ($action eq 'handgrading') { # UNGRADED ITEMS |
if ($action eq 'handgrading') { # UNGRADED ITEMS |
| &display_handgrade($r,$tograde,$ungraded); |
&display_handgrade($r,$tograde,$ungraded,$itemserror); |
| } elsif ($action eq 'haserrors') { # BOMBS |
} elsif ($action eq 'haserrors') { # BOMBS |
| &display_haserrors($r,$bombs,$bombed,$res_title); |
&display_haserrors($r,$bombs,$bombed,$res_title,$itemserror); |
| } elsif ($action eq 'versionchanges') { # VERSION CHANGES |
} elsif ($action eq 'versionchanges') { # VERSION CHANGES |
| &display_versionchanges($r,$changed,$res_title,$interval->{'versions'}); |
&display_versionchanges($r,$changed,$res_title,$interval->{'versions'},$itemserror); |
| } elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS |
} elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS |
| &display_abovethreshold($r,$refpage,$warnings,$triggered, |
&display_abovethreshold($r,$refpage,$warnings,$triggered, |
| $res_title); |
$res_title,$itemserror,$checkallowed); |
| } elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION |
} elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION |
| &display_coursediscussion($r,$newdiscussions,$unread, |
&display_coursediscussion($r,$newdiscussions,$unread, |
| $countunread,$res_title); |
$countunread,$res_title,$itemserror); |
| } elsif ($action eq 'coursenormalmail') { # NORMAL MESSAGES |
} elsif ($action eq 'coursenormalmail') { # NORMAL MESSAGES |
| &display_coursenormalmail($r,$msgcount,$newmsgs); |
&display_coursenormalmail($r,$msgcount,$newmsgs); |
| } elsif ($action eq 'coursecritmail') { # CRITICAL MESSAGES |
} elsif ($action eq 'coursecritmail') { # CRITICAL MESSAGES |
| &display_coursecritmail($r,$critmsgcount,$critmsgs); |
&display_coursecritmail($r,$critmsgcount,$critmsgs); |
| } elsif ($action eq 'newroles') { # ACTIVATED ROLES |
} elsif ($action eq 'newroles') { # ACTIVATED ROLES |
| &display_rolechanges($r,$activecount,$activated,$interval->{'newroles'}, |
&display_rolechanges($r,$activecount,$activated,$interval->{'newroles'}, |
| $crstype); |
$crstype,$classlist); |
| } elsif ($action eq 'oldroles') { # EXPIRED ROLES |
} elsif ($action eq 'oldroles') { # EXPIRED ROLES |
| &display_rolechanges($r,$expirecount,$expired,$interval->{'oldroles'}, |
&display_rolechanges($r,$expirecount,$expired,$interval->{'oldroles'}, |
| $crstype); |
$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); |
&end_box($r); |
|
Line 815 sub display_launcher {
|
Line 1027 sub display_launcher {
|
| sub getitems { |
sub getitems { |
| my ($unread,$ungraded,$bombed,$triggered,$changed,$newdiscussions, |
my ($unread,$ungraded,$bombed,$triggered,$changed,$newdiscussions, |
| $tograde,$bombs,$warnings,$threshold,$cdom,$crs,$res_title,$show, |
$tograde,$bombs,$warnings,$threshold,$cdom,$crs,$res_title,$show, |
| $starttime,$countunread) = @_; |
$starttime,$countunread,$checkallowed) = @_; |
| my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| |
if (!defined($navmap)) { |
| |
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>'; |
| |
return $itemserror; |
| |
} |
| # force retrieve Resource to seed the part id cache we'll need it later |
# force retrieve Resource to seed the part id cache we'll need it later |
| my @allres=$navmap->retrieveResources(undef, |
my @allres=$navmap->retrieveResources(undef, |
| sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;}); |
sub {if ($_[0]->is_problem) { $_[0]->parts();} return 1;}); |
|
Line 871 sub getitems {
|
Line 1087 sub getitems {
|
| # Maxtries and degree of difficulty for problem parts, unless handgradeable |
# Maxtries and degree of difficulty for problem parts, unless handgradeable |
| if ($$show{'abovethreshold'}) { |
if ($$show{'abovethreshold'}) { |
| &check_thresholds($resource,$symb,\%resourcetracker, |
&check_thresholds($resource,$symb,\%resourcetracker, |
| $triggered,$threshold,$warnings); |
$triggered,$threshold,$warnings, |
| |
$checkallowed); |
| } |
} |
| |
|
| } |
} |
| |
return; |
| } |
} |
| |
|
| sub check_discussions { |
sub check_discussions { |
|
Line 944 sub check_bombed {
|
Line 1161 sub check_bombed {
|
| } |
} |
| |
|
| sub check_thresholds { |
sub check_thresholds { |
| my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings) = @_; |
my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings, |
| |
$checkallowed) = @_; |
| # Compile maxtries and degree of difficulty for problem parts, unless handgradeable |
# Compile maxtries and degree of difficulty for problem parts, unless handgradeable |
| my @parts = @{$resource->parts()}; |
my @parts = @{$resource->parts()}; |
| my %stats; |
my %stats; |
|
Line 954 sub check_thresholds {
|
Line 1172 sub check_thresholds {
|
| if ($resource->handgrade($part) eq 'yes') { |
if ($resource->handgrade($part) eq 'yes') { |
| next; |
next; |
| } |
} |
| |
if ($resource->is_anonsurvey($part)) { |
| |
next; |
| |
} |
| if ($resource->is_survey($part)) { |
if ($resource->is_survey($part)) { |
| next; |
next; |
| } |
} |
|
Line 976 sub check_thresholds {
|
Line 1197 sub check_thresholds {
|
| $av_attempts = $attempts/$users; |
$av_attempts = $attempts/$users; |
| $av_attempts = sprintf("%.2f",$av_attempts); |
$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'})) { |
if ((($degdiff ne '' && $degdiff >= $$threshold{'degdiff'}) || ($av_attempts ne '' && $av_attempts >= $$threshold{'av_attempts'})) && ($users >= $$threshold{'numstudents'})) { |
| $stats{$part}{degdiff} = $degdiff; |
$stats{$part}{degdiff} = $degdiff; |
| $stats{$part}{attempts} = $av_attempts; |
$stats{$part}{attempts} = $av_attempts; |
|
Line 1006 sub check_thresholds {
|
Line 1228 sub check_thresholds {
|
| <td>'.$stats{$part}{users}.'</td> |
<td>'.$stats{$part}{users}.'</td> |
| <td>'.$stats{$part}{attempts}.'</td> |
<td>'.$stats{$part}{attempts}.'</td> |
| <td>'.$stats{$part}{degdiff}.'</td> |
<td>'.$stats{$part}{degdiff}.'</td> |
| <td>'.$lastreset{$part}.'</td> |
<td>'.$lastreset{$part}.'</td>'; |
| <td><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></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>'; |
| |
} |
| $partcount ++; |
$partcount ++; |
| } |
} |
| $$triggered{$symb}{numparts} = $partcount; |
$$triggered{$symb}{numparts} = $partcount; |
|
Line 1029 sub get_curr_thresholds {
|
Line 1255 sub get_curr_thresholds {
|
| my $thresholdcount = 0; |
my $thresholdcount = 0; |
| my ($tmp) = %thresholdsettings; |
my ($tmp) = %thresholdsettings; |
| unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
| foreach my $item (keys %{$threshold}) { |
foreach my $item (keys(%{$threshold})) { |
| if (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
if (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
| $$threshold{$item} = |
$$threshold{$item} = |
| $thresholdsettings{$cid.':threshold_'.$item}; |
$thresholdsettings{$cid.':threshold_'.$item}; |
|
Line 1044 sub get_curr_thresholds {
|
Line 1270 sub get_curr_thresholds {
|
| $cdom,$crs,'internal.threshold'); |
$cdom,$crs,'internal.threshold'); |
| my ($temp) = %coursesettings; |
my ($temp) = %coursesettings; |
| unless ($temp =~ /^(con_lost|error|no_such_host)/i) { |
unless ($temp =~ /^(con_lost|error|no_such_host)/i) { |
| foreach my $item (keys %{$threshold}) { |
foreach my $item (keys(%{$threshold})) { |
| unless (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
unless (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
| if (exists($coursesettings{'internal.threshold_'.$item})) { |
if (exists($coursesettings{'internal.threshold_'.$item})) { |
| $$threshold{$item} = |
$$threshold{$item} = |
|
Line 1069 sub get_current {
|
Line 1295 sub get_current {
|
| } |
} |
| |
|
| sub process_reset { |
sub process_reset { |
| my ($dom,$crs) = @_; |
my ($dom,$crs,$checkallowed) = @_; |
| |
if (!$checkallowed->{'resetcounters'}) { |
| |
return '<b>'.&mt('You do not have the required privileges to reset counters'). |
| |
'</b><br />'; |
| |
} |
| my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). |
my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). |
| '</b><br />'; |
'</b><br />'; |
| my @agg_types = ('attempts','users','correct'); |
my @agg_types = ('attempts','users','correct'); |
|
Line 1110 sub process_reset {
|
Line 1340 sub process_reset {
|
| |
|
| sub process_update { |
sub process_update { |
| my ($uname,$udom,$threshold_titles) = @_; |
my ($uname,$udom,$threshold_titles) = @_; |
| my $setoutput = '<b>'.&mt('Changes to threshold(s) for problem tracking:').'</b><br />'; |
my $setoutput = '<b>'.&mt('Changes to threshold(s) for problem tracking:').'</b><br/><br />'; |
| foreach (keys %env) { |
foreach my $key (keys(%env)) { |
| next if ($_!~/^form\.(.+)\_setparmval$/); |
my $name; |
| my $name = $1; |
if ($key =~/^form\.(.+)\_setparmval$/) { |
| |
$name = $1; |
| |
} else { |
| |
next; |
| |
} |
| my $value = $env{'form.'.$name.'_value'}; |
my $value = $env{'form.'.$name.'_value'}; |
| if ($name && defined($value) && ($value ne '')) { |
if ($name && defined($value) && ($value ne '')) { |
| my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
|
Line 1121 sub process_update {
|
Line 1355 sub process_update {
|
| |
|
| my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E:threshold_(.+)$/); |
my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E:threshold_(.+)$/); |
| if ($put_result eq 'ok') { |
if ($put_result eq 'ok') { |
| $setoutput.=&mt('Set threshold for [_1] to [_2]', |
$setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Set threshold for [_1] to [_2]', |
| '<b>'.$$threshold_titles{$shortname}.'</b>', |
'<b>'.$$threshold_titles{$shortname}.'</b>', |
| '<b>'.$value.'</b>').'<br />'; |
'<b>'.$value.'</b>').'<br />'); |
| } else { |
} else { |
| $setoutput.=&mt('Unable to set threshold for [_1] to [_2] due to [_3].', |
$setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set threshold for [_1] to [_2] due to [_3].', |
| '<b>'.$name.'</b>','<b>'.$value.'</b>', |
'<b>'.$name.'</b>','<b>'.$value.'</b>', |
| '<tt>'.$put_result.'</tt>').'<br />'; |
'<tt>'.$put_result.'</tt>').'<br />',1); |
| } |
} |
| } |
} |
| } |
} |
| return $setoutput; |
return &Apache::loncommon::confirmwrapper($setoutput); |
| } |
} |
| |
|
| sub getnormalmail { |
sub getnormalmail { |
| my ($newmsgs) = @_; |
my ($newmsgs) = @_; |
| # Check for unread mail in course |
# Check for unread messages in user's INBOX (which were sent in context of current course). |
| my $msgcount = 0; |
my $msgcount = 0; |
| |
my @messages = &Apache::lonnet::getkeys('nohist_email'); |
| my @messages = sort(&Apache::lonnet::getkeys('nohist_email')); |
return $msgcount if (!@messages); |
| foreach my $message (@messages) { |
my %emailstatus = &Apache::lonnet::dump('email_status'); |
| my $msgid=&escape($message); |
foreach my $msgid (sort(@messages)) { |
| my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) { |
| &Apache::lonmsg::unpackmsgid($msgid); |
my $skipstatus; |
| if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
if ($emailstatus{$msgid} eq 'new') { |
| if (defined($sendtime) && $sendtime!~/error/) { |
$skipstatus = 1; |
| my $numsendtime = $sendtime; |
} |
| $sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
my $esc_msgid = &escape($msgid); |
| if ($status eq 'new') { |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
| $msgcount ++; |
&Apache::lonmsg::unpackmsgid($esc_msgid,undef,$skipstatus,undef, |
| if ($shortsubj eq '') { |
$env{'request.course.id'}); |
| $shortsubj = &mt('No subject'); |
if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
| |
if (defined($sendtime) && $sendtime!~/error/) { |
| |
if (($emailstatus{$msgid} eq 'new') || ($status eq 'new')) { |
| |
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
| |
$msgcount ++; |
| |
if ($shortsubj eq '') { |
| |
$shortsubj = &mt('No subject'); |
| |
} |
| |
push(@{$newmsgs}, { |
| |
msgid => $esc_msgid, |
| |
sendtime => $sendtime, |
| |
shortsub => $shortsubj, |
| |
from => $fromname, |
| |
fromdom => $fromdom |
| |
}); |
| } |
} |
| push(@{$newmsgs}, { |
|
| msgid => $msgid, |
|
| sendtime => $sendtime, |
|
| shortsub => $shortsubj, |
|
| from => $fromname, |
|
| fromdom => $fromdom |
|
| }); |
|
| } |
} |
| } |
} |
| } |
} |
|
Line 1169 sub getnormalmail {
|
Line 1410 sub getnormalmail {
|
| |
|
| sub getcritmail { |
sub getcritmail { |
| my ($critmsgs) = @_; |
my ($critmsgs) = @_; |
| # Check for critical messages in course |
# 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 $esc_msgid = &escape($msgid); |
| my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
| &Apache::lonmsg::unpackmsgid($msgid); |
&Apache::lonmsg::unpackmsgid($esc_msgid,undef,1,undef, |
| |
$env{'request.course.id'}); |
| if (($fromcid) && ($fromcid eq $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 '') { |
if ($shortsubj eq '') { |
| $shortsubj = &mt('No subject'); |
$shortsubj = &mt('No subject'); |
| } |
} |
| push(@{$critmsgs}, { |
push(@{$critmsgs}, { |
| msgid => $msgid, |
msgid => $esc_msgid, |
| sendtime => $sendtime, |
sendtime => $sendtime, |
| shortsub => $shortsubj, |
shortsub => $shortsubj, |
| from => $fromname, |
from => $fromname, |
|
Line 1198 sub getcritmail {
|
Line 1440 sub getcritmail {
|
| } |
} |
| |
|
| sub getexpired { |
sub getexpired { |
| my ($rolechgs,$rolechgtime,$status) = @_; |
my ($rolechgs,$rolechgtime,$status,$classlist) = @_; |
| my $expirecount = &getrolechanges($rolechgs,$rolechgtime,$status); |
my $expirecount = &getrolechanges($rolechgs,$rolechgtime,$status,$classlist); |
| return $expirecount; |
return $expirecount; |
| } |
} |
| |
|
| sub getactivated { |
sub getactivated { |
| my ($rolechgs,$rolechgtime,$status) = @_; |
my ($rolechgs,$rolechgtime,$status,$classlist) = @_; |
| my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
| my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
| my $now = time(); |
my $now = time(); |
|
Line 1216 sub getactivated {
|
Line 1458 sub getactivated {
|
| my (%stucounted,%advcounted); |
my (%stucounted,%advcounted); |
| my $activatedcount = 0; |
my $activatedcount = 0; |
| if (keys(%changes) > 0) { |
if (keys(%changes) > 0) { |
| foreach my $chg (sort { $b <=> $a } (keys(%changes))) { |
foreach my $chg (keys(%changes)) { |
| if (ref($changes{$chg}) eq 'HASH') { |
if (ref($changes{$chg}) eq 'HASH') { |
| my $timestamp = $changes{$chg}{'exe_time'}; |
next if ($changes{$chg}{'delflag'}); |
| if ($timestamp) { |
if ($rolechgtime > 0) { |
| if ($rolechgtime > 0) { |
next if ($changes{$chg}{'exe_time'} < $rolechgtime); |
| if ($timestamp < $rolechgtime) { |
} |
| last; |
if ($changes{$chg}{'exe_time'}) { |
| } |
my $timestamp = $changes{$chg}{'exe_time'}; |
| } |
|
| if (ref($changes{$chg}{'logentry'}) eq 'HASH') { |
if (ref($changes{$chg}{'logentry'}) eq 'HASH') { |
| next if ($changes{$chg}{'delflag'}); |
|
| my $start = $changes{$chg}{'logentry'}{'start'}; |
|
| my $end = $changes{$chg}{'logentry'}{'end'}; |
my $end = $changes{$chg}{'logentry'}{'end'}; |
| my $section = $changes{$chg}{'logentry'}{'section'}; |
|
| my $role = $changes{$chg}{'logentry'}{'role'}; |
|
| my $uname = $changes{$chg}{'uname'}; |
|
| my $udom = $changes{$chg}{'udom'}; |
|
| next if ($end && $end <= $now); |
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 '')) { |
if (($viewablesec ne '') && ($section ne '')) { |
| next if ($viewablesec ne $section); |
next if ($viewablesec ne $section); |
| } |
} |
| next if ($start >= $timestamp); |
my $role = $changes{$chg}{'logentry'}{'role'}; |
| |
my $uname = $changes{$chg}{'uname'}; |
| |
my $udom = $changes{$chg}{'udom'}; |
| if ($role eq 'st') { |
if ($role eq 'st') { |
| $stucounted{$uname.':'.$udom.':'.$section} = $start.':'.$end; |
$stucounted{$uname.':'.$udom.':'.$section} = $start.':'.$end; |
| } else { |
} else { |
|
Line 1257 sub getactivated {
|
Line 1497 sub getactivated {
|
| } |
} |
| } |
} |
| } |
} |
| $activatedcount += &getrolechanges($rolechgs,$rolechgtime,$status,\%stucounted,\%advcounted); |
$activatedcount += &getrolechanges($rolechgs,$rolechgtime,$status,$classlist,\%stucounted, |
| |
\%advcounted); |
| return $activatedcount; |
return $activatedcount; |
| } |
} |
| |
|
| sub getrolechanges { |
sub getrolechanges { |
| my ($rolechgs,$rolechgtime,$status,$stucountref,$advcountref) = @_; |
my ($rolechgs,$rolechgtime,$status,$classlist,$stucountref,$advcountref) = @_; |
| my (%stucounted,%advcounted); |
my (%stucounted,%advcounted); |
| if (ref($stucountref) eq 'HASH') { |
if (ref($stucountref) eq 'HASH') { |
| %stucounted = %{$stucountref}; |
%stucounted = %{$stucountref}; |
|
Line 1280 sub getrolechanges {
|
Line 1521 sub getrolechanges {
|
| my ($permission,$allowed) = |
my ($permission,$allowed) = |
| &Apache::lonuserutils::get_permission($context); |
&Apache::lonuserutils::get_permission($context); |
| my $viewablesec = &Apache::lonuserutils::viewable_section($permission); |
my $viewablesec = &Apache::lonuserutils::viewable_section($permission); |
| my $classlist = &Apache::loncoursedata::get_classlist(); |
|
| my $secidx = &Apache::loncoursedata::CL_SECTION(); |
my $secidx = &Apache::loncoursedata::CL_SECTION(); |
| my $startidx = &Apache::loncoursedata::CL_START(); |
my $startidx = &Apache::loncoursedata::CL_START(); |
| my $endidx = &Apache::loncoursedata::CL_END(); |
my $endidx = &Apache::loncoursedata::CL_END(); |
| my $rolechgcount = 0; |
my $rolechgcount = 0; |
| foreach my $key (keys(%{$classlist})) { |
if (ref($classlist) eq 'HASH') { |
| my ($userstatus,$eventtime); |
foreach my $key (keys(%{$classlist})) { |
| my $student = $classlist->{$key}; |
my ($userstatus,$eventtime); |
| if (ref($student) eq 'ARRAY') { |
my $student = $classlist->{$key}; |
| my $start = $student->[$startidx]; |
if (ref($student) eq 'ARRAY') { |
| my $end = $student->[$endidx]; |
my $start = $student->[$startidx]; |
| my $sec = $student->[$secidx]; |
my $end = $student->[$endidx]; |
| my ($stuname,$studom) = split(/:/,$key); |
my $sec = $student->[$secidx]; |
| if ($status eq 'active') { |
my ($stuname,$studom) = split(/:/,$key); |
| if (exists($stucounted{$key.':'.$sec})) { |
if ($status eq 'active') { |
| next; |
if (exists($stucounted{$key.':'.$sec})) { |
| |
next; |
| |
} |
| } |
} |
| } |
if (($end == 0) || ($end > $start)) { |
| if (($end == 0) || ($end > $start)) { |
if ($start <= $now) { |
| if ($start <= $now) { |
if ($end && $end < $now) { |
| if ($end && $end < $now) { |
if ($rolechgtime > 0) { |
| if ($rolechgtime > 0) { |
if ($end > $rolechgtime) { |
| if ($end > $rolechgtime) { |
$userstatus = 'previous'; |
| |
} |
| |
} else { |
| $userstatus = 'previous'; |
$userstatus = 'previous'; |
| } |
} |
| } else { |
} else { |
| $userstatus = 'previous'; |
if ($rolechgtime > 0) { |
| } |
if ($start >= $rolechgtime) { |
| } else { |
$userstatus = 'active'; |
| if ($rolechgtime > 0) { |
} |
| if ($start >= $rolechgtime) { |
} else { |
| $userstatus = 'active'; |
$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); |
| } |
} |
| 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, |
my %advrolehash = &Apache::lonnet::get_my_roles($cnum,$cdom,undef, |
|
Line 1397 sub getrolechanges {
|
Line 1639 sub getrolechanges {
|
| return $rolechgcount; |
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 { |
sub checkversions { |
| my ($cdom,$crs,$navmap,$changed,$starttime) = @_; |
my ($cdom,$crs,$navmap,$changed,$starttime) = @_; |
| my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs); |
my %changes=&Apache::lonnet::dump('versionupdate',$cdom,$crs); |
|
Line 1413 sub checkversions {
|
Line 1760 sub checkversions {
|
| 'lastrevisiondate'); |
'lastrevisiondate'); |
| $revdate = &Apache::lonlocal::locallocaltime($revdate); |
$revdate = &Apache::lonlocal::locallocaltime($revdate); |
| my $linkurl=&Apache::lonnet::clutter($key); |
my $linkurl=&Apache::lonnet::clutter($key); |
| my $usedversion=$navmap->usedVersion('version_'.$linkurl); |
my $usedversion=$navmap->usedVersion($linkurl); |
| my @resources = $navmap->getResourceByUrl($linkurl,1); |
my @resources = $navmap->getResourceByUrl($linkurl,1); |
| if (($usedversion) && ($usedversion ne 'mostrecent')) { |
if (($usedversion) && ($usedversion ne 'mostrecent')) { |
| $version = $usedversion; |
$version = $usedversion; |
|
Line 1438 sub checkversions {
|
Line 1785 sub checkversions {
|
| } |
} |
| |
|
| sub display_handgrade { |
sub display_handgrade { |
| my ($r,$tograde,$ungraded) = @_; |
my ($r,$tograde,$ungraded,$itemserror) = @_; |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| 'prna' => 'Problem Name', |
'prna' => 'Problem Name', |
| 'nmun' => 'Number ungraded', |
'nmun' => 'Number ungraded', |
|
Line 1452 sub display_handgrade {
|
Line 1799 sub display_handgrade {
|
| foreach my $res (@{$tograde}) { |
foreach my $res (@{$tograde}) { |
| $rowNum ++; |
$rowNum ++; |
| my $css_class = $rowNum%2?' class="LC_odd_row"':''; |
my $css_class = $rowNum%2?' class="LC_odd_row"':''; |
| my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
my $linkurl='/adm/grades'; |
| my $linkurl=&Apache::lonnet::clutter($url); |
|
| $linkurl .= '?symb='.&escape($res); |
|
| if ($$ungraded{$res}{'enclink'}) { |
if ($$ungraded{$res}{'enclink'}) { |
| $linkurl = |
$linkurl.='?symb='.$$ungraded{$res}{'encsymb'}; |
| $$ungraded{$res}{'enclink'}.'?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>'); |
$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 { |
} else { |
| $r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); |
| } |
} |
| } |
} |
| |
|
| sub display_haserrors { |
sub display_haserrors { |
| my ($r,$bombs,$bombed,$res_title) = @_; |
my ($r,$bombs,$bombed,$res_title,$itemserror) = @_; |
| my $bombnum = 0; |
my $bombnum = 0; |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| reso => 'Resource', |
reso => 'Resource', |
|
Line 1486 sub display_haserrors {
|
Line 1835 sub display_haserrors {
|
| '</td><td class="LC_right_item">'. |
'</td><td class="LC_right_item">'. |
| $$bombed{$bomb}{errorcount}.'</td></tr>'); |
$$bombed{$bomb}{errorcount}.'</td></tr>'); |
| } |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| } else { |
} else { |
| $r->print('<tr class="LC_empty_row"><td>'.$lt{'noer'}.'</td></tr>'); |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'noer'}.'</td></tr>'); |
| } |
} |
|
Line 1493 sub display_haserrors {
|
Line 1844 sub display_haserrors {
|
| } |
} |
| |
|
| sub display_abovethreshold { |
sub display_abovethreshold { |
| my ($r,$refpage,$warnings,$triggered,$res_title) = @_; |
my ($r,$refpage,$warnings,$triggered,$res_title,$itemserror,$checkallowed) = @_; |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| reso => 'Resource', |
reso => 'Resource', |
| part => 'Part', |
part => 'Part', |
|
Line 1507 sub display_abovethreshold {
|
Line 1858 sub display_abovethreshold {
|
| ); |
); |
| if (@{$warnings} > 0) { |
if (@{$warnings} > 0) { |
| @{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings}; |
@{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings}; |
| $r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'. |
|
| ' <input type="hidden" name="command" value="reset" />'."\n". |
|
| ' <input type="hidden" name="refpage" value="'.$refpage.'" />'. |
|
| "\n"); |
|
| $r->print('<tr class="LC_info_row">'. |
$r->print('<tr class="LC_info_row">'. |
| '<td class="LC_left_item">'.$lt{'reso'}.'</td>'. |
'<td class="LC_left_item">'.$lt{'reso'}. |
| |
'<input type="hidden" name="command" value="" /></td>'. |
| '<td>'.$lt{'part'}.'</td><td>'.$lt{'nust'}.'</td>'. |
'<td>'.$lt{'part'}.'</td><td>'.$lt{'nust'}.'</td>'. |
| '<td>'.$lt{'avat'}.'</td><td>'.$lt{'dedi'}.'</td>'. |
'<td>'.$lt{'avat'}.'</td><td>'.$lt{'dedi'}.'</td>'. |
| '<td>'.$lt{'lare'}.'</td><td class="LC_right_item">'. |
'<td>'.$lt{'lare'}.'</td>'); |
| $lt{'reco'}.'</td></tr>'); |
if ($checkallowed->{'resetcounters'}) { |
| |
$r->print('<td class="LC_right_item">'.$lt{'reco'}.'</td>'); |
| |
} |
| |
$r->print('</tr>'); |
| my $row; |
my $row; |
| foreach my $res (@{$warnings}) { |
foreach my $res (@{$warnings}) { |
| $row++; |
$row++; |
|
Line 1542 sub display_abovethreshold {
|
Line 1893 sub display_abovethreshold {
|
| if (ref($$triggered{$res}{text}) eq 'ARRAY') { |
if (ref($$triggered{$res}{text}) eq 'ARRAY') { |
| if (@{$$triggered{$res}{text}} > 1) { |
if (@{$$triggered{$res}{text}} > 1) { |
| for (my $i=1; $i<@{$$triggered{$res}{text}}; $i++) { |
for (my $i=1; $i<@{$$triggered{$res}{text}}; $i++) { |
| $r->print('<tr class="'.$css_class.'">'. |
$r->print('<tr '.$css_class.'>'. |
| $$triggered{$res}{text}[$i].'</tr>'); |
$$triggered{$res}{text}[$i].'</tr>'); |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| $r->print('<tr class="LC_info_row"><td colspan="7" class="LC_right_item"><br /><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></td></tr></form>'); |
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 { |
} else { |
| $r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'nopr'}.'</td></tr>'); |
| } |
} |
| } |
} |
| |
|
| sub display_versionchanges { |
sub display_versionchanges { |
| my ($r,$changed,$res_title,$interval) = @_; |
my ($r,$changed,$res_title,$interval,$itemserror) = @_; |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| 'reso' => 'Resource', |
'reso' => 'Resource', |
| 'revd' => 'Last revised', |
'revd' => 'Last revised', |
|
Line 1582 sub display_versionchanges {
|
Line 1937 sub display_versionchanges {
|
| $$changed{$item}{'current'}.'</td><td>'. |
$$changed{$item}{'current'}.'</td><td>'. |
| $$changed{$item}{'version'}.'</td></tr>'); |
$$changed{$item}{'version'}.'</td></tr>'); |
| } |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| } else { |
} else { |
| $r->print('<tr class="LC_empty_row"><td>' |
$r->print('<tr class="LC_empty_row"><td>' |
| .&mt('No '.$interval).'</td></tr>'); |
.&mt('No '.$interval).'</td></tr>'); |
|
Line 1590 sub display_versionchanges {
|
Line 1947 sub display_versionchanges {
|
| } |
} |
| |
|
| sub display_rolechanges { |
sub display_rolechanges { |
| my ($r,$chgcount,$changed,$interval,$crstype) = @_; |
my ($r,$chgcount,$changed,$interval,$crstype,$classlist) = @_; |
| my $now = time(); |
my $now = time(); |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| 'user' => 'User', |
'user' => 'User', |
|
Line 1609 sub display_rolechanges {
|
Line 1966 sub display_rolechanges {
|
| if (ref($changed) eq 'HASH') { |
if (ref($changed) eq 'HASH') { |
| my @changes = sort { $b <=> $a } (keys(%{$changed})); |
my @changes = sort { $b <=> $a } (keys(%{$changed})); |
| my $changenum = 0; |
my $changenum = 0; |
| |
my $fullnameidx = &Apache::loncoursedata::CL_FULLNAME(); |
| foreach my $item (@changes) { |
foreach my $item (@changes) { |
| if (ref($changed->{$item}) eq 'ARRAY') { |
if (ref($changed->{$item}) eq 'ARRAY') { |
| foreach my $chg (@{$changed->{$item}}) { |
foreach my $chg (@{$changed->{$item}}) { |
|
Line 1626 sub display_rolechanges {
|
Line 1984 sub display_rolechanges {
|
| my $udom = $chg->{'udom'}; |
my $udom = $chg->{'udom'}; |
| $changenum ++; |
$changenum ++; |
| my $css_class = $changenum%2?' class="LC_odd_row"':''; |
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 = |
my $link = |
| &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom); |
&Apache::loncommon::aboutmewrapper($fullname,$uname,$udom); |
| $r->print('<tr'.$css_class.'>'. |
$r->print('<tr'.$css_class.'>'. |
| '<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'. |
'<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'. |
| '<td>'.$link.'</td>'. |
'<td>'.$link.'</td>'. |
|
Line 1645 sub display_rolechanges {
|
Line 2009 sub display_rolechanges {
|
| } |
} |
| return; |
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 { |
sub display_coursediscussion { |
| my ($r,$newdiscussions,$unread,$countunread,$res_title) = @_; |
my ($r,$newdiscussions,$unread,$countunread,$res_title,$itemserror) = @_; |
| my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = lc(&Apache::loncommon::course_type()); |
| my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
| 'loca' => 'Location', |
'loca' => 'Location', |
|
Line 1675 sub display_coursediscussion {
|
Line 2144 sub display_coursediscussion {
|
| my $forum_title = $$unread{$ressymb}{'title'}; |
my $forum_title = $$unread{$ressymb}{'title'}; |
| my $type = 'Resource'; |
my $type = 'Resource'; |
| my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); |
my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); |
| my $disclink = $feedurl.'?symb='.$$unread{$ressymb}{symb}; |
my $disclink = $feedurl.'?symb='. &escape($$unread{$ressymb}{symb}); |
| if ($feedurl =~ /bulletinboard/) { |
if ($feedurl =~ /bulletinboard/) { |
| $type = 'Bulletin Board'; |
$type = 'Discussion Board'; |
| } |
} |
| if ($$unread{$ressymb}{'enclink'}) { |
if ($$unread{$ressymb}{'enclink'}) { |
| $disclink = $$unread{$ressymb}{'enclink'}.'?symb='.$$unread{$ressymb}{'encsymb'}; |
$disclink = $$unread{$ressymb}{'enclink'}.'?symb='.$$unread{$ressymb}{'encsymb'}; |
|
Line 1695 sub display_coursediscussion {
|
Line 2164 sub display_coursediscussion {
|
| } |
} |
| $r->print("</tr>\n"); |
$r->print("</tr>\n"); |
| } |
} |
| |
} elsif ($itemserror) { |
| |
$r->print('<tr class="LC_empty_row"><td>'.$itemserror.'</td></tr>'); |
| } else { |
} else { |
| $r->print('<tr class="LC_empty_row"><td>'.$lt{'noun'}.'</td></tr>'); |
$r->print('<tr class="LC_empty_row"><td>'.$lt{'noun'}.'</td></tr>'); |
| } |
} |
|
Line 1804 sub store_interval_setting {
|
Line 2275 sub store_interval_setting {
|
| $interval_settings{$cid.':oldroleinterval'} = $env{'form.interval'}; |
$interval_settings{$cid.':oldroleinterval'} = $env{'form.interval'}; |
| } elsif ($context eq 'newroles') { |
} elsif ($context eq 'newroles') { |
| $interval_settings{$cid.':newroleinterval'} = $env{'form.interval'}; |
$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 { |
} else { |
| $interval_settings{$cid.':interval'} = $env{'form.interval'}; |
$interval_settings{$cid.':interval'} = $env{'form.interval'}; |
| } |
} |
|
Line 1811 sub store_interval_setting {
|
Line 2286 sub store_interval_setting {
|
| \%interval_settings,$udom,$uname); |
\%interval_settings,$udom,$uname); |
| if ($outcome eq 'ok') { |
if ($outcome eq 'ok') { |
| if (ref($interval_titles->{$context}) eq 'HASH') { |
if (ref($interval_titles->{$context}) eq 'HASH') { |
| $result = &mt('New filter setting: [_1].','<b>'. |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('New filter setting: [_1].','<b>'. |
| $interval_titles->{$context}->{$env{'form.interval'}}.'</b>').'<br />'; |
$interval_titles->{$context}->{$env{'form.interval'}}.'</b>').'<br />'); |
| } |
} |
| } else { |
} else { |
| my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = lc(&Apache::loncommon::course_type()); |
| &Apache::lonnet::logthis('Error saving whatsnew '.$context.' interval setting'. |
&Apache::lonnet::logthis('Error saving whatsnew '.$context.' interval setting'. |
| ' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| $result = &mt('Unable to set interval to [_1] due to [_2].', |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set interval to [_1] due to [_2].', |
| '<b>'.$interval_titles->{$context}->{$env{'form.interval'}}.'</b>', |
'<b>'.$interval_titles->{$context}->{$env{'form.interval'}}.'</b>', |
| '<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>'),1); |
| } |
} |
| } |
} |
| return $result; |
return &Apache::loncommon::confirmwrapper($result); |
| } |
} |
| |
|
| sub store_discussion_setting { |
sub store_discussion_setting { |
|
Line 1835 sub store_discussion_setting {
|
Line 2310 sub store_discussion_setting {
|
| my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
| \%discussion_settings,$udom,$uname); |
\%discussion_settings,$udom,$uname); |
| if ($outcome eq 'ok') { |
if ($outcome eq 'ok') { |
| $result = &mt('Count unread posts in discussions display set to [_1]', |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Count unread posts in discussions display set to [_1]', |
| '<b>'.&mt($env{'form.countunread'}).'</b>').'<br />'; |
'<b>'.&mt($env{'form.countunread'}).'</b>').'<br />'); |
| |
|
| } else { |
} else { |
| my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = lc(&Apache::loncommon::course_type()); |
| &Apache::lonnet::logthis('Error saving whatsnew countunread setting'. |
&Apache::lonnet::logthis('Error saving whatsnew countunread setting'. |
| ' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
| $result = &mt('Unable to set "number unread posts display" to [_1]'. |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set "number unread posts display" to [_1]'. |
| ' due to [_2].', |
' due to [_2].', |
| '<b>'.&mt($env{'form.countunread'}).'</b>', |
'<b>'.&mt($env{'form.countunread'}).'</b>', |
| '<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>'),1); |
| } |
} |
| } |
} |
| return $result; |
return &Apache::loncommon::confirmwrapper($result); |
| } |
} |
| |
|
| sub store_courseinit_setting { |
sub store_courseinit_setting { |
|
Line 1873 sub store_courseinit_setting {
|
Line 2348 sub store_courseinit_setting {
|
| \%courseinit_settings,$udom,$uname); |
\%courseinit_settings,$udom,$uname); |
| if ($outcome eq 'ok') { |
if ($outcome eq 'ok') { |
| if ($page_control eq 'global preferences') { |
if ($page_control eq 'global preferences') { |
| $result = &mt("Page displayed after role selection in $lctype now set by <b>user's global preferences</b>."); |
$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 { |
} else { |
| $result = &mt('Page displayed after role selection in this '.$lctype.' set to <b>[_2]</b>',$lctype,$$initpage{$env{'form.courseinit_page'}}); |
$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 { |
} else { |
| &Apache::lonnet::logthis('Error saving whatsnew courseinit '. |
&Apache::lonnet::logthis('Error saving whatsnew courseinit '. |
| 'setting: '.$outcome.' for '.$uname. |
'setting: '.$outcome.' for '.$uname. |
| ':'.$udom.' in '.$lctype.' '.$cid); |
':'.$udom.' in '.$lctype.' '.$cid); |
| if ($page_control eq 'global preferences') { |
if ($page_control eq 'global preferences') { |
| $result = &mt('Unable to set control of page display to [_1]'. |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set control of page display to [_1]'. |
| ' due to [_2].', |
' due to [_2].', |
| '<b>'.$page_control.'</b>', |
'<b>'.$page_control.'</b>', |
| '<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>'),1); |
| } else { |
} else { |
| $result = &mt('Unable to set page display, after role selection, for this '.$lctype.' to <b>[_2]</b> due to <tt>[_3]</tt>.<br />', |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set page display, after role selection, for this '.$lctype.' to [_1] due to [_2].' |
| $$initpage{$env{'form.courseinit_page'}},$outcome); |
,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>' |
| |
,'<tt>'.$outcome.'</tt>'),1); |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| return $result; |
return &Apache::loncommon::confirmwrapper($result); |
| } |
} |
| |
|
| sub start_box { |
sub start_box { |
|
Line 1925 sub start_box {
|
Line 2402 sub start_box {
|
| if ($$show{$caller}) { |
if ($$show{$caller}) { |
| $r->print(' |
$r->print(' |
| <tr> |
<tr> |
| <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'">'.$lt{'chth'}.'</a></td> |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'">'.$lt{'chth'}.'</a></td> |
| </tr>'); |
</tr>'); |
| } |
} |
| } elsif (($caller eq 'versionchanges') && ($$show{$caller})) { |
} elsif (($caller eq 'versionchanges') && ($$show{$caller})) { |
| if ($$show{$caller}) { |
if ($$show{$caller}) { |
| $r->print(' |
$r->print(' |
| <tr> |
<tr> |
| <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chginterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| </tr>'); |
</tr>'); |
| } |
} |
| } elsif ($caller eq 'coursediscussion') { |
} elsif ($caller eq 'coursediscussion') { |
| if ($$show{$caller}) { |
if ($$show{$caller}) { |
| $r->print(' |
$r->print(' |
| <tr> |
<tr> |
| <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'">'.$lt{'chop'}.'</a></td> |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgdisc&refpage='.$refpage.'">'.$lt{'chop'}.'</a></td> |
| </tr>'); |
</tr>'); |
| } |
} |
| } elsif (($caller eq 'newroles') && ($$show{$caller})) { |
} elsif (($caller eq 'newroles') && ($$show{$caller})) { |
| if ($$show{$caller}) { |
if ($$show{$caller}) { |
| $r->print(' |
$r->print(' |
| <tr> |
<tr> |
| <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgnewroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgnewroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| </tr>'); |
</tr>'); |
| } |
} |
| } elsif (($caller eq 'oldroles') && ($$show{$caller})) { |
} elsif (($caller eq 'oldroles') && ($$show{$caller})) { |
| if ($$show{$caller}) { |
if ($$show{$caller}) { |
| $r->print(' |
$r->print(' |
| <tr> |
<tr> |
| <td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgoldroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
<td class="LC_subheader" colspan="2"><a href="/adm/whatsnew?command=chgoldroleinterval&refpage='.$refpage.'">'.$lt{'chin'}.'</a></td> |
| </tr>'); |
</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(' |
$r->print(' |
| <tr> |
<tr> |
| <td colspan="2"> |
<td colspan="2"> |
![[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