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

Diff for /loncom/publisher/lonretrieve.pm between versions 1.41.2.1 and 1.42

version 1.41.2.1, 2009/08/13 05:07:55 version 1.42, 2010/12/14 16:26:04
Line 204  sub phaseone { Line 204  sub phaseone {
  $r->print('<p class="LC_warning">'.&mt('No previous versions published.').'</p>');   $r->print('<p class="LC_warning">'.&mt('No previous versions published.').'</p>');
     }      }
   
    $r->print('<p><a href="/priv/'.$uname.$fn.'">'      my $dir =  &Apache::loncommon::authorspace()
             .&mt('Back to [_1]','<span class="LC_filename">'.$fn.'</span>')                .&File::Basename::dirname($fn)
             .'</a></p>');                 .'/';
       $r->print(&Apache::lonhtmlcommon::start_funclist()
                .&Apache::lonhtmlcommon::add_item_funclist(
                     '<a href="/priv/'.$uname.$fn.'">'
                    .&mt('Back to Resource')
                    .'</a>')
                .&Apache::lonhtmlcommon::add_item_funclist(
                     '<a href="'.$dir.'">'
                    .&mt('Back to Directory')
                    .'</a>')
                .&Apache::lonhtmlcommon::end_funclist()
       );
 }  }
   
 # ---------------------------------- Interface for presenting specified version  # ---------------------------------- Interface for presenting specified version
Line 323  sub handler { Line 334  sub handler {
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;    $r->send_http_header;
   
   $r->print(&Apache::loncommon::start_page('Retrieve Published Resources'));      # Breadcrumbs
       &Apache::lonhtmlcommon::clear_breadcrumbs();
       &Apache::lonhtmlcommon::add_breadcrumb({
           'text'  => 'Construction Space',
           'href'  => &Apache::loncommon::authorspace(),
       });
       &Apache::lonhtmlcommon::add_breadcrumb({
           'text'  => 'Retrieve previous version',
           'href'  => '',
       });
   
     $r->print(&Apache::loncommon::start_page('Retrieve Published Resources')
              .&Apache::lonhtmlcommon::breadcrumbs()
              .&Apache::loncommon::head_subbox(
                   &Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?
       );
   
   $r->print('<p>'    $r->print('<p>'
            .&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'})) {    if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
           $r->print('<p><span class="LC_warning">'            $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.')')
Removed from v.1.41.2.1  
changed lines
  Added in v.1.42

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