loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.32, 2001/01/11 15:25:46	version 1.34, 2001/01/15 21:44:21
Line 17 use Apache::Constants qw(:common);	Line 17 use Apache::Constants qw(:common);

sub get_target {	sub get_target {
if ( $ENV{'request.state'} eq "published") {	if ( $ENV{'request.state'} eq "published") {
if ( defined $ENV{'form.submit'}) {	if ( defined $ENV{'form.submitted'}) {
return ('grade', 'web');	return ('grade', 'web');
} else {	} else {
return ('web');	return ('web');
}	}
} elsif ($ENV{'request.state'} eq "construct") {	} elsif ($ENV{'request.state'} eq "construct") {
if ( defined $ENV{'form.preview'}) {	if ( defined $ENV{'form.preview'}) {
if ( defined $ENV{'form.submit'}) {	if ( defined $ENV{'form.submitted'}) {
return ('grade', 'web');	return ('grade', 'web');
} else {	} else {
return ('web');	return ('web');
Line 117 sub check_date {	Line 117 sub check_date {
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;} else {$Apache::lonxml::debug=0;}

my (@targets) = &get_target();	my (@targets) = &get_target();