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.17, 2005/04/12 00:20:00
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);