[BACK]Return to lonpubdir.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.140 and 1.142

version 1.140, 2011/12/23 17:21:18 version 1.142, 2012/04/24 10:29:53
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'.'&amp;versiontwo=priv',                      '/adm/diff?filename='.$linkfilename.'.meta'.'&amp;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(
Line 608  sub putresource { Line 608  sub putresource {
  $status.="\n".'<br />'.   $status.="\n".'<br />'.
              &Apache::loncommon::modal_link(               &Apache::loncommon::modal_link(
                  '/adm/retrieve?filename='.$linkfilename.'&amp;inhibitmenu=yes&amp;add_modal=yes',&mt('Retrieve'),600,500);                   '/adm/retrieve?filename='.$linkfilename.'&amp;inhibitmenu=yes&amp;add_modal=yes',&mt('Retrieve'),600,500);
       } else {
           # Allow editing metadata of unpublished resources
           $title .= '<a href="'.$linkfilename.'.meta">'.&mt('Edit Metadata').'</a>';
     }      }
     my $editlink='';      my $editlink='';
     my $editlink2='';      my $editlink2='';
Removed from v.1.140  
changed lines
  Added in v.1.142

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