version 1.23, 2005/04/07 06:56:23
|
version 1.26, 2005/09/16 16:01:18
|
Line 151 function process(calling,numauto,nummanu
|
Line 151 function process(calling,numauto,nummanu
|
} |
} |
|; |
|; |
if ($action eq 'viewclass') { |
if ($action eq 'viewclass') { |
|
$scripttag .= &Apache::loncommon::check_uncheck_jscript(); |
$scripttag .= qq| |
$scripttag .= qq| |
function checkAll(field) { |
|
if (field.length > 0) { |
|
for (i = 0; i < field.length; i++) { |
|
field[i].checked = true ; |
|
} |
|
} else { |
|
field.checked = true |
|
} |
|
} |
|
|
|
function uncheckAll(field) { |
|
if (field.length > 0) { |
|
for (i = 0; i < field.length; i++) { |
|
field[i].checked = false ; |
|
} |
|
} else { |
|
field.checked = false ; |
|
} |
|
} |
|
|
|
function countChecked(field) { |
function countChecked(field) { |
var count = 0; |
var count = 0; |
if (field.length > 0) { |
if (field.length > 0) { |
Line 559 ENDTWO
|
Line 540 ENDTWO
|
my @roleinfo = split/:/,$_; |
my @roleinfo = split/:/,$_; |
if ($roleinfo[0] eq 'cc') { |
if ($roleinfo[0] eq 'cc') { |
unless (grep/^$roleinfo[1]\@$roleinfo[2]/,@ccs) { |
unless (grep/^$roleinfo[1]\@$roleinfo[2]/,@ccs) { |
my $active_cc = &LONCAPA::Enrollment::check_user_status($roleinfo[2],$roleinfo[1],$dom,$crs,'cc'); |
my $active_cc = &Apache::loncommon::check_user_status($roleinfo[2],$roleinfo[1],$dom,$crs,'cc'); |
if ($active_cc eq 'ok') { |
if ($active_cc eq 'active') { |
push @ccs, "$roleinfo[1]\@$roleinfo[2]"; |
push @ccs, "$roleinfo[1]\@$roleinfo[2]"; |
$pname{"$roleinfo[1]\@$roleinfo[2]"} = &Apache::loncommon::plainname($roleinfo[1],$roleinfo[2]); |
$pname{"$roleinfo[1]\@$roleinfo[2]"} = &Apache::loncommon::plainname($roleinfo[1],$roleinfo[2]); |
if (grep/^$roleinfo[1]\@$roleinfo[2]$/,@notified) { |
if (grep/^$roleinfo[1]\@$roleinfo[2]$/,@notified) { |
Line 2248 sub print_viewclass_response {
|
Line 2229 sub print_viewclass_response {
|
my $secidx=&Apache::loncoursedata::CL_SECTION; |
my $secidx=&Apache::loncoursedata::CL_SECTION; |
my $typeidx=&Apache::loncoursedata::CL_TYPE; |
my $typeidx=&Apache::loncoursedata::CL_TYPE; |
my $lockedidx=&Apache::loncoursedata::CL_LOCKEDTYPE; |
my $lockedidx=&Apache::loncoursedata::CL_LOCKEDTYPE; |
my @typechglist = (); |
|
my @lockchglist = (); |
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['chgauto','chgmanual','lockchg','unlockchg']); |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['chgauto','chgmanual','lockchg','unlockchg']); |
if ($env{'form.chgauto'}) { |
my @typechglist = (&Apache::loncommon::get_env_multiple('form.chgauto'), |
if (ref($env{'form.chgauto'}) eq 'ARRAY') { |
&Apache::loncommon::get_env_multiple('form.chgmanual')); |
push @typechglist, @{$env{'form.chgauto'}}; |
my @lockchglist = (&Apache::loncommon::get_env_multiple('form.lockchg'), |
} else { |
&Apache::loncommon::get_env_multiple('form.unlockchg')); |
push @typechglist, $env{'form.chgauto'}; |
|
} |
|
} |
|
if ($env{'form.chgmanual'}) { |
|
if (ref($env{'form.chgmanual'}) eq 'ARRAY') { |
|
push @typechglist, @{$env{'form.chgmanual'}}; |
|
} else { |
|
push @typechglist, $env{'form.chgmanual'}; |
|
} |
|
} |
|
if ($env{'form.lockchg'}) { |
|
if (ref($env{'form.lockchg'}) eq 'ARRAY') { |
|
push @lockchglist, @{$env{'form.lockchg'}}; |
|
} else { |
|
push @lockchglist, $env{'form.lockchg'}; |
|
} |
|
} |
|
if ($env{'form.unlockchg'}) { |
|
if (ref($env{'form.unlockchg'}) eq 'ARRAY') { |
|
push @lockchglist, @{$env{'form.unlockchg'}}; |
|
} else { |
|
push @lockchglist, $env{'form.unlockchg'}; |
|
} |
|
} |
|
foreach my $student (sort @typechglist) { |
foreach my $student (sort @typechglist) { |
my ($uname,$udom) = split/:/,$student; |
my ($uname,$udom) = split/:/,$student; |
my $sdata = $classlist->{$student}; |
my $sdata = $classlist->{$student}; |