loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

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