--- 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 ''.
+ return ''.
$linktext.'';
}