--- loncom/publisher/lonretrieve.pm 2001/12/17 00:57:59 1.16
+++ 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.16 2001/12/17 00:57:59 harris41 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(''.
@@ -176,17 +175,8 @@ sub handler {
# Get query string for limited number of parameters
- foreach (split(/&/,$ENV{'QUERY_STRING'})) {
- my ($name, $value) = split(/=/,$_);
- $value =~ tr/+/ /;
- $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
- if ($name eq 'filename') {
- unless ($ENV{'form.'.$name}) {
- $ENV{'form.'.$name}=$value;
- }
- }
- }
-
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['filename']);
if ($ENV{'form.filename'}) {
$fn=$ENV{'form.filename'};
@@ -224,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.'
');