loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1034, 2011/12/09 01:04:27
+version 1.1035, 2011/12/10 18:11:00
  Line 7056  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) = @_;