version 1.8, 2006/06/26 22:47:35
|
version 1.9, 2008/03/03 16:41:49
|
Line 41 sub handler {
|
Line 41 sub handler {
|
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, 'suppress_header_logos' => 1}); |
&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; |
$readfile=~s/\/loadonly\/adveditmenu$//; |
$readfile=~s/\/loadonly\/adveditmenu$//; |
Line 53 sub handler {
|
Line 52 sub handler {
|
|
|
sub print_html { |
sub print_html { |
my $readfile=shift; |
my $readfile=shift; |
|
my $help=&Apache::loncommon::help_open_menu('Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation',6,'RAT'); |
|
|
my $pagetext = <<"END"; |
my $pagetext = <<"END"; |
<table border=0><tr><td bgcolor="#aaaaaa"> |
<table border=0><tr><td bgcolor="#aaaaaa"> |
<table border=0><tr> |
<table border=0><tr> |
|
<td bgcolor="#ffffcc">$help</td> |
<td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><font size="-2">Zoom in</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><font size="-2">Zoom in</font></a></td> |