--- loncom/homework/lonhomework.pm	2008/11/19 18:34:56	1.299
+++ loncom/homework/lonhomework.pm	2009/03/16 18:20:22	1.306
@@ -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.306 2009/03/16 18:20:22 bisitz 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'})) {
@@ -179,7 +173,7 @@ sub setup_vars {
 sub createmenu {
     my ($which,$request)=@_;
     if ($which eq 'grade') {
-	$request->print('<script language="JavaScript"> 
+	$request->print('<script type="text/javascript" language="JavaScript"> 
           hwkmenu=window.open("/res/adm/pages/homeworkmenu.html","homeworkremote",
                  "height=350,width=150,menubar=no");
           </script>');
@@ -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;
@@ -878,8 +855,12 @@ sub editxmlmode {
     my $result;
     my $problem=&Apache::lonnet::getfile($file);
     if ($problem eq -1) {
-	&Apache::lonxml::error("<b> ".&mt('Unable to find').
-			       " <i>$file</i></b>");
+	&Apache::lonxml::error(
+            '<b> '
+           .&mt('Unable to find [_1]',
+                '<span class="LC_filename">'.$file.'</span>')
+           .'</b>');
+
 	$problem='';
     }
     if (defined($env{'form.editxmltext'}) || defined($env{'form.Undo'})) {
@@ -894,12 +875,6 @@ sub editxmlmode {
 	&renderpage($request,$file);
     } else {
 	my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
-	my $xml_help = '<table><tr><td>'.
-	    &Apache::loncommon::helpLatexCheatsheet("Problem_Editor_XML_Index",
-						    "Problem Editing Help").
-						    '</td><td>'.
-       &Apache::loncommon::help_open_menu(undef,undef,5,'Authoring').
-                '</td></tr></table>';
 	if ($cols > 80) { $cols = 80; }
 	if ($cols < 70) { $cols = 70; }
 	if ($rows < 20) { $rows = 20; }
@@ -928,7 +903,7 @@ sub editxmlmode {
               <table class="LC_edit_problem_header_title"><tr><td>
                '.&mt('Problem Editing').&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').'
                 </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 +936,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) = @_;
 
@@ -997,7 +967,7 @@ sub renderpage {
 	    my $filename=(split('/',$file))[-1];
 	    my $error =
 		"<b> ".&mt('Unable to find [_1]',
-			   ' <span class="LC_filename">'.$filename.'</span>')
+			   '<span class="LC_filename">'.$filename.'</span>')
 		."</b>";
 	    $result.=
 		&Apache::loncommon::simple_error_page($request,'Not available',
@@ -1168,7 +1138,7 @@ sub update_construct_style {
 	&& !defined($env{'form.newrandomization'})) {
 	if ((!$env{'form.style_file'} && $env{'construct.style'})
 	    ||$env{'form.clear_style_file'}) {
-	    &Apache::lonnet::delenv('construct\\.style');
+	    &Apache::lonnet::delenv('construct.style');
 	} elsif ($env{'form.style_file'} 
 	    && $env{'construct.style'} ne $env{'form.style_file'}) {
 	    &Apache::lonnet::appenv({'construct.style' =>