loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.99, 2007/01/10 19:51:35	version 1.101, 2007/03/09 01:29:51
Line 215 sub startpage {	Line 215 sub startpage {
$r->print($pagetitle);	$r->print($pagetitle);
}	}

	my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);
my $pubdirscript=(<<ENDPUBDIRSCRIPT);	my $pubdirscript=(<<ENDPUBDIRSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
top.document.title = '$thisdisfn/ - LON-CAPA Construction Space';	top.document.title = '$esc_thisdisfn/ - LON-CAPA Construction Space';
// Store directory location for menu bar to find	// Store directory location for menu bar to find

parent.lastknownpriv='/~$uname$thisdisfn/';	parent.lastknownpriv='/~$uname$esc_thisdisfn/';

// Confirmation dialogues	// Confirmation dialogues

Line 609 sub putresource {	Line 610 sub putresource {
$title = '<a href="/res/'.$targetdir.'/'.$filename.	$title = '<a href="/res/'.$targetdir.'/'.$filename.
'.meta" target="cat">'.	'.meta" target="cat">'.
&getTitleString($targetdir.'/'.$filename).'</a>';	&getTitleString($targetdir.'/'.$filename).'</a>';
&Apache::lonnet::logthis("same $same meta $meta_same");
if ($same) {	if ($same) {
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {	if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
$pubstatus = 'obsolete';	$pubstatus = 'obsolete';