--- loncom/html/res/adm/pages/annotator/admannotations.pm 2005/04/07 06:56:22 1.19
+++ loncom/html/res/adm/pages/annotator/admannotations.pm 2006/04/10 23:26:48 1.20
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# This will take annotations and then plug them into a page.
#
-# $Id: admannotations.pm,v 1.19 2005/04/07 06:56:22 albertel Exp $
+# $Id: admannotations.pm,v 1.20 2006/04/10 23:26:48 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -31,6 +31,7 @@ package Apache::admannotations;
use strict;
use Apache::Constants qw(:common);
+use Apache::loncommon();
use Apache::lonnet;
# --------------------------------------------------------------Put annotation
@@ -58,11 +59,8 @@ sub construct_editor {
my $annotation=shift;
if ($annotation=~/^error:/) { $annotation=''; }
my $urlnew=shift;
- return(<
-
-Annotations
-
-
-
+ENDJS
+
+ my %load_items = ('onload' => "timeout=setTimeout('changed()','1000')",
+ 'onunload' => 'clearTimeout(timeout);');
+ my $start_page =
+ &Apache::loncommon::start_page('Annotations',$js,
+ {'only_body' => 1,
+ 'add_entries' => \%load_items,});
+
+ my $end_page =
+ &Apache::loncommon::end_page();
+ return(<
-
-