--- loncom/html/res/adm/pages/annotator/admannotations.pm	2006/04/10 23:37:25	1.23
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	2006/04/20 04:19:55	1.26
@@ -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.23 2006/04/10 23:37:25 albertel Exp $
+# $Id: admannotations.pm,v 1.26 2006/04/20 04:19:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -54,17 +54,34 @@ sub get_annotation {
 }
 
 # ------------------------------------------------------------Construct editor
+sub js_get_url {
+    return <<ENDJS;
+function get_url() {
+    var url;
+    if (typeof(window.opener.clientwindow) != 'undefined') {
+	url=window.opener.clientwindow.location.href;
+    } else {
+	url=window.opener.location.href;
+    }
+    return url;
+}
+ENDJS
+}
 
 sub construct_editor {
     my ($annotation,$urlnew) = @_;
     if ($annotation=~/^error:/) { $annotation=''; }
 
-    my $js = << ENDJS;
+    my $get_url = &js_get_url();
+
+    my $js = <<ENDJS;
 <script type="text/javascript">
 var timeout;
 
+$get_url
+
 function changed() {
-    var urlnew=window.opener.clientwindow.location.href;
+    var urlnew=get_url();
     if (urlnew!=document.annotInfo.urlold.value) {
 	document.annotInfo.urlnew.value=urlnew;
         document.annotInfo.submit();
@@ -96,7 +113,7 @@ $start_page
     <input type="hidden" name="urlold" value="$urlnew" />
     <input type="hidden" name="urlnew" value="" />
     <input type="button" name="send" value="$lt{'save'}"
-           onclick="javascript:this.form.urlnew.value=window.opener.clientwindow.location.href;this.form.submit();" />
+           onclick="javascript:this.form.urlnew.value=get_url();this.form.submit();" />
     <input type="button" name="close" value="$lt{'close no save'}" 
            onclick="javascript:window.close();" />
   </form>
@@ -109,7 +126,15 @@ END_HTML
 
 sub construct_error {
     my ($annot_error,$button_name) = @_;
-    my $start_page = &Apache::loncommon::start_page('Annotations',undef,
+
+    my $get_url = &js_get_url();
+    my $js = <<ENDJS;
+<script type="text/javascript">
+$get_url
+</script>
+ENDJS
+
+    my $start_page = &Apache::loncommon::start_page('Annotations',$js,
 						    {'only_body'   => 1,});
     my $end_page =  &Apache::loncommon::end_page();
 
@@ -131,7 +156,7 @@ $annot_error
     <input type="hidden" name="urlold" value="" />
     <input type="hidden" name="urlnew" value="" />
     <input type="button" name="send" value="$lt{'button'}"
-           onclick="javascript:this.form.urlnew.value=window.opener.clientwindow.location.href;this.form.submit();" />
+           onclick="javascript:this.form.urlnew.value=get_url();this.form.submit();" />
     <input type="button" name="close" value="$lt{'close'}" 
            onclick="javascript:window.close();" />
   </form>
@@ -143,9 +168,9 @@ END_HTML2
 # ---------------------------------------------------------------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 +193,7 @@ sub handler {
     }
     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;