version 1.23, 2005/04/07 06:56:23
|
version 1.25, 2005/09/14 21:25:52
|
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 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}; |