loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.566, 2007/08/23 21:54:40	version 1.568, 2007/08/24 18:41:06
Line 1099 to be attached to the <body> for the onl	Line 1099 to be attached to the <body> for the onl
sub resize_textarea_js {	sub resize_textarea_js {
return <<"RESIZE";	return <<"RESIZE";
<script type="text/javascript">	<script type="text/javascript">
function myHandleEvent (event) {
alert(event.type);
}

var Geometry = {};	var Geometry = {};
function init_geometry() {	function init_geometry() {
if (Geometry.init) { return };	if (Geometry.init) { return };
Line 6986 sub check_clone {	Line 6982 sub check_clone {
$args->{'crstype'});	$args->{'crstype'});
} else {	} else {
my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});	my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});
if ($env{'request.role.domain'} eq $args->{'form.clonedomain'}) {	if ($env{'request.role.domain'} eq $args->{'clonedomain'}) {
$can_clone = 1;	$can_clone = 1;
} else {	} else {
my %clonehash = &Apache::lonnet::get('environment',['cloners'],	my %clonehash = &Apache::lonnet::get('environment',['cloners'],