loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.25, 2004/12/01 17:10:55	version 1.26, 2004/12/10 14:57:47
Line 97 sub handler {	Line 97 sub handler {
return OK if $r->header_only;	return OK if $r->header_only;

my $lowerframe=$r->path_info;	my $lowerframe=$r->path_info;
	my $type='file';
	if ($lowerframe =~ /\/$/) {
	$type = 'dir';
	}
&Debug($r, "Initial URL for lower frame: ".$lowerframe);	&Debug($r, "Initial URL for lower frame: ".$lowerframe);
$lowerframe=~s/^\//\/\~/;	$lowerframe=~s/^\//\/\~/;
&Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);	&Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);
Line 125 sub handler {	Line 129 sub handler {
my $topsrc = '';	my $topsrc = '';
if ($ENV{'environment.remote'} ne 'off') {	if ($ENV{'environment.remote'} ne 'off') {
$toprows = '110';	$toprows = '110';
$topsrc = '/adm/localize/adm/publisher.html';	$topsrc = '/adm/pubmenu?disp='.$type;
}	}
$r->print(<<ENDPAGE);	$r->print(<<ENDPAGE);
<html>	<html>