version 1.16, 2001/12/17 00:57:59
|
version 1.22, 2003/05/19 21:53:03
|
Line 39
|
Line 39
|
# 03/24,03/29 Gerd Kortemeyer) |
# 03/24,03/29 Gerd Kortemeyer) |
# |
# |
# 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer |
# 03/31,04/03,05/02,05/09,06/23,08/20 Gerd Kortemeyer |
# 12/16 Scott Harrison |
|
# |
# |
### |
### |
|
|
Line 78 sub phaseone {
|
Line 77 sub phaseone {
|
my $filename; |
my $filename; |
opendir(DIR,$resdir); |
opendir(DIR,$resdir); |
while ($filename=readdir(DIR)) { |
while ($filename=readdir(DIR)) { |
if ($filename=~/^$main\.(\d+)\.$suffix$/) { |
if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) { |
my $version=$1; |
my $version=$1; |
my ($rdev,$rino,$rmode,$rnlink, |
my ($rdev,$rino,$rmode,$rnlink, |
$ruid,$rgid,$rrdev,$rsize, |
$ruid,$rgid,$rrdev,$rsize, |
Line 93 sub phaseone {
|
Line 92 sub phaseone {
|
$r->print( |
$r->print( |
' <a target=cat href="/adm/diff?filename=/~'. |
' <a target=cat href="/adm/diff?filename=/~'. |
$uname.$fn. |
$uname.$fn. |
'&versionone=priv&versiontwo='.$version. |
'&versiontwo=priv&versiontwo='.$version. |
'">Diffs with Version '.$version.'</a>'); |
'">Diffs with Version '.$version.'</a>'); |
} |
} |
$r->print('</a></td></tr>'); |
$r->print('</a></td></tr>'); |
Line 112 sub phaseone {
|
Line 111 sub phaseone {
|
$r->print( |
$r->print( |
' <a target=cat href="/adm/diff?filename=/~'. |
' <a target=cat href="/adm/diff?filename=/~'. |
$uname.$fn. |
$uname.$fn. |
'&versionone=priv'. |
'&versiontwo=priv'. |
'">Diffs with current Version</a>'); |
'">Diffs with current Version</a>'); |
} |
} |
$r->print('</td></tr></table><p>'. |
$r->print('</td></tr></table><p>'. |
Line 176 sub handler {
|
Line 175 sub handler {
|
|
|
# Get query string for limited number of parameters |
# Get query string for limited number of parameters |
|
|
foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
my ($name, $value) = split(/=/,$_); |
['filename']); |
$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; |
|
} |
|
} |
|
} |
|
|
|
|
|
if ($ENV{'form.filename'}) { |
if ($ENV{'form.filename'}) { |
$fn=$ENV{'form.filename'}; |
$fn=$ENV{'form.filename'}; |
Line 224 sub handler {
|
Line 214 sub handler {
|
|
|
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>'); |
$r->print('<html><head><title>LON-CAPA Construction Space</title></head>'); |
|
|
$r->print( |
$r->print(&Apache::loncommon::bodytag('Retrieve Published Resources')); |
'<body bgcolor="#FFFFFF"><img align=right src=/adm/lonIcons/lonlogos.gif>'); |
|
|
|
|
|
$r->print('<h1>Retrieve previous versions of <tt>'.$fn.'</tt></h1>'); |
$r->print('<h1>Retrieve previous versions of <tt>'.$fn.'</tt></h1>'); |