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

Diff for /loncom/publisher/lonretrieve.pm between versions 1.49 and 1.53

version 1.49, 2012/10/29 17:38:55 version 1.53, 2023/07/23 12:24:16
Line 161  sub phaseone { Line 161  sub phaseone {
     || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {      || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
     $r->print('<td>'.      $r->print('<td>'.
                               &Apache::loncommon::modal_link(                                &Apache::loncommon::modal_link(
                                '/adm/diff?filename=/priv/'.$udom,'/'.$uname.$fn.                                 '/adm/diff?filename=/priv/'.$udom.'/'.$uname.$fn.
       '&amp;versiontwo=priv&amp;versionone='.$version,        '&amp;versiontwo=priv&amp;versionone='.$version,
        &mt('Diffs with Version [_1]',$version),550,450).         &mt('Diffs with Version [_1]',$version),550,450).
       '</td>');        '</td>');
Line 194  sub phaseone { Line 194  sub phaseone {
  $r->print(&Apache::loncommon::end_data_table_row().   $r->print(&Apache::loncommon::end_data_table_row().
   &Apache::loncommon::end_data_table().    &Apache::loncommon::end_data_table().
   '<p>'.'<span class="LC_warning">'.    '<p>'.'<span class="LC_warning">'.
   &mt('Retrieval of an old version will overwrite the file currently in construction space.').'</span></p>');    &mt('Retrieval of an old version will overwrite the file currently in Authoring Space.').'</span></p>');
  if (!$is_meta) {   if (!$is_meta) {
     $r->print('<p>'.'<span class="LC_warning">'.      $r->print('<p>'.'<span class="LC_warning">'.
       &mt('This will only retrieve the resource. If you want to retrieve the metadata, you will need to do that separately.').        &mt('This will only retrieve the resource. If you want to retrieve the metadata, you will need to do that separately.').
Line 302  sub handler { Line 302  sub handler {
 # ----------------------------------------------------------- Start page output  # ----------------------------------------------------------- Start page output
   my $uname;    my $uname;
   my $udom;    my $udom;
     my $crsauthor;
   
   ($uname,$udom) = &Apache::lonnet::constructaccess($fn);    ($uname,$udom) = &Apache::lonnet::constructaccess($fn);
   unless (($uname ne '') && ($udom ne '')) {    unless (($uname ne '') && ($udom ne '')) {
Line 316  sub handler { Line 317  sub handler {
   $r->send_http_header;    $r->send_http_header;
   
     # Breadcrumbs      # Breadcrumbs
       my $text = 'Authoring Space';
       my $href = &Apache::loncommon::authorspace($fn);
       if ($env{'request.course.id'}) {
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           if ($href eq "/priv/$cdom/$cnum/") {
               $text = 'Course Authoring Space';
               $crsauthor = 1;
           }
       }
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => 'Construction Space',          'text'  => $text, 
         'href'  => &Apache::loncommon::authorspace($fn),          'href'  => $href,
     });      });
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         'text'  => 'Retrieve previous version',          'text'  => 'Retrieve previous version',
Line 342  sub handler { Line 353  sub handler {
            .&mt('Retrieve previous versions of [_1]'             .&mt('Retrieve previous versions of [_1]'
                    ,'<span class="LC_filename">'.$fn.'</span>')                     ,'<span class="LC_filename">'.$fn.'</span>')
            .'</p>');             .'</p>');
     
   if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {    unless ($crsauthor) {
         if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
           $r->print('<p><span class="LC_info">'            $r->print('<p><span class="LC_info">'
                    .&mt('Co-Author [_1]'                     .&mt('Co-Author [_1]'
                        ,&Apache::loncommon::plainname($uname,$udom)                         ,&Apache::loncommon::plainname($uname,$udom)
                        .' ('.$uname.':'.$udom.')')                         .' ('.$uname.':'.$udom.')')
                    .'</span></p>');                     .'</span></p>');
         }
   }    }
   
   
Removed from v.1.49  
changed lines
  Added in v.1.53

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