--- loncom/publisher/lonretrieve.pm 2002/05/30 14:08:42 1.18
+++ loncom/publisher/lonretrieve.pm 2003/05/19 21:53:03 1.22
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to retrieve an old version of a file
#
-# $Id: lonretrieve.pm,v 1.18 2002/05/30 14:08:42 www Exp $
+# $Id: lonretrieve.pm,v 1.22 2003/05/19 21:53:03 albertel 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
#
###
@@ -78,7 +77,7 @@ sub phaseone {
my $filename;
opendir(DIR,$resdir);
while ($filename=readdir(DIR)) {
- if ($filename=~/^$main\.(\d+)\.$suffix$/) {
+ if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
my $version=$1;
my ($rdev,$rino,$rmode,$rnlink,
$ruid,$rgid,$rrdev,$rsize,
@@ -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(''.
@@ -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.'
');