[LON-CAPA-cvs] cvs: loncom /html/res/adm/pages/bookmarkmenu admbookmarks.pm

Tue, 11 Apr 2006 15:39:32 -0000

albertel		Tue Apr 11 11:39:32 2006 EDT

  Modified files:              
    /loncom/html/res/adm/pages/bookmarkmenu	admbookmarks.pm 
  Log:
  - start_page
  
  
Index: loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm
diff -u loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm:1.32 loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm:1.33

--- loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm:1.32	Tue Apr 11 11:38:26 2006
+++ loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm	Tue Apr 11 11:39:31 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The bookmarks handler
 #
-# $Id: admbookmarks.pm,v 1.32 2006/04/11 15:38:26 albertel Exp $
+# $Id: admbookmarks.pm,v 1.33 2006/04/11 15:39:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -166,10 +166,17 @@
 
 sub add_bookmark {
     my ($location, $title, $bookmarks) = @_;
+    my $start_page = 
+	&Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',undef,
+				       {'only_body' => 1,
+					'bgcolor'   => '#FFFFFF',});
+
+    my $end_page =  &Apache::loncommon::end_page();
+
     $bookmarks .= "window.tree.bookmarks.addLink(\"$title\",\"$location\");\n";
 #	$marks{'bookmarks'} += qq/\nwindow.tree.bookmarks.addlink("$title","$location");\n/;
     &write_bookmarks($bookmarks);
-    my $page="<html><body>$bookmarks<p>Bookmarks successfully saved<script language=\"JavaScript\">window.close()</script></body></html>";
+    my $page="$start_page $bookmarks<p>Bookmarks successfully saved<script language=\"JavaScript\">window.close()</script> $end_page";
     return($page);
 }
 



