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.13, 2001/06/23 18:26:40
Line 11	Line 11
# 03/23 Guy Albertelli	# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)	# 03/24,03/29 Gerd Kortemeyer)
#	#
# 03/31,04/03,05/02,05/09 Gerd Kortemeyer	# 03/31,04/03,05/02,05/09,06/23 Gerd Kortemeyer

package Apache::lonretrieve;	package Apache::lonretrieve;

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>'.
Line 158 sub handler {	Line 158 sub handler {
my $uname;	my $uname;
my $udom;	my $udom;

unless (($uname,$udom)=	($uname,$udom)=
&Apache::loncacc::constructaccess(	&Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain'));
$fn,$r->dir_config('lonDefDomain'))) {	unless (($uname) && ($udom)) {
$r->log_reason($uname.' at '.$udom.	$r->log_reason($uname.' at '.$udom.
' trying to publish file '.$ENV{'form.filename'}.	' trying to publish file '.$ENV{'form.filename'}.
' ('.$fn.') - not authorized',	' ('.$fn.') - not authorized',