Return to lonratmenu.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratmenu.pm between versions 1.3 and 1.13

version 1.3, 2005/06/10 21:45:46	version 1.13, 2009/06/03 17:13:26
Line 2	Line 2
# Build menu bar for Advanced RAT. Uses javascript code originally in	# Build menu bar for Advanced RAT. Uses javascript code originally in
# static file: rat/client/code.html, now in rat/client/ratcode.js	# static file: rat/client/code.html, now in rat/client/ratcode.js
#	#
	# $Id$
	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 37 sub handler {	Line 39 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();"';	$r->print(&Apache::loncommon::start_page('Advanced Editor',$js,
my $bodytag=&Apache::loncommon::bodytag(undef,undef,$loaditem,	{'add_entries' => \%loaditem})
($env{'environment.remote'} ne 'off')).	.&Apache::lonhtmlcommon::breadcrumbs() # FIXME add breadcrumbs
&Apache::loncommon::help_open_menu('','Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation','',6,'RAT');	.&Apache::loncommon::head_subbox(
$r->print($bodytag);	&Apache::loncommon::CSTR_pageheader())
	);
my $readfile=$r->uri;	my $readfile=$r->uri;
$readfile=~s/\/loadonly\/adveditmenu$//;	$readfile=~s/\/loadonly\/adveditmenu$//;
$r->print(&print_html($readfile));	$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 $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 66 sub print_html {	Line 73 sub print_html {
<td bgcolor="#ffffcc"><a href="javascript:groupopen('$readfile');"><font size="-2">Recover deleted</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;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.3
changed lines
	Added in v.1.13