loncom/interface/lonmodifycourse.pm - diff

Return to lonmodifycourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2005/04/07 06:56:23	version 1.18, 2005/04/27 19:09:30
Line 45 sub print_course_selection_page {	Line 45 sub print_course_selection_page {
);	);

# Determine the courses	# Determine the courses
my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.');	my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.');
&print_header($r,$tasklongref);	&print_header($r,$tasklongref);
$r->print(<<ENDBLOCK);	$r->print(<<ENDBLOCK);
<form action="/adm/modifycourse" method="post" name="cmod">	<form action="/adm/modifycourse" method="post" name="cmod">
Line 142 sub print_course_modification_page {	Line 142 sub print_course_modification_page {
} else {	} else {
$ok_course = &check_course($dom,$course);	$ok_course = &check_course($dom,$course);
}	}
print STDERR "Response was $ok_course for $dom,$course\n";

unless ($ok_course eq 'ok') {	unless ($ok_course eq 'ok') {
&print_header($r,$tasklongref,'',\$javascript_validations);	&print_header($r,$tasklongref,'',\$javascript_validations);
Line 702 ENDBASE	Line 701 ENDBASE

sub check_course {	sub check_course {
my ($dom,$course) = @_;	my ($dom,$course) = @_;
my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.');	my %courseIDs = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.');
foreach my $key (sort keys %courseIDs) {	foreach my $key (sort keys %courseIDs) {
if ($key =~ m/^($dom)_(\w+)$/) {	if ($key =~ m/^($dom)_(\w+)$/) {
if ($2 eq $course) {	if ($2 eq $course) {