--- loncom/publisher/lonretrieve.pm 2001/12/17 00:57:59 1.16
+++ loncom/publisher/lonretrieve.pm 2002/10/19 06:34:15 1.20
@@ -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.20 2002/10/19 06:34:15 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -93,7 +93,7 @@ sub phaseone {
$r->print(
' Diffs with Version '.$version.'');
}
$r->print('');
@@ -112,7 +112,7 @@ sub phaseone {
$r->print(
' Diffs with current Version');
}
$r->print(''.
@@ -176,17 +176,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 +215,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.'
');