version 1.298, 2008/10/07 10:13:06
|
version 1.299, 2008/11/19 18:34:56
|
Line 85 sub set_bubble_lines {
|
Line 85 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 337 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 494 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 938 sub editxmlmode {
|
Line 961 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) = @_; |
|
|