--- loncom/interface/loncommon.pm	2011/12/09 01:04:27	1.1034
+++ loncom/interface/loncommon.pm	2011/12/10 18:11:00	1.1035
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1034 2011/12/09 01:04:27 www Exp $
+# $Id: loncommon.pm,v 1.1035 2011/12/10 18:11:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7056,6 +7056,20 @@ sub modal_adhoc_script {
 ENDADHOC
 }
 
+sub modal_adhoc_window {
+    my ($funcname,$width,$height,$content,$linktext)=@_;
+    my $innerwidth=$width-20;
+    $content=&js_ready(
+               &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).
+                 &start_scrollbox($width.'px',$innerwidth.'px',$height.'px').
+                    $content.
+                 &end_scrollbox().
+               &end_page()
+             );
+    return &modal_adhoc_script($funcname,$width,$height,$content).
+         "<a href=\"javascript:$funcname();void(0);\">".$linktext."</a>";
+}
+
 sub html_encode {
     my ($result) = @_;