version 1.30, 2005/04/07 06:56:26
|
version 1.33, 2006/04/11 18:58:22
|
Line 33 package Apache::lonconstruct;
|
Line 33 package Apache::lonconstruct;
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http :methods); |
use Apache::Constants qw(:common :http :methods); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::Log (); |
|
use HTML::Entities(); |
use HTML::Entities(); |
|
|
my $DEBUG = 0; |
my $DEBUG = 0; |
Line 61 my $DEBUG = 0;
|
Line 60 my $DEBUG = 0;
|
=cut |
=cut |
|
|
sub Debug { |
sub Debug { |
|
# Put out the indicated message but only if DEBUG is true. |
# Marshall the parameters. |
if ($DEBUG) { |
|
my ($r,$message) = @_; |
my $r = shift; |
$r->log_reason($message); |
my $log = $r->log; |
} |
my $message = shift; |
} |
|
|
# Put out the indicated message butonly if DEBUG is false. |
|
|
|
if ($DEBUG) { |
|
$log->debug($message); |
|
} |
|
} |
|
|
|
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
Line 118 sub handler {
|
Line 109 sub handler {
|
$toprows = '110'; |
$toprows = '110'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
$topsrc = '/adm/localize/adm/publisher.html'; |
} |
} |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print(<<ENDPAGE); |
my $js=qq| |
$html |
|
<head><title>LON-CAPA Construction Space</title> |
|
<script type="text/javascript"> |
<script type="text/javascript"> |
var lastknownpriv="$lowerframe"; |
var lastknownpriv="$lowerframe"; |
</script> |
</script> |
</head> |
|; |
<frameset rows="$toprows,*" border="0"> |
|
|
my $start_page= |
|
&Apache::loncommon::start_page('Construction Space',$js, |
|
{'frameset' => 1, |
|
'add_entries' => { |
|
'rows' => "$toprows,*", |
|
'border' => "0",}}); |
|
my $end_page= |
|
&Apache::loncommon::end_page({'frameset' => 1}); |
|
|
|
$r->print(<<ENDPAGE); |
|
$start_page |
<frame src='$topsrc' /> |
<frame src='$topsrc' /> |
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
<frame src="$lowerframe" name="LONCAPAToBePublished" /> |
</frameset> |
$end_page |
</html> |
|
ENDPAGE |
ENDPAGE |
return OK; |
return OK; |
} |
} |