loncom/interface/lonmodifycourse.pm - diff

Return to lonmodifycourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2003/12/29 14:38:44	version 1.5, 2003/12/30 15:46:18
Line 418 $disp_table	Line 418 $disp_table
<br/>	<br/>
ENDDOCUMENT	ENDDOCUMENT
&print_footer($r);	&print_footer($r);
	return;
}	}

sub modify_course {	sub modify_course {
Line 671 $bodytag	Line 672 $bodytag
</tr>	</tr>
</table>	</table>
ENDTHIS	ENDTHIS
	return;
}	}

sub print_footer {	sub print_footer {
my $r = shift;	my $r = shift;
$r->print(<<ENDBASE);	$r->print(<<ENDBASE);
<br/>	<br/>
</body>	</body>
</html>	</html>
ENDBASE	ENDBASE
	return;
}	}

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);
my @courses = ();
foreach my $key (sort keys %courseIDs) {	foreach my $key (sort keys %courseIDs) {
if ($key =~ m/^($dom)_(\w+)$/) {	if ($key =~ m/^($dom)_(\w+)$/) {
push @courses, $2;	if ($2 eq $course) {
	return 'ok';
	}
}	}
}	}
if (grep/^$course$/,@courses) {	return 'invalid course';
return 'ok';
}
else {
return 'invalid course';
}
}	}