loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.114 and 1.115

version 1.114, 2008/11/20 15:19:28	version 1.115, 2008/11/28 16:10:26
Line 106 sub handler {	Line 106 sub handler {

# Start off the directory table.	# Start off the directory table.
$r->print('<h3>'.&mt('Directory Contents:').'</h3>');	$r->print('<h3>'.&mt('Directory Contents:').'</h3>');
$r->print('<table id="LC_browser"><tr>'.	$r->print(&Apache::loncommon::start_data_table()
'<th>'.&mt('Type').'</th>'.	.&Apache::loncommon::start_data_table_header_row()
'<th>'.&mt('Actions').'</th>'.	.'<th>'.&mt('Type').'</th>'
'<th>'.&mt('Name').'</th>'.	.'<th>'.&mt('Actions').'</th>'
'<th>'.&mt('Title').'</th>'.	.'<th>'.&mt('Name').'</th>'
'<th>'.&mt('Status').'</th>'.	.'<th>'.&mt('Title').'</th>'
'<th>'.&mt('Last Modified').	.'<th colspan="2">'.&mt('Status').'</th>'
'</th></tr>'."\n");	.'<th>'.&mt('Last Modified').'</th>'
	.&Apache::loncommon::end_data_table_header_row()
	);

my $filename;	my $filename;
my $dirptr=16384; # Mask indicating a directory in stat.cmode.	my $dirptr=16384; # Mask indicating a directory in stat.cmode.
Line 139 sub handler {	Line 141 sub handler {
}	}
closedir(DIR);	closedir(DIR);

$r->print('</table>'.&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_data_table()
	.&Apache::loncommon::end_page()
	);
return OK;	return OK;
}	}
#	#
Line 566 sub putdirectory {	Line 570 sub putdirectory {
'<td>'.$actionitem.'</td>'.	'<td>'.$actionitem.'</td>'.
'<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.	'<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.
$disfilename.'</a></span></td>'.	$disfilename.'</a></span></td>'.
'<td colspan="2">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});	'<td colspan="3">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {	if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {
$r->print(' <i>'.	$r->print(' <i>'.
$Apache::lonpublisher::metadatafields{'subject'}.	$Apache::lonpublisher::metadatafields{'subject'}.
Line 688 sub putresource {	Line 692 sub putresource {
}	}
my $pub_select = '';	my $pub_select = '';
&create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);	&create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
$r->print('<tr class="LC_browser_file_'.$pubstatus.'">'.	$r->print(&Apache::loncommon::start_data_table_row().
'<td>'.($filename=~/[\#\~]$/?' ':	'<td>'.($filename=~/[\#\~]$/?' ':
'<img src="'.&Apache::loncommon::icon($filename).'" alt="" />').'</td>'.	'<img src="'.&Apache::loncommon::icon($filename).'" alt="" />').'</td>'.
'<td>'.$pub_select.'</td>'.	'<td>'.$pub_select.'</td>'.
Line 697 sub putresource {	Line 701 sub putresource {
$filename.'</a></span>'.$editlink2.$editlink.	$filename.'</a></span>'.$editlink2.$editlink.
'</td>'.	'</td>'.
'<td>'.$title.'</td>'.	'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.	'<td class="LC_browser_file_'.$pubstatus.'">  </td>'. # Display publication status
	'<td>'.$status.'</td>'.
'<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'.
"</tr>\n");	&Apache::loncommon::end_data_table_row()
	);
return OK;	return OK;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.114
changed lines
	Added in v.1.115