version 1.4, 2006/04/04 15:42:39
|
version 1.6, 2006/04/13 19:00:57
|
Line 38 sub handler {
|
Line 38 sub handler {
|
my $jsh=Apache::File->new($include."/ratcode.js"); |
my $jsh=Apache::File->new($include."/ratcode.js"); |
$r->send_http_header('text/html'); |
$r->send_http_header('text/html'); |
my $js = join('',<$jsh>); |
my $js = join('',<$jsh>); |
my $loaditem = 'onUnload="leave();"'; |
my %loaditem = ('onunload' => "leave();",); |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Advanced Editor',$js, |
&Apache::loncommon::start_page('Advanced Editor',$js, |
{'add_entries' => $loaditem, |
{'add_entries' => \%loaditem,}). |
'only_body' => |
|
($env{'environment.remote'} ne 'off')}). |
|
&Apache::loncommon::help_open_menu('','Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation','',6,'RAT'); |
&Apache::loncommon::help_open_menu('','Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation','',6,'RAT'); |
$r->print($start_page); |
$r->print($start_page); |
my $readfile=$r->uri; |
my $readfile=$r->uri; |