loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.253, 2014/06/12 12:08:02	version 1.254, 2014/06/22 19:46:48
Line 763 sub pageheader {	Line 763 sub pageheader {
sub handler {	sub handler {
my $r=shift;	my $r=shift;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['currentpath','changecourse']);	['currentpath','changecourse','modal']);
my $uri=$r->uri;	my $uri=$r->uri;
#	#
# Set document type	# Set document type
Line 854 sub handler {	Line 854 sub handler {
'only_body' => 1,})	'only_body' => 1,})
.'<h1>'.&mt('Metadata').'</h1>'	.'<h1>'.&mt('Metadata').'</h1>'
);	);
	if ($env{'form.modal'}) {
	my $width = 500;
	my $height = 400;
	my $machine = &Apache::lonnet::absolute_url();
	$r->print(&Apache::loncommon::nicescroll_javascript('metadatawrapper',
	{cursorcolor => '#00F',
	railalign => 'right',
	railoffset => '{top:5,left:40}'},
	undef,1,$machine.$uri));
	$r->print('<div id="metadatawrapper" style="height:'.$height.'px; width:'.$width.'px; overflow: auto;">');
	}
&present_uneditable_metadata($r,$uri);	&present_uneditable_metadata($r,$uri);
	if ($env{'form.modal'}) {
	$r->print('</div>');
	}
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;