version 1.240, 2005/08/26 18:57:42
|
version 1.241, 2005/08/26 19:55:19
|
Line 2727 ENDMAINFORMHEAD
|
Line 2727 ENDMAINFORMHEAD
|
### Set instructor defined metadata |
### Set instructor defined metadata |
sub setinstmeta { |
sub setinstmeta { |
my ($r)=@_; |
my ($r)=@_; |
my $setoutput=''; |
my $setoutput=''; |
$r->print(&Apache::lonxml::xmlbegin()); |
$r->print(&Apache::lonxml::xmlbegin()); |
$r->print('<head> |
$r->print('<head> |
<title>LON-CAPA Set Instructor Metadata</title> |
<title>LON-CAPA Set Instructor Metadata</title> |
</head>'); |
</head>'); |
|
|
$r->print(&Apache::loncommon::bodytag('Set Instructor Metadata')); |
$r->print(&Apache::loncommon::bodytag('Set Instructor Metadata')); |
$r->print(&Apache::lonhtmlcommon::breadcrumbs(undef, |
$r->print(&Apache::lonhtmlcommon::breadcrumbs(undef, |
'Set Instructor Metadata')); |
'Set Instructor Metadata')); |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'}; |
$r->print('Set instructor metadata here'); |
$r->print('Set instructor metadata here'); |
|
$r->print('</body> |
|
</html>'); |
return 'ok'; |
return 'ok'; |
} |
} |
################################################## |
################################################## |