--- loncom/publisher/lonretrieve.pm 2002/05/29 18:25:17 1.17
+++ loncom/publisher/lonretrieve.pm 2003/02/03 18:03:53 1.21
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to retrieve an old version of a file
#
-# $Id: lonretrieve.pm,v 1.17 2002/05/29 18:25:17 stredwic Exp $
+# $Id: lonretrieve.pm,v 1.21 2003/02/03 18:03:53 harris41 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -39,7 +39,6 @@
# 03/24,03/29 Gerd Kortemeyer)
#
# 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer
-# 12/16 Scott Harrison
#
###
@@ -93,7 +92,7 @@ sub phaseone {
$r->print(
' Diffs with Version '.$version.'');
}
$r->print('');
@@ -112,7 +111,7 @@ sub phaseone {
$r->print(
' Diffs with current Version');
}
$r->print(''.
@@ -177,7 +176,7 @@ sub handler {
# Get query string for limited number of parameters
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['filename');
+ ['filename']);
if ($ENV{'form.filename'}) {
$fn=$ENV{'form.filename'};
@@ -215,8 +214,7 @@ sub handler {
$r->print('
LON-CAPA Construction Space');
- $r->print(
- '
');
+ $r->print(&Apache::loncommon::bodytag('Retrieve Published Resources'));
$r->print('Retrieve previous versions of '.$fn.'
');