version 1.2, 2005/04/07 06:56:27
|
version 1.9, 2008/03/03 16:41:49
|
Line 37 sub handler {
|
Line 37 sub handler {
|
my $include = $Apache::lonnet::perlvar{'lonIncludes'}; |
my $include = $Apache::lonnet::perlvar{'lonIncludes'}; |
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'); |
$r->print('<html><head><title>Advanced Editor</title></head>'); |
my $js = join('',<$jsh>); |
$r->print(<$jsh>); |
my %loaditem = ('onunload' => "leave();",); |
my $loaditem = 'onUnload="leave();"'; |
my $start_page = |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,$loaditem, |
&Apache::loncommon::start_page('Advanced Editor',$js, |
($env{'environment.remote'} ne 'off')). |
{'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($bodytag); |
my $readfile=$r->uri; |
$r->print(&print_html()); |
$readfile=~s/\/loadonly\/adveditmenu$//; |
|
$r->print(&print_html($readfile)); |
|
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
sub print_html { |
sub print_html { |
|
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> |
Line 60 sub print_html {
|
Line 66 sub print_html {
|
<td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:undo();"><font size="-2">Undo</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:undo();"><font size="-2">Undo</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:redo();"><font size="-2">Redo</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:redo();"><font size="-2">Redo</font></a></td> |
|
<td bgcolor="#ffffcc"><a href="javascript:groupopen('$readfile');"><font size="-2">Recover deleted</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><font size="-2">Search</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:groupsearch();"><font size="-2">Search</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:groupimport();"><font size="-2">Import</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:groupimport();"><font size="-2">Import</font></a></td> |
|
<td bgcolor="#ffffcc"><a href="javascript:bookmarkopen();"><font size="-2">Import Bookmarks</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><font size="-2">Save map</font></a></td> |
<td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><font size="-2">Save map</font></a></td> |
<td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td> |
<td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td> |
</tr></table> |
</tr></table> |
</td></tr></table> |
</td></tr></table> |
<script> |
<script type="text/javascript"> |
main(); |
main(); |
</script> |
</script> |
</body> |
|
</html> |
|
END |
END |
return $pagetext; |
return $pagetext; |
} |
} |