--- loncom/publisher/lonretrieve.pm 2009/08/11 15:15:01 1.41 +++ loncom/publisher/lonretrieve.pm 2009/08/13 05:07:55 1.41.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to retrieve an old version of a file # -# $Id: lonretrieve.pm,v 1.41 2009/08/11 15:15:01 bisitz Exp $ +# $Id: lonretrieve.pm,v 1.41.2.1 2009/08/13 05:07:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -204,20 +204,9 @@ sub phaseone { $r->print('

'.&mt('No previous versions published.').'

'); } - my $dir = &Apache::loncommon::authorspace() - .&File::Basename::dirname($fn) - .'/'; - $r->print(&Apache::lonhtmlcommon::start_funclist() - .&Apache::lonhtmlcommon::add_item_funclist( - '' - .&mt('Back to Resource') - .'') - .&Apache::lonhtmlcommon::add_item_funclist( - '' - .&mt('Back to Directory') - .'') - .&Apache::lonhtmlcommon::end_funclist() - ); + $r->print('

' + .&mt('Back to [_1]',''.$fn.'') + .'

'); } # ---------------------------------- Interface for presenting specified version @@ -334,23 +323,7 @@ sub handler { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - # 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(&Apache::loncommon::start_page('Retrieve Published Resources')); $r->print('

' .&mt('Retrieve previous versions of [_1]' ,''.$fn.'')