--- loncom/interface/loncommon.pm	2012/01/04 00:42:19	1.1051
+++ loncom/interface/loncommon.pm	2012/01/09 19:56:28	1.1052
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1051 2012/01/04 00:42:19 www Exp $
+# $Id: loncommon.pm,v 1.1052 2012/01/09 19:56:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7097,11 +7097,11 @@ ENDMODAL
 }
 
 sub modal_link {
-    my ($link,$linktext,$width,$height,$target,$scrolling)=@_;
+    my ($link,$linktext,$width,$height,$target,$scrolling,$title)=@_;
     unless ($width) { $width=480; }
     unless ($height) { $height=400; }
     unless ($scrolling) { $scrolling='yes'; }
-    return '<a href="'.$link.'" target="'.$target.'" onclick="openMyModal(\''.$link.'\','.$width.','.$height.',\''.$scrolling.'\'); return false;">'.
+    return '<a href="'.$link.'" target="'.$target.'" title="'.$title.'" onclick="openMyModal(\''.$link.'\','.$width.','.$height.',\''.$scrolling.'\'); return false;">'.
            $linktext.'</a>';
 }