version 1.18, 2002/05/30 14:08:42
|
version 1.21, 2003/02/03 18:03:53
|
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 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 215 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>'); |