loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.140, 2011/12/23 17:21:18	version 1.141, 2011/12/23 19:07:50
Line 524 sub putresource {	Line 524 sub putresource {
my $css_class='LC_browser_file';	my $css_class='LC_browser_file';
my $title=' ';	my $title=' ';
my $publish_button=&mt('Publish');	my $publish_button=&mt('Publish');
my $cstr_dir = $r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.'/'.$thisdisfn.'/';	my $cstr_dir = $r->dir_config('lonDocRoot').'/priv'.$thisdisfn;
my $linkfilename=&HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');	my $linkfilename=&HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');

if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
Line 598 sub putresource {	Line 598 sub putresource {
$title = &mt('Metadata Modified').'<br />'.$title.	$title = &mt('Metadata Modified').'<br />'.$title.
'<br />'.	'<br />'.
&Apache::loncommon::modal_link(	&Apache::loncommon::modal_link(
'/adm/diff?filename=/priv/'.$linkfilename.'.meta'.'&versiontwo=priv',	'/adm/diff?filename='.$linkfilename.'.meta'.'&versiontwo=priv',
&mt('Metadata Diffs'),600,500);	&mt('Metadata Diffs'),600,500);
$title.="\n".'<br />'.	$title.="\n".'<br />'.
&Apache::loncommon::modal_link(	&Apache::loncommon::modal_link(