--- loncom/html/res/adm/pages/annotator/admannotations.pm 2000/09/11 17:51:22 1.4 +++ loncom/html/res/adm/pages/annotator/admannotations.pm 2000/09/22 22:43:18 1.7 @@ -37,11 +37,11 @@ sub get_annotation { sub construct_editor { my $url_new=shift; my %annot_hash=@_; - return(< Annotations - -
+
+
- - - - - + + + + +
END_HTML } -# ----------------------------------------------------------------Main Handler +# ----------------------------------------------------Constructs error window + +sub construct_error { + my $annot_error=shift; + my $button_name=shift; + return(< +Annotations + + + +
+
+ + +
+ +$annot_error + +
+ + + + +
+
+ + +END_HTML2 +} + +# ---------------------------------------------------------------Main Handler sub handler { - my $r=shift; - my $url_old; - my $annotation; - $r->content_type('text/html'); - $r->send_http_header; - if ($url_old=param("url_old")) { - $annotation=param("annotation"); - write_annotation($url_old,$annotation); - } - if (my $url_new=param("url_new")) { - my %annot_hash; -# $r->print("$url_new \n"); #debug line -# $r->print($url_old); #debug line -# $r->print("<--the url_new
\n"); #debug line -# $r->print($annotation); #debug line -# $r->print("<--first annotation
\n"); #debug line -# Apache::lonnet::put("annotations",($url_new => $annotation)); #debug line -# my %annot_hash=Apache::lonnet::get("annotations",($url_new)); #debug line -# $r->print( keys(%phony_var)); #debug line -# $r->print(" = are the keys
\n"); #debug line -# $r->print("$phony_var{$url_new} = $url_new"); #debug line -# $r->print("<--test put-get
\n"); #debug line -# $r->print($annotation); #debug line -# $r->print("<--annotation
\n"); #debug line - if ($url_old eq $url_new) { - %annot_hash=($url_new => $annotation); - } else { - %annot_hash=get_annotation($url_new); - } -# $r->print($annotation); #debug line -# $r->print("<--annotation again
\n"); #debug line - my $page=construct_editor($url_new,%annot_hash); - $r->print($page); + my $r=shift; + my $url_old; + my $annotation; + my $page; + my $url_new; + my %annot_hash; + $r->content_type('text/html'); + $r->send_http_header; + if ($url_old=param("url_old")) { + $annotation=param("annotation"); + write_annotation($url_old,$annotation); + } + if (defined(param("url_new"))) { + $url_new=param("url_new"); + if ($url_new eq "") { + $page=construct_error("Cannot annotate current window. Please point your browser to a Lon-CAPA page and then 'continue'.","coninue"); + } else { + if ($url_old eq $url_new) { + %annot_hash=($url_new => $annotation); + } else { + %annot_hash=get_annotation($url_new); } - return OK; + 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 { + $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; } 1;