--- loncom/html/res/adm/pages/annotator/admannotations.pm 2006/04/10 23:32:53 1.22
+++ loncom/html/res/adm/pages/annotator/admannotations.pm 2006/04/10 23:37:25 1.23
@@ -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.22 2006/04/10 23:32:53 albertel Exp $
+# $Id: admannotations.pm,v 1.23 2006/04/10 23:37:25 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,13 +33,14 @@ use strict;
use Apache::Constants qw(:common);
use Apache::loncommon();
use Apache::lonnet;
+use Apache::lonlocal;
# --------------------------------------------------------------Put annotation
sub write_annotation {
my ($urlold, $annotation) = @_;
if ($annotation) {
- &Apache::lonnet::put('nohist_annotations',{$urlold => $annotation});
+ &Apache::lonnet::put('nohist_annotations',{$urlold => $annotation});
}
return;
}
@@ -82,6 +83,11 @@ ENDJS
my $end_page =
&Apache::loncommon::end_page();
+
+ my %lt = ( 'close no save' => "Close (no save)",
+ 'save' => "Save and Update",);
+ %lt = &Apache::lonlocal::texthash(%lt);
+
return(<
@@ -89,9 +95,9 @@ $start_page
-
-
@@ -107,6 +113,10 @@ sub construct_error {
{'only_body' => 1,});
my $end_page = &Apache::loncommon::end_page();
+ my %lt = ( 'close' => "Close",
+ 'button' => $button_name,);
+ %lt = &Apache::lonlocal::texthash(%lt);
+
return(<
@@ -120,9 +130,9 @@ $annot_error
-
-