version 1.55, 2006/05/30 12:46:09
|
version 1.61, 2006/09/06 19:20:04
|
Line 145 sub display_main_box {
|
Line 145 sub display_main_box {
|
my $domain=&Apache::loncommon::determinedomain(); |
my $domain=&Apache::loncommon::determinedomain(); |
my $function = &Apache::loncommon::get_users_function(); |
my $function = &Apache::loncommon::get_users_function(); |
my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
my $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain); |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
$r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">'); |
$r->print('<table width="100%" border="0" cellpadding="5" cellspacing="0"><tr><td width="100%">'); |
|
|
my %threshold_titles = &Apache::lonlocal::texthash ( |
my %threshold_titles = &Apache::lonlocal::texthash ( |
Line 154 sub display_main_box {
|
Line 155 sub display_main_box {
|
); |
); |
|
|
my %interval_titles = &Apache::lonlocal::texthash ( |
my %interval_titles = &Apache::lonlocal::texthash ( |
-1 => 'since start of course', |
-1 => "since start of $lctype", |
2592000 => 'since last month', |
2592000 => 'since last month', |
604800 => 'since last week', |
604800 => 'since last week', |
86400 => 'since yesterday', |
86400 => 'since yesterday', |
); |
); |
|
|
my %initpage = &Apache::lonlocal::texthash ( |
my %initpage = &Apache::lonlocal::texthash ( |
firstres => 'first resource in the course', |
firstres => "first resource in the $lctype", |
whatsnew => "what's new? page", |
whatsnew => "what's new? page", |
userpref => 'your general user preferences', |
userpref => 'your general user preferences', |
coursespecific => 'specific setting for this course', |
coursespecific => "specific setting for this $lctype", |
); |
); |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
Line 227 END
|
Line 228 END
|
</script> |
</script> |
'; |
'; |
} |
} |
return &Apache::loncommon::start_page('Course Action Items',$scripttag); |
my $course_type=&Apache::loncommon::course_type(); |
|
return &Apache::loncommon::start_page($course_type.' Action Items', |
|
$scripttag); |
} |
} |
|
|
#------------------------------- |
#------------------------------- |
Line 246 sub display_actions_box {
|
Line 249 sub display_actions_box {
|
my $udom = $env{'user.domain'}; |
my $udom = $env{'user.domain'}; |
my $uname = $env{'user.name'}; |
my $uname = $env{'user.name'}; |
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
|
my $crstype = &Apache::loncommon::course_type(); |
|
my $lctype = lc($crstype); |
|
my %stulabel = ( |
|
'Course' => 'students', |
|
'Group' => 'members', |
|
); |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'yacc' => 'You are accessing an invalid course.', |
'yacc' => 'You are accessing an invalid course', |
'gtfr' => 'Go to first resource', |
'gtfr' => 'Go to first resource', |
'pgse' => 'Page set to be displayed after you have selected a role in this course?', |
|
'hial' => 'Hide all', |
'hial' => 'Hide all', |
'shal' => 'Show all', |
'shal' => 'Show all', |
); |
); |
Line 288 sub display_actions_box {
|
Line 295 sub display_actions_box {
|
firstres => 'First resource', |
firstres => 'First resource', |
whatsnew => "What's New? page", |
whatsnew => "What's New? page", |
userpref => 'user preference', |
userpref => 'user preference', |
coursespecific => 'course only', |
coursespecific => $lctype.' only', |
default => 'default', |
default => 'default', |
); |
); |
|
|
Line 309 sub display_actions_box {
|
Line 316 sub display_actions_box {
|
'</a></font><br />'); |
'</a></font><br />'); |
} |
} |
} |
} |
$r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>'). |
$r->print(&mt('Page set to be displayed after you have selected a role in this '.$lctype). |
' <nobr> '.&mt('[_1] for just [_2]','<b>Change</b>', |
'. <nobr>'.&mt('Currently: <i>[_1]</i>',$currinit).'. '. |
'<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage. |
&mt('<b>Change</b> for just <a href="/adm/whatsnew?command=courseinit&refpage=[_1]">this '.$lctype.'</a>',$refpage).' '. |
'">this course</a>').' '.&mt('or for all [_1].', |
&mt('or for all <a href="/adm/preferences?action=changecourseinit&refpage=[_1]">your courses</a>',$refpage).'</nobr><br /><hr />'); |
'<a href="/adm/preferences?action=changecourseinit&refpage='. |
|
$refpage.'">your courses</a>').'</nobr><br /><hr />'); |
|
|
|
if ($command eq 'reset') { |
if ($command eq 'reset') { |
$result = &process_reset($cdom,$crs); |
$result = &process_reset($cdom,$crs); |
} elsif ($command eq 'update') { |
} elsif ($command eq 'update') { |
Line 330 sub display_actions_box {
|
Line 335 sub display_actions_box {
|
|
|
unless ($store_result eq 'ok') { |
unless ($store_result eq 'ok') { |
&Apache::lonnet::logthis('Error storing whatsnew settings: '. |
&Apache::lonnet::logthis('Error storing whatsnew settings: '. |
$store_result.' for '.'user '.$uname.':'.$udom.' in course '.$cid); |
$store_result.' for '.'user '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
$result .= &mt('Unable to store visibility settings due to [_1]', |
$result .= &mt('Unable to store visibility settings due to [_1]', |
$store_result); |
$store_result); |
} |
} |
Line 356 sub display_actions_box {
|
Line 361 sub display_actions_box {
|
} |
} |
|
|
my %headings = &Apache::lonlocal::texthash( |
my %headings = &Apache::lonlocal::texthash( |
coursediscussion => 'Unread course discussion posts', |
coursediscussion => 'Unread '.$lctype.' discussion posts', |
handgrading => 'Problems requiring handgrading', |
handgrading => 'Problems requiring handgrading', |
haserrors => 'Problems with errors', |
haserrors => 'Problems with errors', |
versionchanges => 'Resources in course with version changes '.$interval, |
versionchanges => 'Resources in '.$lctype.' with version changes '.$interval, |
coursenormalmail => 'New course messages', |
coursenormalmail => 'New '.$lctype.' messages', |
coursecritmail => 'New critical messages in course', |
coursecritmail => 'New critical messages in '.$lctype, |
); |
); |
|
|
if ($$checkallowed{'abovethreshold'}) { |
if ($$checkallowed{'abovethreshold'}) { |
&get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); |
&get_curr_thresholds(\%threshold,$uname,$udom,$cid,$cdom,$crs); |
} |
} |
|
|
$headings{'abovethreshold'} = &mt('Problems with av. attempts').' ≥ '.$threshold{'av_attempts'}.' '.&mt('or deg. difficulty').' ≥ '.$threshold{'degdiff'}.'<br /> '.&mt('and total number of students with submissions').' ≥ '.$threshold{'numstudents'}; |
$headings{'abovethreshold'} = |
|
&mt('Problems with av. attempts ≥ [_1] or deg. difficulty ≥ [_2] <br /> and total number of '.$stulabel{$crstype}.' with submissions ≥ [_3]', |
|
$threshold{'av_attempts'},$threshold{'degdiff'}, |
|
$threshold{'numstudents'}); |
|
|
my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail'); |
my @actionorder = ('handgrading','haserrors','abovethreshold','versionchanges','coursediscussion','coursenormalmail','coursecritmail'); |
|
|
Line 526 sub display_threshold_config {
|
Line 534 sub display_threshold_config {
|
|
|
sub display_interval_config { |
sub display_interval_config { |
my ($r,$refpage,$interval_titles) = @_; |
my ($r,$refpage,$interval_titles) = @_; |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
my $current = &get_current($env{'user.name'},$env{'user.domain'}, |
$env{'request.course.id'},'interval'); |
$env{'request.course.id'},'interval'); |
$r->print('<br />'.&mt('Choose the time window to use for display of version changes for resources in the course.')); |
$r->print('<br />'.&mt('Choose the time window to use for display of version changes for resources in the '.$lctype.'.')); |
unless ($current eq '') { |
unless ($current eq '') { |
$r->print(' '.&mt('Current value is [_1]','<b>'. |
$r->print(' '.&mt('Current value is [_1]','<b>'. |
$$interval_titles{$current}.'</b>.')); |
$$interval_titles{$current}.'</b>.')); |
Line 607 sub courseinit_config {
|
Line 616 sub courseinit_config {
|
my ($control,$current) = &curr_courseinit(); |
my ($control,$current) = &curr_courseinit(); |
my @chgstate = ('userpref','coursespecific'); |
my @chgstate = ('userpref','coursespecific'); |
my @chgentry = ('firstres','whatsnew'); |
my @chgentry = ('firstres','whatsnew'); |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'chwp' => 'Choose which page will be displayed when you enter this course after selecting a role.', |
'chwp' => "Choose which page will be displayed when you enter this $lctype after selecting a role.", |
'cuva' => 'Current value is determined by', |
'cuva' => 'Current value is determined by', |
'anis' => 'and is set to display', |
'anis' => 'and is set to display', |
'padc' => 'Page display controlled by', |
'padc' => 'Page display controlled by', |
'chce' => 'Choose course entry', |
'chce' => 'Choose '.$lctype.' entry', |
'moce' => 'Modify course entry', |
'moce' => 'Modify '.$lctype.' entry', |
); |
); |
$r->print(<<"END"); |
$r->print(<<"END"); |
<br />$lt{'chwp'} |
<br />$lt{'chwp'} |
Line 623 $$initpage{$current}</b>.<br /><br />
|
Line 633 $$initpage{$current}</b>.<br /><br />
|
<form method="post" name="courseinitswitch" action="/adm/whatsnew"> |
<form method="post" name="courseinitswitch" action="/adm/whatsnew"> |
<input type="hidden" name="command" value="newcourseinit" /> |
<input type="hidden" name="command" value="newcourseinit" /> |
<input type="hidden" name="refpage" value="$refpage" /> |
<input type="hidden" name="refpage" value="$refpage" /> |
$lt{'padc'} |
$lt{'padc'}: |
END |
END |
foreach my $choice (@chgstate) { |
foreach my $choice (@chgstate) { |
|
my $chkstring; |
|
if ($choice eq $control) { |
|
$chkstring = ' checked="checked" '; |
|
} |
$r->print('<nobr><label><input type="radio" name="courseinit_control" value="'. |
$r->print('<nobr><label><input type="radio" name="courseinit_control" value="'. |
$choice.'"/>'.$$initpage{$choice}.' </label></nobr>'); |
$choice.'"'.$chkstring.'/>'.$$initpage{$choice}. |
|
' </label></nobr>'); |
} |
} |
$r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}. |
$r->print('<br /><br />'.&mt('If').' '.$$initpage{'coursespecific'}. |
'<br />'.$lt{'chce'}." \n"); |
' - <br />'.$lt{'chce'}.": \n"); |
foreach my $choice (@chgentry) { |
foreach my $choice (@chgentry) { |
|
my $chkstring; |
|
if (($choice eq $current) && ($control eq 'coursespecific')) { |
|
$chkstring = ' checked="checked" '; |
|
} |
$r->print('<nobr><label><input type="radio" name="courseinit_page" value="'. |
$r->print('<nobr><label><input type="radio" name="courseinit_page" value="'. |
$choice.'"/>'.$$initpage{$choice}.' </label></nobr>'); |
$choice.'"'.$chkstring.'/>'.$$initpage{$choice}. |
|
' </label></nobr>'); |
} |
} |
$r->print('<br /><br /><input type="submit" name="display" value="'. |
$r->print('<br /><br /><input type="submit" name="display" value="'. |
$lt{'moce'}.'" /></form>'); |
$lt{'moce'}.'" /></form>'); |
Line 667 sub display_launcher {
|
Line 687 sub display_launcher {
|
$critmsgcount,$critmsgs,$interval,$countunread) = @_; |
$critmsgcount,$critmsgs,$interval,$countunread) = @_; |
|
|
if ($$checkallowed{$action}) { |
if ($$checkallowed{$action}) { |
&start_box($r,$tabbg,$show,$headings,$action,$refpage); |
&start_box($r,$tabbg,$show,$headings,$action,$refpage,$action); |
if ($$show{$action}) { |
if ($$show{$action}) { |
if ($action eq 'handgrading') { # UNGRADED ITEMS |
if ($action eq 'handgrading') { # UNGRADED ITEMS |
&display_handgrade($r,$tograde,$rowColor1,$rowColor2, |
&display_handgrade($r,$tograde,$rowColor1,$rowColor2, |
Line 681 sub display_launcher {
|
Line 701 sub display_launcher {
|
|
|
} elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS |
} elsif ($action eq 'abovethreshold') { # DEGDIFF/AV. TRIES TRIGGERS |
&display_abovethreshold($r,$refpage,$warnings,$triggered, |
&display_abovethreshold($r,$refpage,$warnings,$triggered, |
$res_title,$rowColor1,$rowColor2); |
$res_title); |
} elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION |
} elsif ($action eq 'coursediscussion') { # UNREAD COURSE DISCUSSION |
&display_coursediscussion($r,$newdiscussions,$unread, |
&display_coursediscussion($r,$newdiscussions,$unread, |
$countunread,$res_title,$rowColor1,$rowColor2); |
$countunread,$res_title,$rowColor1,$rowColor2); |
Line 719 sub getitems {
|
Line 739 sub getitems {
|
$cdom,$crs); |
$cdom,$crs); |
} |
} |
|
|
my $warningnum = 0; |
|
foreach my $resource (@allres) { |
foreach my $resource (@allres) { |
my $result = ''; |
my $result = ''; |
my $applies = 0; |
my $applies = 0; |
Line 753 sub getitems {
|
Line 772 sub getitems {
|
|
|
# Maxtries and degree of difficulty for problem parts, unless handgradeable |
# Maxtries and degree of difficulty for problem parts, unless handgradeable |
if ($$show{'abovethreshold'}) { |
if ($$show{'abovethreshold'}) { |
&check_thresholds($resource,$symb,\%resourcetracker,$triggered, |
&check_thresholds($resource,$symb,\%resourcetracker, |
$threshold,$warnings,$warningnum,$rowColor1,$rowColor2); |
$triggered,$threshold,$warnings); |
} |
} |
|
|
} |
} |
Line 818 sub check_bombed {
|
Line 837 sub check_bombed {
|
} |
} |
|
|
sub check_thresholds { |
sub check_thresholds { |
my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings, |
my ($resource,$symb,$resourcetracker,$triggered,$threshold,$warnings) = @_; |
$warningnum,$rowColor1,$rowColor2) = @_; |
|
# 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 864 sub check_thresholds {
|
Line 882 sub check_thresholds {
|
} |
} |
} |
} |
if ($warning) { |
if ($warning) { |
if ($warningnum %2 == 1) { |
|
$rowColor = $rowColor1; |
|
} else { |
|
$rowColor = $rowColor2; |
|
} |
|
$$triggered{$symb}{title} = $resource->title; |
$$triggered{$symb}{title} = $resource->title; |
foreach my $part (@parts) { |
foreach my $part (@parts) { |
if (exists($stats{$part}{users})) { |
if (exists($stats{$part}{users})) { |
my $resetname = 'reset_'.&escape($symb."\0".$part); |
my $resetname = 'reset_'.&escape($symb."\0".$part); |
my $resettitle = 'title_'.&escape($symb."\0".$part); |
my $resettitle = 'title_'.&escape($symb."\0".$part); |
if ($$triggered{$symb}{numparts}) { |
if ($$triggered{$symb}{numparts}) { |
$$triggered{$symb}{text} .= '<tr bgcolor="'.$rowColor.'">'."\n"; |
$$triggered{$symb}{text} .= '<tr>'."\n"; |
} |
} |
if (@parts > 1) { |
if (@parts > 1) { |
$$triggered{$symb}{text} .= ' |
$$triggered{$symb}{text} .= ' |
<td align="right"><small>part - '.$part.'<small></td>'; |
<td>part - '.$part.'</td>'; |
} else { |
} else { |
$$triggered{$symb}{text} .= ' |
$$triggered{$symb}{text} .= ' |
<td align="right"><small>single part</small></td>'; |
<td>single part</td>'; |
} |
} |
$$triggered{$symb}{text} .= ' |
$$triggered{$symb}{text} .= ' |
<td align="right"><small>'.$stats{$part}{users}.'</small></td> |
<td>'.$stats{$part}{users}.'</td> |
<td align="right"><small>'.$stats{$part}{attempts}.'</small></td> |
<td>'.$stats{$part}{attempts}.'</td> |
<td align="right"><small>'.$stats{$part}{degdiff}.'</small></td> |
<td>'.$stats{$part}{degdiff}.'</td> |
<td align="right"><small>'.$lastreset{$part}.'</small></td> |
<td>'.$lastreset{$part}.'</td> |
<td align="right"><small><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td> |
<td><input type="checkbox" name="'.$resetname.'" /><input type="hidden" name="'.$resettitle.'" value="'.&escape($$triggered{$symb}{title}).'" /></td> |
</tr>'; |
</tr>'; |
$$triggered{$symb}{numparts} ++; |
$$triggered{$symb}{numparts} ++; |
} |
} |
} |
} |
push(@{$warnings},$symb); |
push(@{$warnings},$symb); |
$warningnum ++; |
|
} |
} |
} |
} |
|
|
Line 1173 sub display_haserrors {
|
Line 1185 sub display_haserrors {
|
} |
} |
|
|
sub display_abovethreshold { |
sub display_abovethreshold { |
my ($r,$refpage,$warnings,$triggered,$res_title,$rowColor1,$rowColor2) = @_; |
my ($r,$refpage,$warnings,$triggered,$res_title) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
reso => 'Resource', |
reso => 'Resource', |
part => 'Part', |
part => 'Part', |
Line 1185 sub display_abovethreshold {
|
Line 1197 sub display_abovethreshold {
|
rese => 'Reset counters to 0', |
rese => 'Reset counters to 0', |
nopr => 'No problems satisfy threshold criteria', |
nopr => 'No problems satisfy threshold criteria', |
); |
); |
my $rowColor; |
|
my $warningnum = 0; |
|
if (@{$warnings} > 0) { |
if (@{$warnings} > 0) { |
@{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings}; |
@{$warnings} = sort { &cmp_title($a,$b,$res_title) } @{$warnings}; |
$r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'. |
$r->print('<form name="reset_tracking" method="post" action="/adm/whatsnew">'. |
' <input type="hidden" name="command" value="reset" />'."\n". |
' <input type="hidden" name="command" value="reset" />'."\n". |
' <input type="hidden" name="refpage" value="'.$refpage.'" />'. |
' <input type="hidden" name="refpage" value="'.$refpage.'" />'. |
"\n"); |
"\n"); |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.$lt{'reso'}.'</small></b></td><td align="right"><b><small>'.$lt{'part'}.'</small></b></td><td align="right"><b><small>'.$lt{'nust'}.'</small></b></td><td align="right"><b><small>'.$lt{'avat'}.'</small></b></td><td align="right"><b><small>'.$lt{'dedi'}.'</small></b></td><td align="right"><b><small>'.$lt{'lare'}.'</small></b></td><td align="right"><b><small>'.$lt{'reco'}.'</small></b></td></tr>'); |
$r->print('<tr class="LC_info_row">'. |
|
'<td class="LC_first_item">'.$lt{'reso'}.'</td>'. |
|
'<td>'.$lt{'part'}.'</td><td>'.$lt{'nust'}.'</td>'. |
|
'<td>'.$lt{'avat'}.'</td><td>'.$lt{'dedi'}.'</td>'. |
|
'<td>'.$lt{'lare'}.'</td><td>'.$lt{'reco'}.'</td></tr>'); |
|
my $row; |
foreach my $res (@{$warnings}) { |
foreach my $res (@{$warnings}) { |
if ($warningnum %2 == 1) { |
$row++; |
$rowColor = $rowColor1; |
|
} else { |
|
$rowColor = $rowColor2; |
|
} |
|
my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
my ($map,$id,$url)=&Apache::lonnet::decode_symb($res); |
my $linkurl=&Apache::lonnet::clutter($url); |
my $linkurl=&Apache::lonnet::clutter($url); |
my $rowspan; |
my $rowspan; |
Line 1207 sub display_abovethreshold {
|
Line 1218 sub display_abovethreshold {
|
$rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"'; |
$rowspan = 'rowspan="'.$$triggered{$res}{numparts}.'"'; |
} |
} |
$linkurl .= '?symb='.&escape($res); |
$linkurl .= '?symb='.&escape($res); |
$r->print('<tr bgcolor="'.$rowColor.'"><td '.$rowspan.'><a href="'.$linkurl.'"><small>'.$$triggered{$res}{title}.'</small></a></td>'.$$triggered{$res}{text}); |
$r->print('<tr class="'.($row%2?'LC_odd_row':'').'">'. |
$warningnum ++; |
'<td class="LC_first_item" '.$rowspan.'><a href="'.$linkurl.'">'. |
|
$$triggered{$res}{title}.'</a></td>'. |
|
$$triggered{$res}{text}); |
} |
} |
$r->print('<tr bgcolor="#cccccc"><td colspan="7" align="right"><br /><b><small><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></form>'); |
$r->print('<tr class="LC_info_row"><td colspan="7"><br /><input type="submit" name="counters" value="'.$lt{'rese'}.'" /></td></tr></form>'); |
} else { |
} else { |
$r->print('<tr><td bgcolor="#ffffff"><br /><center><b><i><small>'.$lt{'nopr'}.'</small></i></b></center><br /></td></tr>'); |
$r->print('<tr class="LC_empty_row"><br />'.$lt{'nopr'}.'<br /></td></tr>'); |
} |
} |
} |
} |
|
|
Line 1254 sub display_versionchanges {
|
Line 1267 sub display_versionchanges {
|
sub display_coursediscussion { |
sub display_coursediscussion { |
my ($r,$newdiscussions,$unread,$countunread,$res_title,$rowColor1, |
my ($r,$newdiscussions,$unread,$countunread,$res_title,$rowColor1, |
$rowColor2) = @_; |
$rowColor2) = @_; |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
'loca' => 'Location', |
'loca' => 'Location', |
'type' => 'Type', |
'type' => 'Type', |
'numn' => 'Number of new posts', |
'numn' => 'Number of new posts', |
'noun' => 'No unread posts in course discussions', |
'noun' => 'No unread posts in '.$lctype.' discussions', |
'tmlp' => 'Time of last post', |
'tmlp' => 'Time of last post', |
); |
); |
my $rowColor; |
my $rowColor; |
Line 1312 sub display_coursediscussion {
|
Line 1326 sub display_coursediscussion {
|
sub display_coursenormalmail { |
sub display_coursenormalmail { |
my ($r,$msgcount,$newmsgs,$rowColor1,$rowColor2) = @_; |
my ($r,$msgcount,$newmsgs,$rowColor1,$rowColor2) = @_; |
my $rowColor; |
my $rowColor; |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
if ($msgcount > 0) { |
if ($msgcount > 0) { |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>'); |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>'); |
my $rowNum = 0; |
my $rowNum = 0; |
Line 1327 sub display_coursenormalmail {
|
Line 1342 sub display_coursenormalmail {
|
$mailcount ++; |
$mailcount ++; |
} |
} |
} else { |
} else { |
$r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No new course messages').'</small></i></b><br /><br /></center></td></tr>'); |
$r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No new '.$lctype.' messages').'</small></i></b><br /><br /></center></td></tr>'); |
} |
} |
} |
} |
|
|
sub display_coursecritmail { |
sub display_coursecritmail { |
my ($r,$critmsgcount,$critmsgs,$rowColor1,$rowColor2) = @_; |
my ($r,$critmsgcount,$critmsgs,$rowColor1,$rowColor2) = @_; |
my $rowColor; |
my $rowColor; |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
if ($critmsgcount > 0) { |
if ($critmsgcount > 0) { |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>'); |
$r->print('<tr bgcolor="#cccccc"><td><b><small>'.&mt('Number').'</small></b></td><td><b><small>'.&mt('Subject').'</small></b></td><td><b><small>'.&mt('Sender').'</small></b></td><td><b><small>'.&mt('Date/Time').'</small></b></td></tr>'); |
my $rowNum = 0; |
my $rowNum = 0; |
Line 1349 sub display_coursecritmail {
|
Line 1365 sub display_coursecritmail {
|
$mailcount ++; |
$mailcount ++; |
} |
} |
} else { |
} else { |
$r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No unread critical messages in course').'</small></i></b><br /><br /></center></td></tr>'); |
$r->print('<tr><td bgcolor="#ffffff" width="100%"><center><br /><b><i><small>'.&mt('No unread critical messages in '.$lctype).'</small></i></b><br /><br /></center></td></tr>'); |
} |
} |
} |
} |
|
|
Line 1368 sub get_display_settings {
|
Line 1384 sub get_display_settings {
|
if ($tmp=~ /^(con_lost|error|no_such_host)/i) { |
if ($tmp=~ /^(con_lost|error|no_such_host)/i) { |
%settings = (); |
%settings = (); |
unless ($tmp =~ /^error: 2 /) { |
unless ($tmp =~ /^error: 2 /) { |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
&Apache::lonnet::logthis('Error retrieving whatsnew settings: '. |
&Apache::lonnet::logthis('Error retrieving whatsnew settings: '. |
$tmp.' for '.$uname.':'.$udom.' for course: '.$cid); |
$tmp.' for '.$uname.':'.$udom.' for '.$lctype.': '.$cid); |
} |
} |
} |
} |
return %settings; |
return %settings; |
Line 1409 sub store_interval_setting {
|
Line 1426 sub store_interval_setting {
|
'<b>'.$$interval_titles{$env{'form.interval'}}.'</b><br />'); |
'<b>'.$$interval_titles{$env{'form.interval'}}.'</b><br />'); |
|
|
} else { |
} else { |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
&Apache::lonnet::logthis('Error storing whatsnew interval setting'. |
&Apache::lonnet::logthis('Error storing whatsnew interval setting'. |
' '.$outcome.' for '.$uname.':'.$udom.' in course '.$cid); |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
$result = &mt('Unable to set interval to [_1] due to [_2].', |
$result = &mt('Unable to set interval to [_1] due to [_2].', |
'<b>'.$$interval_titles{$env{'form.interval'}}.'</b>', |
'<b>'.$$interval_titles{$env{'form.interval'}}.'</b>', |
'<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>.<br />'); |
Line 1432 sub store_discussion_setting {
|
Line 1450 sub store_discussion_setting {
|
'<b>'.$env{'form.countunread'}.'</b><br />'); |
'<b>'.$env{'form.countunread'}.'</b><br />'); |
|
|
} else { |
} else { |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
&Apache::lonnet::logthis('Error storing whatsnew countunread setting'. |
&Apache::lonnet::logthis('Error storing whatsnew countunread setting'. |
' '.$outcome.' for '.$uname.':'.$udom.' in course '.$cid); |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
$result = &mt('Unable to set "number unread posts display" to [_1]'. |
$result = &mt('Unable to set "number unread posts display" to [_1]'. |
' due to [_2].', |
' due to [_2].', |
'<b>'.$env{'form.countunread'}.'</b>', |
'<b>'.$env{'form.countunread'}.'</b>', |
Line 1460 sub store_courseinit_setting {
|
Line 1479 sub store_courseinit_setting {
|
} |
} |
} |
} |
if ($page_control) { |
if ($page_control) { |
|
my $lctype = lc(&Apache::loncommon::course_type()); |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
\%courseinit_settings,$udom,$uname); |
\%courseinit_settings,$udom,$uname); |
if ($outcome eq 'ok') { |
if ($outcome eq 'ok') { |
if ($page_control eq 'global preferences') { |
if ($page_control eq 'global preferences') { |
$result = &mt('Page displayed after role selection in course now set by [_1]',"<b>user's global preferences</b>."); |
$result = &mt("Page displayed after role selection in $lctype now set by <b>user's global preferences</b>."); |
} else { |
} else { |
$result = &mt('Page displayed after role selection in this course set to [_1]','<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>.'); |
$result = &mt('Page displayed after role selection in this '.$lctype.' set to <b>[_2]</b>',$lctype,$$initpage{$env{'form.courseinit_page'}}); |
} |
} |
} else { |
} else { |
&Apache::lonnet::logthis('Error storing whatsnew courseinit '. |
&Apache::lonnet::logthis('Error storing whatsnew courseinit '. |
'setting: '.$outcome.' for '.$uname. |
'setting: '.$outcome.' for '.$uname. |
':'.$udom.' in course '.$cid); |
':'.$udom.' in '.$lctype.' '.$cid); |
if ($page_control eq 'global preferences') { |
if ($page_control eq 'global preferences') { |
$result = &mt('Unable to set control of page display to [_1]'. |
$result = &mt('Unable to set control of page display to [_1]'. |
' due to [_2].', |
' due to [_2].', |
'<b>'.$page_control.'</b>', |
'<b>'.$page_control.'</b>', |
'<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>.<br />'); |
} else { |
} else { |
$result = &mt('Unable to set page display, after role selection, for this course to [_1] due to [_2].', |
$result = &mt('Unable to set page display, after role selection, for this '.$lctype.' to <b>[_2]</b> due to <tt>[_3]</tt>.<br />', |
'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>', |
$$initpage{$env{'form.courseinit_page'}},$outcome); |
'<tt>'.$outcome.'</tt>.<br />'); |
|
} |
} |
} |
} |
} |
} |
Line 1495 sub start_box {
|
Line 1514 sub start_box {
|
chin => 'Change interval?', |
chin => 'Change interval?', |
chop => 'Change options?', |
chop => 'Change options?', |
); |
); |
my $showhide; |
my ($showhide,$class); |
if ($$show{$caller}) { |
if ($$show{$caller}) { |
$showhide = '<b><a href="javascript:change_display(document.visible.'. |
$showhide = '<b><a href="javascript:change_display(document.visible.'. |
'display_'.$caller.",'hide'".');">Hide</a></b>'; |
'display_'.$caller.",'hide'".');">Hide</a></b>'; |
Line 1527 sub start_box {
|
Line 1546 sub start_box {
|
<td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'"><b><small>'.$lt{'chth'}.'</small></b></a></td> |
<td bgcolor="'.$tabbg.'" align="right"><a href="/adm/whatsnew?command=chgthreshold&refpage='.$refpage.'"><b><small>'.$lt{'chth'}.'</small></b></a></td> |
</tr>'); |
</tr>'); |
} |
} |
|
$class='class="LC_whatsnew"'; |
} elsif (($caller eq 'versionchanges') && ($$show{$caller})) { |
} elsif (($caller eq 'versionchanges') && ($$show{$caller})) { |
if ($$show{$caller}) { |
if ($$show{$caller}) { |
$r->print(' |
$r->print(' |
Line 1542 sub start_box {
|
Line 1562 sub start_box {
|
</tr>'); |
</tr>'); |
} |
} |
} |
} |
$r->print(' |
$r->print(' |
<tr> |
<tr> |
<td bgcolor="#ffffff"> |
<td bgcolor="#ffffff"> |
<table cellpadding="2" cellspacing="0" border="0" width="100%"> |
<table cellpadding="2" cellspacing="0" border="0" width="100%" '.$class.'> |
'); |
'); |
return; |
return; |
} |
} |