--- loncom/homework/lonhomework.pm 2008/11/25 13:16:17 1.300 +++ loncom/homework/lonhomework.pm 2009/02/17 15:25:18 1.302 @@ -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.302 2009/02/17 15:25:18 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 @@ 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; @@ -947,7 +905,7 @@ sub editxmlmode {
'.&mt('Problem Editing').&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').' | - '.&Apache::loncommon::helpLatexCheatsheet().' + '.&Apache::loncommon::helpLatexCheatsheet('Problem_LON-CAPA_Functions','Script Functions').' |