version 1.42, 2006/05/16 21:56:14
|
version 1.43, 2006/05/18 01:08:51
|
Line 32 use Apache::loncommon;
|
Line 32 use Apache::loncommon;
|
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
|
use Apache::longroup; |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Time::Local; |
use Time::Local; |
use LONCAPA::Enrollment; |
use LONCAPA::Enrollment; |
Line 1748 sub print_crosslistings_response () {
|
Line 1749 sub print_crosslistings_response () {
|
} |
} |
|
|
if ($numcross > 0) { |
if ($numcross > 0) { |
my %curr_groups = &Apache::loncommon::coursegroups(); |
my %curr_groups = &Apache::longroup::coursegroups(); |
for (my $i=0; $i<$numcross; $i++) { |
for (my $i=0; $i<$numcross; $i++) { |
my $xl = "newcross_".$i; |
my $xl = "newcross_".$i; |
my $lc_sec = "newlcsec_".$i; |
my $lc_sec = "newlcsec_".$i; |
Line 2065 sub print_sections_response () {
|
Line 2066 sub print_sections_response () {
|
} |
} |
|
|
if ($numsec > 0) { |
if ($numsec > 0) { |
my %curr_groups = &Apache::loncommon::coursegroups(); |
my %curr_groups = &Apache::longroup::coursegroups(); |
for (my $i=0; $i<$numsec; $i++) { |
for (my $i=0; $i<$numsec; $i++) { |
my $sec = "newsec_".$i; |
my $sec = "newsec_".$i; |
my $lc_sec = "newlcsec_".$i; |
my $lc_sec = "newlcsec_".$i; |