--- loncom/interface/loncommon.pm 2011/12/08 22:42:33 1.1033
+++ loncom/interface/loncommon.pm 2011/12/12 00:13:43 1.1036
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.1033 2011/12/08 22:42:33 www Exp $
+# $Id: loncommon.pm,v 1.1036 2011/12/12 00:13:43 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -6740,6 +6740,14 @@ sub headtag {
&& !$args->{'frameset'}) {
$result .= &help_menu_js();
$result.=&modal_window();
+ $result.=&wishlist_window();
+ } else {
+ if ($args->{'add_modal'}) {
+ $result.=&modal_window();
+ }
+ if ($args->{'add_wishlist'}) {
+ $result.=&wishlist_window();
+ }
}
if (ref($args->{'redirect'})) {
my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};
@@ -6954,6 +6962,28 @@ sub end_page {
return $result;
}
+sub wishlist_window {
+ return(<<'ENDWISHLIST');
+
+ENDWISHLIST
+}
+
sub modal_window {
return(<<'ENDMODAL');