--- loncom/html/res/adm/pages/annotator/admannotations.pm	2008/09/11 20:44:54	1.28
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	2021/12/24 00:48:31	1.37
@@ -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.28 2008/09/11 20:44:54 tempelho Exp $
+# $Id: admannotations.pm,v 1.37 2021/12/24 00:48:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,6 +27,7 @@
 #
 ##################
 
+
 package Apache::admannotations;
 
 use strict;
@@ -40,8 +41,7 @@ use Apache::lonlocal;
 sub write_annotation {
     my ($symb, $enc, $annotation) = @_;
 
-    
-    $annotation=~s/$^\s*$//;
+    $annotation=~s/^\s*$//;
     my $key = $symb;
     if (!$enc) {
 	$key = 
@@ -75,6 +75,12 @@ sub construct_editor {
 
     my $get_symb = &js_get_symb();
 
+    my %lt = &Apache::lonlocal::texthash(
+        'close no save' => 'Close',
+        'save'          => 'Save',
+        'cancel'        => 'Cancel',
+    );
+
     my $js = <<ENDJS;
 <script type="text/javascript">
 var timeout;
@@ -89,6 +95,11 @@ function changed() {
     }
     timeout=setTimeout('changed();','1000');
 }
+
+function renameButton(){
+    document.getElementById("close").value="$lt{'cancel'}";
+}
+
 </script>
 ENDJS
 
@@ -102,20 +113,17 @@ 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(<<END_HTML)
 $start_page
  <center>
-  <form name="annotInfo" method="post" action="/adm/annotations">
-    <textarea name="annotation" wrap="on" rows="12" cols="36">$annotation</textarea><br />
+  <form name="annotInfo" method="post" action="">
+    <textarea name="annotation" wrap="on" rows="12" cols="36" onfocus="javascript:renameButton();">$annotation</textarea><br />
     <input type="hidden" name="symbold" value="$symbnew" />
     <input type="hidden" name="symbnew" value="" />
     <input type="button" name="send" value="$lt{'save'}"
            onclick="javascript:this.form.symbnew.value=get_symb();this.form.submit();" />
-    <input type="button" name="close" value="$lt{'close no save'}" 
+    <input type="button" id="close" name="close" value="$lt{'close no save'}" 
            onclick="javascript:window.close();" />
   </form>
  </center>
@@ -139,14 +147,15 @@ ENDJS
 						    {'only_body'   => 1,});
     my $end_page =  &Apache::loncommon::end_page();
 
-    my %lt = ( 'close'  => "Close",
-	       'button' => $button_name,);
-    %lt = &Apache::lonlocal::texthash(%lt);
+    my %lt = &Apache::lonlocal::texthash(
+        'close'  => 'Close',
+        'button' => $button_name,
+    );
 
     return(<<END_HTML2)
 $start_page
  <center>
-  <form name="annotInfo" method="post" action="/adm/annotations">
+  <form name="annotInfo" method="post" action="">
 <table bgcolor="#FFFFFF" width="100%" height="90%" align="center">
 <td>
 <font size="+1"><i>
@@ -166,6 +175,27 @@ $end_page
 END_HTML2
 }
 
+sub block_check {
+    my ($clientip) = @_;
+    my ($blocked,$blocktext) =
+        &Apache::loncommon::blocking_status('annotate',$clientip);
+    if ($blocked) {
+        my %lt = &Apache::lonlocal::texthash(
+                                              'close' => 'Close',
+                                            );
+        my $start_page =
+            &Apache::loncommon::start_page('Annotations',undef,
+                                           {'only_body'   => 1,});
+        my $end_page = '<form name="annotInfo" method="post" action="">'."\n".
+                       '<input type="button" id="close" name="close" value="'.$lt{'close'}.'"'.
+                       ' onclick="javascript:window.close();" />'."\n".
+                       '</form>'."\n".
+                       &Apache::loncommon::end_page();
+        return ($blocked,$start_page.$blocktext.$end_page);
+    } else {
+        return ();
+    }
+}
 
 # ---------------------------------------------------------------Main Handler
 
@@ -176,11 +206,19 @@ sub handler {
     $r->send_http_header;
     return OK if $r->header_only;
 
+    my $clientip = &Apache::lonnet::get_requestor_ip($r);
+    if ($clientip ne '') {
+        my ($blocked,$output) = &block_check($clientip);
+        if ($blocked) {
+            $r->print($output);
+            return OK;
+        }
+    }
 
     my $page;
 
-    my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($env{'form.symbold'});
-    my ($symb_new,$symb_new_enc) = &Apache::loncommon::clean_symb($env{'form.symbnew'});
+    my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($env{'form.symbold'},1);
+    my ($symb_new,$symb_new_enc) = &Apache::loncommon::clean_symb($env{'form.symbnew'},1);
 
     my $annotation=$env{'form.annotation'};
 
@@ -205,3 +243,41 @@ sub handler {
 1;
 __END__
 
+=pod
+
+=head1 NAME
+
+Apache::admannotations
+
+=head1 SYNOPSIS
+
+This will take annotations and then plug them into a page.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 OVERVIEW
+
+(empty)
+
+=head1 SUBROUTINES
+
+=over write_annotation()
+
+Put annotation
+
+=item js_get_symb()
+
+Construct editor
+
+=item construct_editor()
+
+=item construct_error()
+
+=item handler()
+
+=back
+
+=cut
+
+