loncom/interface/lonpopulate.pm - diff

Return to lonpopulate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2003/12/08 17:06:26	version 1.3, 2003/12/08 17:37:49
Line 5 use lib qw(/home/httpd/lib/perl);	Line 5 use lib qw(/home/httpd/lib/perl);
use Apache::lonnet ();	use Apache::lonnet ();
use Apache::loncommon ();	use Apache::loncommon ();
use Apache::lonhtmlcommon ();	use Apache::lonhtmlcommon ();
use Apache::lonlocal ();	use Apache::lonlocal;
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 420 ENDTWO	Line 420 ENDTWO

my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($dom.'/'.$crs);	my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($dom.'/'.$crs);
foreach (sort keys %coursepersonnel) {	foreach (sort keys %coursepersonnel) {
if ($_ eq &Apache::lonlocal::mt("Course Coordinator") )	if ($_ eq &mt("Course Coordinator") )
{	{
my @ccs = ();	my @ccs = ();
if ($coursepersonnel{$_} =~ m/,/) {	if ($coursepersonnel{$_} =~ m/,/) {