loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.207, 2007/05/12 23:04:07	version 1.209, 2007/06/15 23:01:07
Line 1212 ENDBOMBS	Line 1212 ENDBOMBS
<input type="submit" name="clearmsg" value="$clear" />	<input type="submit" name="clearmsg" value="$clear" />
ENDDEL	ENDDEL
} else {	} else {
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>');	$r->print('<p><a href="'.$disuri.'">'.$goback.'</a></p>');
if ($env{'form.clearmsg'}) {	if ($env{'form.clearmsg'}) {
my ($diruri) = ($disuri =~ m{(./)[^/]});	my ($diruri) = ($disuri =~ m{(./)[^/]});
$r->print('<p><a href="'.$diruri.'" />'.	$r->print('<p><a href="'.$diruri.'">'.
&mt('Back To Directory').'</a></p>');	&mt('Back To Directory').'</a></p>');
}	}
}	}
Line 1312 ENDEDIT	Line 1312 ENDEDIT
$Apache::lonpublisher::metadatafields{'owner'} =	$Apache::lonpublisher::metadatafields{'owner'} =
$env{'user.name'}.':'.$env{'user.domain'};	$env{'user.name'}.':'.$env{'user.domain'};
}	}
	if (! $Apache::lonpublisher::metadatafields{'author'}) {
	$Apache::lonpublisher::metadatafields{'author'} =
	&Apache::loncommon::plainname($env{'user.name'},
	$env{'user.domain'});
	}
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {	if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') {

if ($file_type eq 'portfolio') {	if ($file_type eq 'portfolio') {