--- loncom/homework/lonhomework.pm	2008/11/19 18:34:56	1.299
+++ loncom/homework/lonhomework.pm	2009/02/16 14:22:48	1.301
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.299 2008/11/19 18:34:56 jms Exp $
+# $Id: lonhomework.pm,v 1.301 2009/02/16 14:22:48 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -85,20 +85,14 @@ sub set_bubble_lines {
     }
 }
 
-=pod
-
-=item get_target()
-
-Decides what targets to render for.
-Implicit inputs:
-  Various session environment variables:
-     request.state -  published  - is a /res/ resource
-                      uploaded   - is a /uploaded/ resource
-                      contruct   - is a /priv/ resource
-     form.grade_target - a form parameter requesting a specific target
-
-=cut
-
+#
+# Decides what targets to render for.
+# Implicit inputs:
+#   Various session environment variables:
+#      request.state -  published  - is a /res/ resource
+#                       uploaded   - is a /uploaded/ resource
+#                       contruct   - is a /priv/ resource
+#      form.grade_target - a form parameter requesting a specific target
 sub get_target {
     &Apache::lonxml::debug("request.state = $env{'request.state'}");
     if( defined($env{'form.grade_target'})) {
@@ -337,16 +331,8 @@ sub check_slot_access {
     return ($slotstatus,$datemsg,$slot_name,$returned_slot);
 }
 
-
-=pod
-
-=item check_access()
-
-JB, 9/24/2002: Any changes in this function may require a change
-in lonnavmaps::resource::getDateStatus.
-
-=cut
-
+# JB, 9/24/2002: Any changes in this function may require a change
+# in lonnavmaps::resource::getDateStatus.
 sub check_access {
     my ($id) = @_;
     my $date ='';
@@ -494,16 +480,7 @@ sub check_access {
 
     return ($status,$datemsg);
 }
-
-
-=pod 
-
-=item due_date()
-
-    this should work exactly like the copy in lonnavmaps.pm
-
-=cut
-
+# this should work exactly like the copy in lonnavmaps.pm
 sub due_date {
     my ($part_id,$symb,$udom,$uname)=@_;
     my $date;
@@ -927,8 +904,9 @@ sub editxmlmode {
             <div class="LC_edit_problem_editxml_header">
               <table class="LC_edit_problem_header_title"><tr><td>
                '.&mt('Problem Editing').&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').'
+               '.&mt('Problem Editing').&Apache::loncommon::help_open_menu('Problem Editing','Problem_Editor_XML_Index',5,'Authoring').'
                 </td><td align="right">
-                  '.&Apache::loncommon::helpLatexCheatsheet().'
+                  '.&Apache::loncommon::helpLatexCheatsheet('Problem_LON-CAPA_Functions','Script Functions').'
                 </td></tr>
               </table>
               <div class="LC_edit_problem_discards">
@@ -961,14 +939,9 @@ sub editxmlmode {
     return '';
 }
 
-=pod
-
-=item renderpage()
-
-    Render the page in whatever target desired.
-
-=cut
-
+#
+#    Render the page in whatever target desired.
+#
 sub renderpage {
     my ($request,$file,$targets,$return_string) = @_;