version 1.47, 2006/01/06 23:56:05
|
version 1.50, 2006/01/13 01:18:44
|
Line 100 sub handler {
|
Line 100 sub handler {
|
({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, |
({href=>'/adm/whatsnew?command=chgthreshold&refpage='.$refpage, |
text=>"Change thresholds"}); |
text=>"Change thresholds"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,"What's New?",'Course_Action_Items_Thresholds')); |
(undef,"What's New?",#'Course_Action_Items_Thresholds' |
|
)); |
} elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) { |
} elsif (($command eq 'chginterval') && $checkallowed{'versionchanges'} ) { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage, |
({href=>'/adm/whatsnew?command=chginterval&refpage='.$refpage, |
text=>"Change interval"}); |
text=>"Change interval"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,"What's New?",'Course_Action_Items_Intervals')); |
(undef,"What's New?",#'Course_Action_Items_Intervals' |
|
)); |
} elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) { |
} elsif (($command eq 'chgdisc') && $checkallowed{'coursediscussion'}) { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage, |
({href=>'/adm/whatsnew?command=chgdisc&refpage='.$refpage, |
text=>"Change discussion display"}); |
text=>"Change discussion display"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,"What's New?",'Course_Action_Items_Intervals')); |
(undef,"What's New?",#'Course_Action_Items_Intervals' |
|
)); |
} elsif ($command eq 'courseinit') { |
} elsif ($command eq 'courseinit') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage, |
({href=>'/adm/whatsnew?command=courseinit&refpage='.$refpage, |
text=>"Course initialization preference"}); |
text=>"Course initialization preference"}); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,"What's New?",'Course_Action_Items_Initialization')); |
(undef,"What's New?",#'Course_Action_Items_Initialization' |
|
)); |
} else { |
} else { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
$r->print(&Apache::lonhtmlcommon::breadcrumbs |
(undef,"What's New?",'Course_Action_Items_Display')); |
(undef,"What's New?",#'Course_Action_Items_Display' |
|
)); |
} |
} |
&display_main_box($r,$command,$refpage,\%checkallowed); |
&display_main_box($r,$command,$refpage,\%checkallowed); |
return OK; |
return OK; |
Line 311 sub display_actions_box {
|
Line 316 sub display_actions_box {
|
} |
} |
} |
} |
$r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>'). |
$r->print($lt{'pgse'}.' '.&mt('Currently: [_1]','<i>'.$currinit.'</i>'). |
'<nobr> '.&mt('[_1] for just [_2]','<b>Change</b>', |
' <nobr> '.&mt('[_1] for just [_2]','<b>Change</b>', |
'<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage. |
'<a href="/adm/whatsnew?command=courseinit&refpage='.$refpage. |
'">this course</a>').' '.&mt('or for all [_1].', |
'">this course</a>').' '.&mt('or for all [_1].', |
'<a href="/adm/preferences?action=changecourseinit&refpage='. |
'<a href="/adm/preferences?action=changecourseinit&refpage='. |
Line 396 sub display_actions_box {
|
Line 401 sub display_actions_box {
|
&getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread); |
&getitems(\%unread,\%ungraded,\%bombed,\%triggered,\%changed,\@newdiscussions,\@tograde,\@bombs,\@warnings,$rowColor1,$rowColor2,\%threshold,$cdom,$crs,\%res_title,\%show,$starttime,$countunread); |
} |
} |
if ($show{'coursenormalmail'}) { |
if ($show{'coursenormalmail'}) { |
&getnormalmail(\@newmsgs); |
$msgcount = &getnormalmail(\@newmsgs); |
} |
} |
if ($show{'coursecritmail'}) { |
if ($show{'coursecritmail'}) { |
&getcritmail(\@critmsgs); |
$critmsgcount = &getcritmail(\@critmsgs); |
} |
} |
|
|
$r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a> |
$r->print(qq|<a href="javascript:changeAll('hide');">$lt{'hial'}</a> |
Line 890 sub check_thresholds {
|
Line 895 sub check_thresholds {
|
if ($resource->handgrade($part) eq 'yes') { |
if ($resource->handgrade($part) eq 'yes') { |
next; |
next; |
} |
} |
|
if ($resource->is_survey($part)) { |
|
next; |
|
} |
%{$stats{$part}} = (); |
%{$stats{$part}} = (); |
my ($attempts,$users,$corrects,$degdiff,$av_attempts); |
my ($attempts,$users,$corrects,$degdiff,$av_attempts); |
if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) { |
if (exists($$resourcetracker{$symb."\0".$part."\0attempts"})) { |