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'; |
|
} |
|
} |
} |
|
|
|
|