--- loncom/publisher/Attic/lonconstruct.pm 2004/12/01 17:10:55 1.25
+++ loncom/publisher/Attic/lonconstruct.pm 2004/12/10 14:57:47 1.26
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Page Wrapper for Construction
#
-# $Id: lonconstruct.pm,v 1.25 2004/12/01 17:10:55 albertel Exp $
+# $Id: lonconstruct.pm,v 1.26 2004/12/10 14:57:47 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -97,6 +97,10 @@ sub handler {
return OK if $r->header_only;
my $lowerframe=$r->path_info;
+ my $type='file';
+ if ($lowerframe =~ /\/$/) {
+ $type = 'dir';
+ }
&Debug($r, "Initial URL for lower frame: ".$lowerframe);
$lowerframe=~s/^\//\/\~/;
&Debug($r, "Lower frame URL afer ~ subst: ".$lowerframe);
@@ -125,7 +129,7 @@ sub handler {
my $topsrc = '';
if ($ENV{'environment.remote'} ne 'off') {
$toprows = '110';
- $topsrc = '/adm/localize/adm/publisher.html';
+ $topsrc = '/adm/pubmenu?disp='.$type;
}
$r->print(<<ENDPAGE);
<html>