loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;