[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[jms]

jms		Mon Feb 16 14:22:48 2009 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  "Script Functions" help item has been added to EditXML screen
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.300 loncom/homework/lonhomework.pm:1.301
--- loncom/homework/lonhomework.pm:1.300	Tue Nov 25 13:16:17 2008
+++ loncom/homework/lonhomework.pm	Mon Feb 16 14:22:48 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.300 2008/11/25 13:16:17 jms Exp $
+# $Id: lonhomework.pm,v 1.301 2009/02/16 14:22:48 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -25,25 +25,6 @@
 #
 # http://www.lon-capa.org/
 
-=pod
-
-=head1 NAME
-
-Apache::lonhomework.pm
-
-=head1 SYNOPSIS
-
-handles requests for output, evaluation, and
-alteration of a homework resource
-
-This is part of the LearningOnline Network with CAPA project
-described at http://www.lon-capa.org.
-
-
-=head1 NOTABLE SUBROUTINES
-
-=cut
-
 
 package Apache::lonhomework;
 use strict;
@@ -104,20 +85,14 @@
     }
 }
 
-=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'})) {
@@ -356,16 +331,8 @@
     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 ='';
@@ -513,16 +480,7 @@
 
     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;
@@ -946,8 +904,9 @@
             <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">
@@ -980,14 +939,9 @@
     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) = @_;