loncom/publisher/lonconstruct.pm - diff

Return to lonconstruct.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.23, 2004/10/29 18:40:40	version 1.26, 2004/12/10 14:57:47
Line 40 package Apache::lonconstruct;	Line 40 package Apache::lonconstruct;


use strict;	use strict;
use Apache::Constants qw(:common :http :methods REDIRECT);	use Apache::Constants qw(:common :http :methods);
use Apache::lonnet;	use Apache::lonnet;
use Apache::Log ();	use Apache::Log ();
use HTML::Entities();	use HTML::Entities();
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 123 sub handler {	Line 127 sub handler {
#	#
my $toprows = 0;	my $toprows = 0;
my $topsrc = '';	my $topsrc = '';
if ($ENV{'environment.remote'} eq 'on') {	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>