--- loncom/publisher/lonpubdir.pm 2011/11/23 19:13:01 1.138 +++ loncom/publisher/lonpubdir.pm 2011/12/23 17:21:18 1.140 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.138 2011/11/23 19:13:01 raeburn Exp $ +# $Id: lonpubdir.pm,v 1.140 2011/12/23 17:21:18 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -584,8 +584,10 @@ sub putresource { $status=&mt('Modified'). '
'. $rights_status; if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') { - $status.='
'.&mt('Diffs').''; + $status.='
'. + &Apache::loncommon::modal_link( + '/adm/diff?filename='.$linkfilename.'&versiontwo=priv', + &mt('Diffs'),600,500); } } @@ -594,11 +596,18 @@ sub putresource { if (!$meta_same) { $title = &mt('Metadata Modified').'
'.$title. - '
'.&mt('Metadata Diffs').''; - $title.="\n".'
'.&mt('Retrieve Metadata').''; + '
'. + &Apache::loncommon::modal_link( + '/adm/diff?filename=/priv/'.$linkfilename.'.meta'.'&versiontwo=priv', + &mt('Metadata Diffs'),600,500); + $title.="\n".'
'. + &Apache::loncommon::modal_link( + '/adm/retrieve?filename='.$linkfilename.'.meta&inhibitmenu=yes&add_modal=yes', + &mt('Retrieve Metadata'),600,500); } - $status.="\n".'
'.&mt('Retrieve').''; + $status.="\n".'
'. + &Apache::loncommon::modal_link( + '/adm/retrieve?filename='.$linkfilename.'&inhibitmenu=yes&add_modal=yes',&mt('Retrieve'),600,500); } my $editlink=''; my $editlink2='';