loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.11, 2001/05/09 17:38:13	version 1.12, 2001/05/24 21:43:05
Line 38 sub phaseone {	Line 38 sub phaseone {

if (-e $resfn) {	if (-e $resfn) {
$r->print('<form action=/adm/retrieve method=post>'.	$r->print('<form action=/adm/retrieve method=post>'.
'<input type=hidden name=filename value="'.$fn.'">'.	'<input type=hidden name=filename value="/~'.$uname.$fn.'">'.
'<input type=hidden name=phase value=two>'.	'<input type=hidden name=phase value=two>'.
'<table border=2><tr><th>Select</th><th>Version</th>'.	'<table border=2><tr><th>Select</th><th>Version</th>'.
'<th>Became this version on ...</th>'.	'<th>Became this version on ...</th>'.