version 1.11, 2009/04/23 17:31:25
|
version 1.15, 2009/12/04 15:13:04
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::File; |
use Apache::File; |
use Apache::loncommon; |
use Apache::loncommon; |
|
use Apache::lonhtmlcommon; |
|
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
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'); |
|
my $js = join('',<$jsh>); |
my $js = join('',<$jsh>); |
my %loaditem = ('onunload' => "leave();",); |
my %loaditem = ('onunload' => "leave();",); |
my $start_page = |
|
&Apache::loncommon::start_page('Advanced Editor',$js, |
|
{'add_entries' => \%loaditem, 'suppress_header_logos' => 1}); |
|
$r->print($start_page); |
|
my $readfile=$r->uri; |
my $readfile=$r->uri; |
$readfile=~s/\/loadonly\/adveditmenu$//; |
$readfile=~s/\/loadonly\/adveditmenu$//; |
$r->print(&print_html($readfile)); |
|
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
|
|
|
sub print_html { |
# Breadcrumbs |
my $readfile=shift; |
my $brcrum = [{'href' => &Apache::loncommon::authorspace(), |
my $help=&Apache::loncommon::help_open_menu('Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation',6,'RAT'); |
'text' => 'Construction Space'}, |
|
{'href' => '', |
my $pagetext = <<"END"; |
'text' => 'RAT'}, |
<table border="0"><tr><td bgcolor="#AAAAAA"> |
{'href' => '', |
<table border="0"><tr> |
'text' => 'Advanced Editor'}]; |
<td bgcolor="#ffffcc">$help</td> |
|
<td bgcolor="#ffffcc"><a href="javascript:togglemode();"><font size="-2">Toggle display</font></a></td> |
my $help=&Apache::loncommon::help_open_menu( |
<td bgcolor="#ffffcc"><a href="javascript:if (zscale>1) { zscale--; draw();}"><font size="-2">Zoom out</font></a></td> |
'Sequence_Advanced_Editor_Creation', |
<td bgcolor="#ffffcc"><a href="javascript:if (zscale<3) { zscale++; draw();}"><font size="-2">Zoom in</font></a></td> |
'Sequence_Advanced_Editor_Creation',6,'RAT'); |
<td bgcolor="#ffffcc"><a href="javascript:condense();draw();"><font size="-2">Condense</font></a></td> |
|
<td bgcolor="#ffffcc"><a href="javascript:graphopt();draw();"><font size="-2">Straighten</font></a></td> |
|
<td bgcolor="#ffffcc"><a href="javascript:revert();"><font size="-2">Revert</font></a></td> |
# Compile available Advanced RAT functions |
<td bgcolor="#ffffcc"><a href="javascript:undo();"><font size="-2">Undo</font></a></td> |
my $functions = '<div class="LC_columnSection">'; |
<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> |
$functions .= $help; # FIXME: Move help to bread_crumbs_component |
<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> |
$functions .= |
<td bgcolor="#ffffcc"><a href="javascript:bookmarkopen();"><font size="-2">Import Bookmarks</font></a></td> |
&Apache::lonhtmlcommon::start_funclist(&mt('Display Actions')) |
<td bgcolor="#ffffcc"><a href="javascript:groupcopy();"><font size="-2">Copy</font></a></td> |
.&Apache::lonhtmlcommon::add_item_funclist( |
<td bgcolor="#ffffcc"><a href="javascript:graphdef='no';save();storechange();"><font size="-2">Save map</font></a></td> |
'<a href="javascript:togglemode();">' |
<td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td> |
.&mt('Toggle display').'</a>') |
</tr></table> |
.&Apache::lonhtmlcommon::add_item_funclist( |
</td></tr></table> |
'<a href="javascript:if (zscale>1) { zscale--; draw();}">' |
<script type="text/javascript"> |
.&mt('Zoom out').'</a>') |
main(); |
.&Apache::lonhtmlcommon::add_item_funclist( |
</script> |
'<a href="javascript:if (zscale<3) { zscale++; draw();}">' |
END |
.&mt('Zoom in').'</a>') |
return $pagetext; |
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:condense();draw();">' |
|
.&mt('Condense').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:graphopt();draw();">' |
|
.&mt('Straighten').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:revert();">' |
|
.&mt('Revert').'</a>') |
|
.&Apache::lonhtmlcommon::end_funclist(); |
|
|
|
$functions .= |
|
&Apache::lonhtmlcommon::start_funclist(&mt('Version Actions')) |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:undo();">' |
|
.&mt('Undo').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:redo();">' |
|
.&mt('Redo').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:groupopen(\''.$readfile.'\');">' |
|
.&mt('Recover deleted').'</a>') |
|
.&Apache::lonhtmlcommon::end_funclist(); |
|
|
|
$functions .= |
|
&Apache::lonhtmlcommon::start_funclist(&mt('Import')) |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:groupsearch();">' |
|
.&mt('Search').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:groupimport();">' |
|
.&mt('Import').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:bookmarkopen();">' |
|
.&mt('Import Bookmarks').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:groupcopy();">' |
|
.&mt('Copy').'</a>') |
|
.&Apache::lonhtmlcommon::end_funclist(); |
|
|
|
$functions .= |
|
&Apache::lonhtmlcommon::start_funclist(&mt('Save')) |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:graphdef=\'no\';save();storechange();">' |
|
.&mt('Save map').'</a>') |
|
.&Apache::lonhtmlcommon::add_item_funclist( |
|
'<a href="javascript:storechange();">' |
|
.&mt('Save map and layout').'</a>') |
|
.&Apache::lonhtmlcommon::end_funclist(); |
|
|
|
$functions .= '</div>'; # End: LC_columnSection |
|
|
|
$functions .= &Apache::lonhtmlcommon::scripttag('main();'); |
|
|
|
|
|
# Print Advanced RAT page header |
|
$r->send_http_header('text/html'); |
|
|
|
$r->print( |
|
&Apache::loncommon::start_page( |
|
'Advanced Editor', |
|
$js, |
|
{'add_entries' => \%loaditem, |
|
'bread_crumbs' => $brcrum,}) |
|
|
|
.&Apache::loncommon::head_subbox( |
|
&Apache::loncommon::CSTR_pageheader() |
|
.$functions) |
|
|
|
.&Apache::loncommon::end_page() |
|
); |
|
|
|
return OK; |
} |
} |
|
|
1; |
1; |