--- loncom/homework/lonhomework.pm 2007/09/21 17:25:58 1.268.2.2 +++ loncom/homework/lonhomework.pm 2007/08/18 00:01:45 1.269 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.268.2.2 2007/09/21 17:25:58 albertel Exp $ +# $Id: lonhomework.pm,v 1.269 2007/08/18 00:01:45 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -196,8 +196,7 @@ sub check_ip_acc { return 1; } my $allowed=0; - my $ip=$env{'request.host'} || $ENV{'REMOTE_ADDR'}; - + my $ip=$ENV{'REMOTE_ADDR'}; my $name; foreach my $pattern (split(',',$acc)) { $pattern =~ s/^\s*//; @@ -862,10 +861,17 @@ sub editxmlmode { if ($cols > 80) { $cols = 80; } if ($cols < 70) { $cols = 70; } if ($rows < 20) { $rows = 20; } + my $js = + &Apache::edit::js_change_detection(). + &Apache::loncommon::resize_textarea_js(); my $start_page = - &Apache::loncommon::start_page(&mt("EditXML [_1]",$file), - &Apache::edit::js_change_detection(), - {'no_auto_mt_title' => 1,}); + &Apache::loncommon::start_page(&mt("EditXML [_1]",$file),$js, + {'no_auto_mt_title' => 1, + 'only_body' => 1, + 'add_entries' => { + 'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')], + 'onload' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')], + }}); $result.=$start_page. &renderpage($request,$file,['no_output_web'],1). @@ -882,10 +888,14 @@ sub editxmlmode {