loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1033, 2011/12/08 22:42:33
+version 1.1034, 2011/12/09 01:04:27
  Line 6740  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'}};
- Line 6954  sub end_page {
+ Line 6962  sub end_page {
      return $result;
  }
+ sub wishlist_window {
+     return(<<'ENDWISHLIST');
+ <script type="text/javascript" lang="javascript">
+ // <![CDATA[
+ // <!-- BEGIN LON-CAPA Internal
+ function set_wishlistlink(title, path) {
+     if (!title) {
+         title = document.title;
+         title = title.replace(/^LON-CAPA /,'');
+     }
+     if (!path) {
+         path = location.pathname;
+     }
+     Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,
+                       'wishlistNewLink','width=560,height=350,scrollbars=0');
+ }
+ // END LON-CAPA Internal -->
+ // ]]>
+ </script>
+ ENDWISHLIST
+ }
  sub modal_window {
      return(<<'ENDMODAL');
  <script type="text/javascript" lang="javascript">