loncom/publisher/lonretrieve.pm - diff

Return to lonretrieve.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.5, 2001/04/04 03:59:15	version 1.6, 2001/04/10 19:45:37
Line 31 sub phaseone {	Line 31 sub phaseone {
my $resdir=$resfn;	my $resdir=$resfn;
$resdir=~s/\/[^\/]+$/\//;	$resdir=~s/\/[^\/]+$/\//;

$fn=~/^\/(.+)\.(\w+)$/;	$fn=~/\/([^\/]+)\.(\w+)$/;
my $main=$1;	my $main=$1;
my $suffix=$2;	my $suffix=$2;

	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="'.$fn.'">'.
'<input type=hidden name=phase value=two>'.	'<input type=hidden name=phase value=two>'.
Line 69 sub phaseone {	Line 70 sub phaseone {
'<font size=+1 color=red>Retrieval of an old version will '.	'<font size=+1 color=red>Retrieval of an old version will '.
'overwrite the file currently in construction space</font><p>'.	'overwrite the file currently in construction space</font><p>'.
'<input type=submit value="Retrieve version"></form>');	'<input type=submit value="Retrieve version"></form>');
	} else {
	$r->print('<h3>No previous versions published.</h3>');
	}
}	}

sub phasetwo {	sub phasetwo {