loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.42, 2001/05/04 21:20:31	version 1.44, 2001/05/21 19:45:28
Line 15 use Apache::hint;	Line 15 use Apache::hint;
use Apache::outputtags;	use Apache::outputtags;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);


	sub BEGIN {
	&Apache::lonxml::register_insert();
	}

sub get_target {	sub get_target {
if ( $ENV{'request.state'} eq "published") {	if ( $ENV{'request.state'} eq "published") {
if ( defined $ENV{'form.submitted'}) {	if ( defined $ENV{'form.submitted'}) {
Line 294 EDITMENU	Line 299 EDITMENU
sub handler {	sub handler {
my $request=$_[0];	my $request=$_[0];

if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}	# if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;}

if (&setupheader($request)) { return OK; }	if (&setupheader($request)) { return OK; }
$ENV{'request.uri'}=$request->uri;	$ENV{'request.uri'}=$request->uri;