version 1.452, 2007/08/18 00:08:36
|
version 1.454, 2007/08/29 21:49:38
|
Line 1378 $addbuttons
|
Line 1378 $addbuttons
|
HTMLArea._addEvents(editor._doc, |
HTMLArea._addEvents(editor._doc, |
["keypress","mousedown"], unClean); |
["keypress","mousedown"], unClean); |
editor._iframe.id = '$textarea_id'; |
editor._iframe.id = '$textarea_id'; |
resize_textarea('$textarea_id','LC_aftertextarea');"; |
resize_textarea('$textarea_id','LC_aftertextarea'); |
},300); |
},300); |
} |
} |
</script> |
</script> |
Line 1388 FULLPAGE
|
Line 1388 FULLPAGE
|
<script type="text/javascript"> |
<script type="text/javascript"> |
$addbuttons |
$addbuttons |
function initDocument() { |
function initDocument() { |
resize_textarea('$textarea_id','LC_aftertextarea');"; |
resize_textarea('$textarea_id','LC_aftertextarea'); |
} |
} |
</script> |
</script> |
FULLPAGE |
FULLPAGE |
Line 1620 sub show_error_warn_msg {
|
Line 1620 sub show_error_warn_msg {
|
} |
} |
|
|
sub error { |
sub error { |
|
my @errors = @_; |
|
|
$errorcount++; |
$errorcount++; |
|
|
|
if (defined($Apache::inputtags::part)) { |
|
if ( @Apache::inputtags::response ) { |
|
push(@errors, |
|
&mt("This error occurred while processing response [_1] in part [_2]", |
|
$Apache::inputtags::response[-1], |
|
$Apache::inputtags::part)); |
|
} else { |
|
push(@errors, |
|
&mt("This error occurred while processing part [_1]", |
|
$Apache::inputtags::part)); |
|
} |
|
} |
|
|
if ( &show_error_warn_msg() ) { |
if ( &show_error_warn_msg() ) { |
# If printing in construction space, put the error inside <pre></pre> |
# If printing in construction space, put the error inside <pre></pre> |
push(@Apache::lonxml::error_messages, |
push(@Apache::lonxml::error_messages, |
$Apache::lonxml::warnings_error_header. |
$Apache::lonxml::warnings_error_header. |
"<b>ERROR:</b>".join("<br />\n",@_)."<br />\n"); |
"<b>ERROR:</b>".join("<br />\n",@errors)."<br />\n"); |
$Apache::lonxml::warnings_error_header=''; |
$Apache::lonxml::warnings_error_header=''; |
} else { |
} else { |
my $errormsg; |
my $errormsg; |
Line 1635 sub error {
|
Line 1651 sub error {
|
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
$errormsg=&mt("An error occured while processing this resource. The author has been notified."); |
} |
} |
my $host=$Apache::lonnet::perlvar{'lonHostID'}; |
my $host=$Apache::lonnet::perlvar{'lonHostID'}; |
my $msg = join('<br />',(@_,"The error occurred on host <tt>$host</tt>")); |
push(@errors, "The error occurred on host <tt>$host</tt>"); |
|
|
|
my $msg = join('<br />', @errors); |
|
|
#notify author |
#notify author |
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
&Apache::lonmsg::author_res_msg($env{'request.filename'},$msg); |
#notify course |
#notify course |