--- loncom/interface/lonmenu.pm	2006/04/14 20:12:35	1.173
+++ loncom/interface/lonmenu.pm	2006/04/21 20:45:42	1.176
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.173 2006/04/14 20:12:35 albertel Exp $
+# $Id: lonmenu.pm,v 1.176 2006/04/21 20:45:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -90,6 +90,9 @@ sub menubuttons {
 					    ['inhibitmenu']);
     if (($env{'form.inhibitmenu'} eq 'yes') ||
         ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }
+
+    if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
+
     my %lt=&initlittle();
     my $navmaps='';
     my $reloadlink='';
@@ -98,7 +101,7 @@ sub menubuttons {
     my $showgroups=0;
     my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
     my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));
-    my $face= 'face="Arial,Helvetica,sans-serif"';
+
     if ($env{'request.state'} eq 'construct') {
         if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {
             my $returnurl = $env{'request.filename'};
@@ -118,8 +121,6 @@ sub menubuttons {
         }
     }
 
-    my ($font,$pgbg,$tabbg) = &get_colors();
-
     if ($env{'browser.interface'} eq 'textual') {
 # Textual display only
         if ($env{'request.course.id'}) {
@@ -131,18 +132,17 @@ ENDNAV
          ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {
                 my $escreload=&Apache::lonnet::escape('return:');
                 $reloadlink=(<<ENDRELOAD);
-<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a>
+<a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>
 ENDRELOAD
             }
 	    if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                $docs=(<<ENDDOCS);
-<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a>
+<a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>
 ENDDOCS
             }
             if ($showgroups) {
                 $groups =(<<ENDGROUPS);
-<td bgcolor="$tabbg">
-<a href="/adm/coursegroups" target="_top"><font $face color="$font">$lt{'groups'}</font></a></td>
+<a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>
 ENDGROUPS
             }
 	}
@@ -153,10 +153,12 @@ ENDGROUPS
 // BEGIN LON-CAPA Internal
 $utility
 </script>
+<div id="LC_top_nav">
 <a href="/adm/menu" target="_top">$lt{'main'}</a>
 $reloadlink $navmaps $docs $groups
-<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a>
-<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a>
+<a href="/adm/roles" target="_top">$lt{'roles'}</a>
+<a href="/adm/logout" target="_top">$lt{'exit'}</a>
+</div>
 <br />
 <script type="text/javascript">
 // END LON-CAPA Internal
@@ -179,13 +181,12 @@ ENDMAINMENU
 	if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
 	    my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
 	    return (<<ENDINLINEMENU);
-<font face="Arial,Helvetica,sans-serif">
-   <table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
+   <table id="LC_top_nav">
     <tr>
-      <td bgcolor="$tabbg">
-        <a href="/adm/logout" target="_top"><font color="$font">$lt{'exit'}</font></a>
+      <td>
+        <a href="/adm/logout" target="_top">$lt{'exit'}</a>
      </td>
-     <td align="right" bgcolor="$tabbg">
+     <td align="right">
        <img align="right" src="$logo" alt="Logo" />
        <b>LON-CAPA</b>&nbsp;
      </td>
@@ -202,19 +203,16 @@ ENDINLINEMENU
 		$link="javascript:gonav('".$link."')";
 	    }
 	    $navmaps=(<<ENDNAV);
-<td bgcolor="$tabbg">
-<a href="$link" target="_top"><font $face color="$font">$lt{'nav'}</font></a></td>
+<td><a href="$link" target="_top">$lt{'nav'}</a></td>
 ENDNAV
 	    if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
 		$docs=(<<ENDDOCS);
-<td bgcolor="$tabbg">
-<a href="/adm/coursedocs" target="_top"><font $face color="$font">$lt{'docs'}</font></a></td>
+<td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td>
 ENDDOCS
             }
             if ($showgroups) {
                 $groups =(<<ENDGROUPS);
-<td bgcolor="$tabbg">
-<a href="/adm/coursegroups" target="_top"><font $face color="$font">$lt{'groups'}</font></a></td>
+<td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>
 ENDGROUPS
             }
 	    if (
@@ -229,16 +227,14 @@ ENDGROUPS
 		 ) {
                 my $escreload=&Apache::lonnet::escape('return:');
                 $reloadlink=(<<ENDRELOAD);
-<td bgcolor="$tabbg">
-<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td>
+<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
 ENDRELOAD
             }
         }
 	if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
 	    my $escreload=&Apache::lonnet::escape('return:');
 	    $reloadlink=(<<ENDCRELOAD);
-<td bgcolor="$tabbg">
-<a href="/adm/flip?postdata=$escreload" target="_top"><font $face color="$font">$lt{'ret'}</font></a></td>
+<td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
 ENDCRELOAD
         }
         my $reg='';
@@ -256,27 +252,17 @@ ENDCRELOAD
 $utility
 // ]]>
 </script>
-<table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
+<table id="LC_top_nav">
 <tr>
-<td bgcolor="$tabbg">
-<a href="/adm/menu" target="_top"><font $face color="$font">$lt{'main'}</font></a>
-</td>
+<td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>
 $reloadlink
 $navmaps
 $docs
 $groups
-<td bgcolor="$tabbg">
-<a href="/adm/remote?action=launch&amp;url=$escurl" target="_top">
-<font $face color="$font">$lt{'launch'}</font></a></td>
-<td bgcolor="$tabbg">
-<a href="/adm/roles" target="_top"><font $face color="$font">$lt{'roles'}</font></a>
-</td>
-<td bgcolor="$tabbg">
-<a href="/adm/logout" target="_top"><font $face color="$font">$lt{'exit'}</font></a>
-</td>
-<td bgcolor="$tabbg">
-<img align="right" src="$logo" alt="Logo" />
-<b>LON-CAPA</b></td>
+<td><a href="/adm/remote?action=launch&amp;url=$escurl" target="_top">$lt{'launch'}</td>
+<td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>
+<td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
+<td><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td>
 </tr>
 </table>
 $form
@@ -295,7 +281,7 @@ ENDINLINEMENU
 sub registerurl {
     my ($forcereg) = @_;
     my $result = '';
-    if ($env{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }
+    if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
     my $force_title='';
     if ($env{'request.state'} eq 'construct') {
 	$force_title=&Apache::lonxml::display_title();
@@ -310,7 +296,7 @@ sub registerurl {
           '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;
     }
 # Graphical display after login only
-    if ($Apache::lonxml::registered && !$forcereg) { return ''; }
+    if ($env{'request.registered'} && !$forcereg) { return ''; }
     $result.=&innerregister($forcereg);
     return $result.$force_title;
 }
@@ -325,9 +311,9 @@ sub innerregister {
     my $const_space = ($env{'request.state'} eq 'construct');
     my $is_const_dir = 0;
 
-    if ($env{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }
+    if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
 
-    $Apache::lonxml::registered=1;
+    $env{'request.registered'} = 1;
 
     my $textinter=($env{'browser.interface'} eq 'textual');
     my $noremote=($env{'environment.remote'} eq 'off');
@@ -496,8 +482,8 @@ c&6&3
 c&8&1
 c&8&2
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
-s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&2
-s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&2
+s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&1
+s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&1
 ENDMENUITEMS
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
 	        $menuitems.=(<<ENDREALRES);
@@ -647,13 +633,13 @@ ENDDONOTREGTHIS
 
 sub loadevents() {
     if ($env{'request.state'} eq 'construct' ||
-	$env{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }
+	$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
     return 'LONCAPAreg();';
 }
 
 sub unloadevents() {
     if ($env{'request.state'} eq 'construct' ||
-	$env{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }
+	$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
     return 'LONCAPAstale();';
 }
 
@@ -1075,6 +1061,24 @@ sub utilityfunctions {
     
     my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
     my $nav_control=&nav_control_js();
+
+    my $start_page_annotate = 
+        &Apache::loncommon::start_page('Annotator',undef,
+				       {'only_body' => 1,
+					'js_ready'  => 1,
+					'bgcolor'   => '#BBBBBB',
+					'add_entries' => {
+					    'onload' => 'javascript:document.goannotate.submit();'}});
+
+    my $start_page_bookmark = 
+        &Apache::loncommon::start_page('Bookmarks',undef,
+				       {'only_body' => 1,
+					'js_ready'  => 1,
+					'bgcolor'   => '#BBBBBB',});
+
+    my $end_page = 
+        &Apache::loncommon::end_page({'js_ready' => 1});
+
 return (<<ENDUTILITY)
 
     var currentURL="$currenturl";
@@ -1175,6 +1179,49 @@ function group_chat(group) {
    var winName = 'LONchat_'+group;
    grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
 }
+
+function edit_bookmarks() {
+   go('');
+   w_BookmarkPal_flag=1;
+   bookmarkpal=window.open("/adm/bookmarks",
+               "BookmarkPal", "width=400,height=505,scrollbars=0");
+}
+
+function annotate() {
+   w_Annotator_flag=1;
+   annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
+   annotator.document.write(
+   '$start_page_annotate'
+  +"<form name='goannotate' target='Annotator' method='post' "
+  +"action='/adm/annotations'>"
+  +"<input type='hidden' name='urlnew' value='"+currentURL+"' />"
+  +"</form>"
+  +'$end_page');
+   annotator.document.close();
+}
+
+function set_bookmark() {
+   go('');
+   clienttitle=document.title;
+   clienthref=location.pathname;
+   w_bmquery_flag=1;
+   bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
+   bmquery.document.write(
+   '$start_page_bookmark'
+   +"<center><form method='post'"
+   +" name='newlink' action='/adm/bookmarks' target='bmquery' "
+   +">\\n <table width=340 height=150 "
+   +"bgcolor='ffffff' align=center><tr><td>Link Name:<br><input "
+   +"type='text' name='title' size=45 value='"+clienttitle+"'>"
+   +"<br>Address:<br><input type='text' name='address' size='45' "
+   +"value='"+clienthref+"'><br><center><input type='submit' "
+   +"value='Save'> <input type='button' value='Close (no save)' "
+   +"onclick='javascript:window.close();'></center></td>"
+   +"</tr></table></form></center>"
+   +'$end_page' );
+   bmquery.document.close();
+}
+
 ENDUTILITY
 }