--- loncom/interface/loncommon.pm	2011/12/08 01:34:50	1.1031
+++ loncom/interface/loncommon.pm	2011/12/08 02:59:37	1.1032
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1031 2011/12/08 01:34:50 www Exp $
+# $Id: loncommon.pm,v 1.1032 2011/12/08 02:59:37 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6739,8 +6739,8 @@ sub headtag {
 	&& !$args->{'only_body'}
 	&& !$args->{'frameset'}) {
 	$result .= &help_menu_js();
+        $result.=&modal_window();
     }
-    $result.=&modal_window();
     if (ref($args->{'redirect'})) {
 	my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};
 	$url = &Apache::lonenc::check_encrypt($url);
@@ -7008,6 +7008,24 @@ sub modal_link {
            $linktext.'</a>';
 }
 
+sub modal_adhoc_script {
+    my ($funcname,$width,$height,$content)=@_;
+    return (<<ENDADHOC);
+<script type="text/javascript" lang="javascript">
+// <![CDATA[
+        var $funcname = function()
+        {
+                modalWindow.windowId = "myModal";
+                modalWindow.width = $width;
+                modalWindow.height = $height;
+                modalWindow.content = '$content';
+                modalWindow.open();
+        };  
+// ]]>
+</script>
+ENDADHOC
+}
+
 sub html_encode {
     my ($result) = @_;