--- 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(<

@@ -89,21 +96,20 @@ function changed() {
- - +$end_page END_HTML } # ----------------------------------------------------Constructs error window sub construct_error { - my $annot_error=shift; - my $button_name=shift; + my ($annot_error,$button_name) = @_; + my $start_page = &Apache::loncommon::start_page('Annotations',undef, + {'only_body' => 1,}); + my $end_page = &Apache::loncommon::end_page(); + return(< -Annotations - - +$start_page
@@ -121,8 +127,7 @@ $annot_error - - +$end_page END_HTML2 }