--- loncom/homework/lonhomework.pm 2008/11/25 13:16:17 1.300
+++ loncom/homework/lonhomework.pm 2009/03/04 16:00:14 1.304
@@ -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.304 2009/03/04 16:00:14 bisitz 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 @@ 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'})) {
@@ -356,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 ='';
@@ -513,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;
@@ -913,12 +871,6 @@ sub editxmlmode {
&renderpage($request,$file);
} else {
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
- my $xml_help = '
'.
- &Apache::loncommon::helpLatexCheatsheet("Problem_Editor_XML_Index",
- "Problem Editing Help").
- ' | '.
- &Apache::loncommon::help_open_menu(undef,undef,5,'Authoring').
- ' |
';
if ($cols > 80) { $cols = 80; }
if ($cols < 70) { $cols = 70; }
if ($rows < 20) { $rows = 20; }
@@ -947,7 +899,7 @@ sub editxmlmode {
@@ -980,14 +932,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) = @_;
@@ -1187,7 +1134,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' =>