loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.250, 2013/05/03 14:00:58	version 1.251, 2013/06/04 23:12:08
Line 778 sub handler {	Line 778 sub handler {

if ($env{'request.state'} eq 'construct') {	if ($env{'request.state'} eq 'construct') {
&Apache::lonhtmlcommon::add_breadcrumb({	&Apache::lonhtmlcommon::add_breadcrumb({
'text' => 'Construction Space',	'text' => 'Authoring Space',
'href' => &Apache::loncommon::authorspace($uri),	'href' => &Apache::loncommon::authorspace($uri),
});	});
}	}
Line 829 sub handler {	Line 829 sub handler {
$r->print(&pageheader());	$r->print(&pageheader());
&present_editable_metadata($r,$uri,'groups');	&present_editable_metadata($r,$uri,'groups');
} elsif ($uri=~m\|^/priv\|) {	} elsif ($uri=~m\|^/priv\|) {
# Construction space	# Authoring space
&Apache::lonhtmlcommon::add_breadcrumb({	&Apache::lonhtmlcommon::add_breadcrumb({
'text' => 'Edit Metadata',	'text' => 'Edit Metadata',
'href' => '',	'href' => '',
Line 1292 sub print_dynamic_metadata {	Line 1292 sub print_dynamic_metadata {
#####################################################	#####################################################
sub present_editable_metadata {	sub present_editable_metadata {
my ($r,$uri,$file_type) = @_;	my ($r,$uri,$file_type) = @_;
# Construction Space Call	# Authoring Space Call
# Header	# Header
my $disuri=$uri;	my $disuri=$uri;
my $fn=&Apache::lonnet::filelocation('',$uri);	my $fn=&Apache::lonnet::filelocation('',$uri);