--- loncom/interface/lonmenu.pm	2006/04/10 18:49:56	1.172
+++ loncom/interface/lonmenu.pm	2006/04/20 04:22:38	1.175
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.172 2006/04/10 18:49:56 albertel Exp $
+# $Id: lonmenu.pm,v 1.175 2006/04/20 04:22:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -84,13 +84,15 @@ sub get_colors {
 
 sub menubuttons {
     my $forcereg=shift;
-    my $target  =shift;
     my $registration=shift;
     my $titletable=shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
 					    ['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='';
@@ -164,7 +166,7 @@ $reloadlink $navmaps $docs $groups
 </script>
 $form
 ENDMAINMENU
-        if ($registration) { $output.=&innerregister($forcereg,$target); }
+        if ($registration) { $output.=&innerregister($forcereg); }
 	return $output."<hr />";
     } elsif ($env{'environment.remote'} eq 'off') {
 # Remote Control is switched off
@@ -244,7 +246,7 @@ ENDCRELOAD
         }
         my $reg='';
         if ($registration) {
-           $reg=&innerregister($forcereg,$target,$titletable);
+           $reg=&innerregister($forcereg,$titletable);
         }
         my $form=&serverform();
 	my $utility=&utilityfunctions();
@@ -294,20 +296,13 @@ ENDINLINEMENU
 # ====================================== This gets called in the header section
 
 sub registerurl {
-    my $forcereg=shift;
-    my $target = shift;
+    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();
     }
-    if ($target eq 'edit') {
-        $result .="<script type=\"text/javascript\">\n".
-            "if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n".
-            &Apache::loncommon::browser_and_searcher_javascript().
-                "\n</script>\n";
-    }
     if (($env{'browser.interface'} eq 'textual') ||
         ($env{'environment.remote'} eq 'off') ||
         ((($env{'request.publicaccess'}) || 
@@ -318,10 +313,8 @@ 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 ($target ne 'edit') {
-	$result.=&innerregister($forcereg,$target);
-    }
+    if ($env{'request.registered'} && !$forcereg) { return ''; }
+    $result.=&innerregister($forcereg);
     return $result.$force_title;
 }
 
@@ -329,15 +322,15 @@ sub registerurl {
 # =========== and in the body of the document
 
 sub innerregister {
-    my ($forcereg, $target, $titletable) = @_;
+    my ($forcereg, $titletable) = @_;
     my $result = '';
     my ($uname,$thisdisfn);
     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');
@@ -506,8 +499,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);
@@ -517,6 +510,7 @@ s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&
 ENDREALRES
 	    }
         }
+	    &Apache::lonnet::logthis("menuitems $menuitems");
         my $buttons='';
         foreach (split(/\n/,$menuitems)) {
 	    my ($command,@rest)=split(/\&/,$_);
@@ -657,13 +651,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();';
 }
 
@@ -1085,6 +1079,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";
@@ -1185,6 +1197,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
 }