[LON-CAPA-cvs] cvs: loncom /html/res/adm/pages/annotator admannotations.pm

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 11 Apr 2006 15:52:33 -0000


albertel		Tue Apr 11 11:52:33 2006 EDT

  Modified files:              
    /loncom/html/res/adm/pages/annotator	admannotations.pm 
  Log:
   - typo
  
  
Index: loncom/html/res/adm/pages/annotator/admannotations.pm
diff -u loncom/html/res/adm/pages/annotator/admannotations.pm:1.24 loncom/html/res/adm/pages/annotator/admannotations.pm:1.25
--- loncom/html/res/adm/pages/annotator/admannotations.pm:1.24	Tue Apr 11 11:25:19 2006
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	Tue Apr 11 11:52:33 2006
@@ -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.24 2006/04/11 15:25:19 albertel Exp $
+# $Id: admannotations.pm,v 1.25 2006/04/11 15:52:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -143,9 +143,9 @@
 # ---------------------------------------------------------------Main Handler
 
 sub handler {
-    my $r=shift;
-  
-    $r->content_type('text/html');
+    my ($r) = @_;
+
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     return OK if $r->header_only;
 
@@ -168,7 +168,7 @@
     }
     if (exists($env{'form.urlnew'})) {
 	unless ($urlnew) {
-	    $page=&construct_error("Cannot annotate current window. Please point your browser to a LON-CAPA page and then 'continue'.","continue");
+	    $page=&construct_error(&mt("Cannot annotate current window. Please point your browser to a LON-CAPA page and then 'continue'."),"continue");
 	} else {
 	    if ($urlold eq $urlnew) {
 		$annot_hash{$urlnew}=$annotation;