--- loncom/publisher/lonretrieve.pm 2005/12/12 21:59:12 1.28 +++ loncom/publisher/lonretrieve.pm 2006/04/06 22:15:19 1.30 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to retrieve an old version of a file # -# $Id: lonretrieve.pm,v 1.28 2005/12/12 21:59:12 albertel Exp $ +# $Id: lonretrieve.pm,v 1.30 2006/04/06 22:15:19 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -95,7 +95,7 @@ sub phaseone { closedir(DIR); my $rmtime=&Apache::lonnet::metadata($resfn,'lastrevisiondate'); $r->print(''. - ''.&mt('Currently public version').''.localtime($rmtime). + ''.&mt('Currently published version').''.localtime($rmtime). ''. &mt('Metadata current version').''); if (&Apache::loncommon::fileembstyle($suffix) eq 'ssi') { @@ -205,9 +205,7 @@ sub handler { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - $r->print('LON-CAPA Construction Space'); - - $r->print(&Apache::loncommon::bodytag('Retrieve Published Resources')); + $r->print(&Apache::loncommon::start_page('Retrieve Published Resources')); $r->print('

'.&mt('Retrieve previous versions of').' '.$fn.'

'); @@ -225,7 +223,7 @@ sub handler { &phaseone($r,$fn,$uname,$udom); } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }