loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.38, 2009/04/23 17:33:58	version 1.39, 2009/05/11 16:51:32
Line 120 sub phaseone {	Line 120 sub phaseone {
my ($main,$suffix,$is_meta) = &get_file_info($fn);	my ($main,$suffix,$is_meta) = &get_file_info($fn);

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="/~'.$uname.$fn.'" />'.	'<input type="hidden" name="filename" value="/~'.$uname.$fn.'" />'.
'<input type="hidden" name="phase" value="two" />'.	'<input type="hidden" name="phase" value="two" />'.
&Apache::loncommon::start_data_table().	&Apache::loncommon::start_data_table().