version 1.80.2.3, 2008/12/21 16:41:15
|
version 1.97, 2009/11/19 14:05:46
|
Line 99 sub handler {
|
Line 99 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 194 sub display_main_box {
|
Line 194 sub display_main_box {
|
); |
); |
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", |
); |
); |
Line 267 END
|
Line 267 END
|
'; |
'; |
} |
} |
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 288 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 327 sub display_actions_box {
|
Line 327 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 341 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=$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); |
Line 376 sub display_actions_box {
|
Line 381 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 592 sub display_threshold_config {
|
Line 599 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 648 sub display_interval_config {
|
Line 655 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 678 function toggle_countunread(choice) {
|
Line 685 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 717 sub courseinit_config {
|
Line 730 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 880 sub getitems {
|
Line 893 sub getitems {
|
} |
} |
|
|
} |
} |
return; |
return; |
} |
} |
|
|
sub check_discussions { |
sub check_discussions { |
Line 1153 sub getnormalmail {
|
Line 1166 sub getnormalmail {
|
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; |
my $numsendtime = $sendtime; |
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
|
if ($status eq 'new') { |
if ($status eq 'new') { |
$msgcount ++; |
$sendtime = &Apache::lonlocal::locallocaltime($sendtime); |
|
$msgcount ++; |
if ($shortsubj eq '') { |
if ($shortsubj eq '') { |
$shortsubj = &mt('No subject'); |
$shortsubj = &mt('No subject'); |
} |
} |
Line 1691 sub display_coursediscussion {
|
Line 1704 sub display_coursediscussion {
|
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='.$$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 1889 sub store_courseinit_setting {
|
Line 1902 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 = &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 = &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 '. |
Line 1903 sub store_courseinit_setting {
|
Line 1917 sub store_courseinit_setting {
|
'<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 '.$lctype.' to <b>[_2]</b> due to <tt>[_3]</tt>.<br />', |
$result = &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>') |
|
.'<br />'; |
} |
} |
} |
} |
} |
} |