[BACK]Return to lonhomework.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonhomework.pm between versions 1.298 and 1.299

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) = @_;
   
Removed from v.1.298  
changed lines
  Added in v.1.299

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>