loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.26, 2004/12/10 14:57:47	version 1.27, 2004/12/10 18:26:49
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 129 sub handler {	Line 125 sub handler {
my $topsrc = '';	my $topsrc = '';
if ($ENV{'environment.remote'} ne 'off') {	if ($ENV{'environment.remote'} ne 'off') {
$toprows = '110';	$toprows = '110';
$topsrc = '/adm/pubmenu?disp='.$type;	$topsrc = '/adm/localize/adm/publisher.html';
}	}
$r->print(<<ENDPAGE);	$r->print(<<ENDPAGE);
<html>	<html>