|
version 1.24, 2004/10/29 20:44:30
|
version 1.29, 2005/02/28 08:22:09
|
|
Line 92 sub handler {
|
Line 92 sub handler {
|
| |
|
| # -------------------------------------------------------------- Build frameset |
# -------------------------------------------------------------- Build frameset |
| |
|
| $r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
| $r->send_http_header; |
$r->send_http_header; |
| return OK if $r->header_only; |
return OK if $r->header_only; |
| |
|
|
Line 123 sub handler {
|
Line 123 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/localize/adm/publisher.html'; |
| } |
} |
| |
my $html=&Apache::lonxml::xmlbegin(); |
| $r->print(<<ENDPAGE); |
$r->print(<<ENDPAGE); |
| <html> |
$html |
| <head><title>LON-CAPA Construction Space</title> |
<head><title>LON-CAPA Construction Space</title> |
| <script language="JavaScript"> |
<script type="text/javascript"> |
| var lastknownpriv="$lowerframe"; |
var lastknownpriv="$lowerframe"; |
| </script> |
</script> |
| </head> |
</head> |
| <frameset rows="$toprows,*" border="0"> |
<frameset rows="$toprows,*" border="0"> |
| <frame src='$topsrc'> |
<frame src='$topsrc' /> |
| <frame src="$lowerframe" name="LONCAPAToBePublished"> |
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
| </frameset> |
</frameset> |
| </html> |
</html> |
| ENDPAGE |
ENDPAGE |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonconstruct.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher