--- loncom/html/res/adm/pages/annotator/admannotations.pm 2000/09/19 14:55:12 1.5 +++ loncom/html/res/adm/pages/annotator/admannotations.pm 2000/09/19 16:55:50 1.6 @@ -66,7 +66,9 @@ END_HTML # --------------------------------------------Constructs the can't edit window -sub construct_nonedit { +sub construct_error { + my $annot_error=shift; + my $button_name=shift; return(< Annotations @@ -81,16 +83,16 @@ function getDomain() {
- +
- Cannot annotate current window. Please point your browser to a Lon-CAPA page and then 'continue'. +$annot_error
- +
@@ -105,6 +107,7 @@ sub handler { my $r=shift; my $url_old; my $annotation; + my $page; $r->content_type('text/html'); $r->send_http_header; if ($url_old=param("url_old")) { @@ -118,10 +121,14 @@ sub handler { } else { %annot_hash=get_annotation($url_new); } - my $page=construct_editor($url_new,%annot_hash); + if (exists($annot_hash{"con_lost"})) { + $page=construct_error("Connection broken with home server. Please contact your system administrator.","try again"); + } else { + $page=construct_editor($url_new,%annot_hash); + } $r->print($page); } else { - my $page=construct_nonedit(); + $page=construct_error("Cannot annotate current window. Please point your browser to a Lon-CAPA page and then 'continue'.","coninue"); $r->print($page); } return OK;