version 1.297, 2008/09/05 17:43:32
|
version 1.300, 2008/11/25 13:16:17
|
Line 25
|
Line 25
|
# |
# |
# http://www.lon-capa.org/ |
# 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; |
package Apache::lonhomework; |
use strict; |
use strict; |
Line 85 sub set_bubble_lines {
|
Line 104 sub set_bubble_lines {
|
} |
} |
} |
} |
|
|
# |
=pod |
# Decides what targets to render for. |
|
# Implicit inputs: |
=item get_target() |
# Various session environment variables: |
|
# request.state - published - is a /res/ resource |
Decides what targets to render for. |
# uploaded - is a /uploaded/ resource |
Implicit inputs: |
# contruct - is a /priv/ resource |
Various session environment variables: |
# form.grade_target - a form parameter requesting a specific target |
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 |
|
|
sub get_target { |
sub get_target { |
&Apache::lonxml::debug("request.state = $env{'request.state'}"); |
&Apache::lonxml::debug("request.state = $env{'request.state'}"); |
if( defined($env{'form.grade_target'})) { |
if( defined($env{'form.grade_target'})) { |
Line 331 sub check_slot_access {
|
Line 356 sub check_slot_access {
|
return ($slotstatus,$datemsg,$slot_name,$returned_slot); |
return ($slotstatus,$datemsg,$slot_name,$returned_slot); |
} |
} |
|
|
# JB, 9/24/2002: Any changes in this function may require a change |
|
# in lonnavmaps::resource::getDateStatus. |
=pod |
|
|
|
=item check_access() |
|
|
|
JB, 9/24/2002: Any changes in this function may require a change |
|
in lonnavmaps::resource::getDateStatus. |
|
|
|
=cut |
|
|
sub check_access { |
sub check_access { |
my ($id) = @_; |
my ($id) = @_; |
my $date =''; |
my $date =''; |
Line 480 sub check_access {
|
Line 513 sub check_access {
|
|
|
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
# this should work exactly like the copy in lonnavmaps.pm |
|
|
|
|
=pod |
|
|
|
=item due_date() |
|
|
|
this should work exactly like the copy in lonnavmaps.pm |
|
|
|
=cut |
|
|
sub due_date { |
sub due_date { |
my ($part_id,$symb,$udom,$uname)=@_; |
my ($part_id,$symb,$udom,$uname)=@_; |
my $date; |
my $date; |
Line 884 sub editxmlmode {
|
Line 926 sub editxmlmode {
|
&Apache::edit::js_change_detection(). |
&Apache::edit::js_change_detection(). |
&Apache::loncommon::resize_textarea_js(). |
&Apache::loncommon::resize_textarea_js(). |
&Apache::structuretags::setmode_javascript(). |
&Apache::structuretags::setmode_javascript(). |
&Apache::lonhtmlcommon::dragmath_js(); |
&Apache::lonhtmlcommon::dragmath_js("EditMathPopup"); |
my $only_body = ($env{'environment.remote'} eq 'off')? 0 : 1; |
my $only_body = ($env{'environment.remote'} eq 'off')? 0 : 1; |
my $dragmath_button = |
my $dragmath_button = |
&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1); |
&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1); |
Line 938 sub editxmlmode {
|
Line 980 sub editxmlmode {
|
return ''; |
return ''; |
} |
} |
|
|
# |
=pod |
# Render the page in whatever target desired. |
|
# |
=item renderpage() |
|
|
|
Render the page in whatever target desired. |
|
|
|
=cut |
|
|
sub renderpage { |
sub renderpage { |
my ($request,$file,$targets,$return_string) = @_; |
my ($request,$file,$targets,$return_string) = @_; |
|
|