[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;