version 1.68, 2007/02/27 22:16:02
|
version 1.69, 2007/03/02 20:58:32
|
Line 144 sub display_main_box {
|
Line 144 sub display_main_box {
|
my ($r,$command,$refpage,$checkallowed) = @_; |
my ($r,$command,$refpage,$checkallowed) = @_; |
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 $lctype = lc(&Apache::loncommon::course_type()); |
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%">'); |
|
|
Line 172 sub display_main_box {
|
Line 171 sub display_main_box {
|
|
|
if (($command eq 'chgthreshold') |
if (($command eq 'chgthreshold') |
&& $checkallowed->{'abovethreshold'}) { |
&& $checkallowed->{'abovethreshold'}) { |
&display_threshold_config($r,$refpage,$tabbg,\%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'}) { |
Line 183 sub display_main_box {
|
Line 182 sub display_main_box {
|
} elsif ($command eq 'courseinit') { |
} elsif ($command eq 'courseinit') { |
&courseinit_config($r,$refpage,\%initpage); |
&courseinit_config($r,$refpage,\%initpage); |
} else { |
} else { |
&display_actions_box($r,$tabbg,$command,$refpage,\%threshold_titles, |
&display_actions_box($r,$command,$refpage,\%threshold_titles, |
\%interval_titles,\%initpage,$cdom,$crs,$checkallowed); |
\%interval_titles,\%initpage,$cdom,$crs,$checkallowed); |
} |
} |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
Line 241 END
|
Line 240 END
|
#------------------------------- |
#------------------------------- |
|
|
sub display_actions_box { |
sub display_actions_box { |
my ($r,$tabbg,$command,$refpage,$threshold_titles,$interval_titles, |
my ($r,$command,$refpage,$threshold_titles,$interval_titles,$initpage, |
$initpage,$cdom,$crs,$checkallowed) = @_; |
$cdom,$crs,$checkallowed) = @_; |
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'}; |
Line 429 sub display_actions_box {
|
Line 428 sub display_actions_box {
|
if ($displayed == $halfway) { |
if ($displayed == $halfway) { |
$r->print('</td><td width="6%"> </td><td align="left" valign="top" width="47%">'); |
$r->print('</td><td width="6%"> </td><td align="left" valign="top" width="47%">'); |
} |
} |
&display_launcher($r,$actionitem,$refpage,$checkallowed,$tabbg,\%show,\%headings,\%res_title,\@tograde,\%ungraded,\@bombs,\%bombed,\%changed,\@warnings,\%triggered,\@newdiscussions,\%unread,$msgcount,\@newmsgs,$critmsgcount,\@critmsgs,$interval,$countunread); |
&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); |
$displayed ++; |
$displayed ++; |
} |
} |
} |
} |
Line 451 sub display_actions_box {
|
Line 450 sub display_actions_box {
|
#------------------------------- |
#------------------------------- |
|
|
sub display_threshold_config { |
sub display_threshold_config { |
my ($r,$refpage,$tabbg,$threshold_titles,$cdom,$crs) = @_; |
my ($r,$refpage,$threshold_titles,$cdom,$crs) = @_; |
my $uname = $env{'user.name'}; |
my $uname = $env{'user.name'}; |
my $udom = $env{'user.dom'}; |
my $udom = $env{'user.dom'}; |
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
Line 654 sub curr_courseinit {
|
Line 653 sub curr_courseinit {
|
} |
} |
|
|
sub display_launcher { |
sub display_launcher { |
my ($r,$action,$refpage,$checkallowed,$tabbg,$show,$headings,$res_title, |
my ($r,$action,$refpage,$checkallowed,$show,$headings,$res_title, |
$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) = @_; |
$interval,$countunread) = @_; |
|
|
if ($$checkallowed{$action}) { |
if ($$checkallowed{$action}) { |
&start_box($r,$tabbg,$show,$headings,$action,$refpage,$action); |
&start_box($r,$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,$ungraded); |
&display_handgrade($r,$tograde,$ungraded); |
Line 1506 sub store_courseinit_setting {
|
Line 1505 sub store_courseinit_setting {
|
} |
} |
|
|
sub start_box { |
sub start_box { |
my ($r,$tabbg,$show,$heading,$caller,$refpage) = @_; |
my ($r,$show,$heading,$caller,$refpage) = @_; |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
chth => 'Change thresholds?', |
chth => 'Change thresholds?', |
chin => 'Change interval?', |
chin => 'Change interval?', |