loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.9 and 1.14

version 1.9, 2000/11/28 19:15:48	version 1.14, 2000/12/19 23:22:22
Line 7 package Apache::response;	Line 7 package Apache::response;
use strict;	use strict;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse'));	&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse'));
	}

	sub start_response {
	my ($parstack,$safeeval)=@_;
	my $args ='';
	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
	my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
	if ($id eq '') { $id = $Apache::lonxml::curdepth; }
	push (@Apache::inputtags::response,$id);
	push (@Apache::inputtags::responselist,$id);
	@Apache::inputtags::inputlist=();
	return $id;
	}

	sub end_response {
	pop @Apache::inputtags::response;
	@Apache::inputtags::inputlist=();
	return '';
}	}

sub meta_parameter_write {	sub meta_parameter_write {
my ($partid,$name,$type,$default,$display)=@_;	my ($name,$type,$default,$display)=@_;
return '<parameter part="'.$partid.	return '<parameter part="'.$Apache::inputtags::part.
'" name="'.$name.	'" name="'.$name.
'" type="'.$type.	'" type="'.$type.
'" default="'.$default.	'" default="'.$default.
'" display="'.$display.' [Part: '.$partid.']"></parameter>'	'" display="'.$display.
	' [Part: '.$Apache::inputtags::part.']"></parameter>'
."\n";	."\n";
}	}

sub meta_stores_write {	sub meta_stores_write {
my ($partid,$name,$type,$display)=@_;	my ($name,$type,$display)=@_;
return '<stores part="'.$partid.	return '<stores part="'.$Apache::inputtags::part.
'" name="'.$name.	'" name="'.$name.
'" type="'.$type.	'" type="'.$type.
'" display="'.$display.' [Part: '.$partid.']"></stores>'	'" display="'.$display.
	' [Part: '.$Apache::inputtags::part.']"></stores>'
."\n";	."\n";
}	}

sub mandatory_part_meta {	sub mandatory_part_meta {
my $partid=shift;
#	#
# Autogenerate metadata for mandatory	# Autogenerate metadata for mandatory
# input (from RAT or lonparmset) and	# input (from RAT or lonparmset) and
Line 38 sub mandatory_part_meta {	Line 57 sub mandatory_part_meta {
# of each part	# of each part
#	#
return	return
&meta_parameter_write($partid,'opendate','date_start','',	&meta_parameter_write('opendate','date_start','',
'Opening Date').	'Opening Date').
&meta_parameter_write($partid,'duedate','date_end','',	&meta_parameter_write('duedate','date_end','',
'Due Date').	'Due Date').
&meta_parameter_write($partid,'answerdate','date_start','',	&meta_parameter_write('answerdate','date_start','',
'Show Answer Date').	'Show Answer Date').
&meta_parameter_write($partid,'weight','int_zeropos','',	&meta_parameter_write('weight','int_zeropos','',
'Available Points').	'Available Points').
&meta_parameter_write($partid,'maxtries','int_pos','',	&meta_parameter_write('maxtries','int_pos','',
'Maximum Number of Tries').	'Maximum Number of Tries').

&meta_stores_write($partid,'solved','string',	&meta_stores_write('solved','string',
'Problem Status').	'Problem Status').
&meta_stores_write($partid,'tries','int_zeropos',	&meta_stores_write('tries','int_zeropos',
'Number of Unsuccessful Tries').	'Number of Unsuccessful Tries').
&meta_stores_write($partid,'awarded','float',	&meta_stores_write('awarded','float',
'Partial Credit Factor');	'Partial Credit Factor');
#	#
# Note: responseid-specific data 'submission' and 'awarddetail'	# Note: responseid-specific data 'submission' and 'awarddetail'
Line 61 sub mandatory_part_meta {	Line 80 sub mandatory_part_meta {
#	#
}	}

	sub start_numericalresponse {
	require Apache::caparesponse;
	import Apache::caparesponse;
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	Apache::caparesponse::start_numericalresponse($target,$token,$parstack,$parser,$safeeval,$style);;
	return "";
	}

sub start_caparesponse {	sub start_caparesponse {
require Apache::caparesponse;	require Apache::caparesponse;
import Apache::caparesponse;	import Apache::caparesponse;
Line 72 sub start_caparesponse {	Line 99 sub start_caparesponse {

sub start_responseparam {	sub start_responseparam {
my ($target,$token,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$parstack,$parser,$safeeval)=@_;
if ($target ne 'meta') {	if ($target eq 'grade') {
my $args='';	my $args='';
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }	if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);	my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
Line 80 sub start_responseparam {	Line 107 sub start_responseparam {
&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name");	&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name");
my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name");	my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name");
&Apache::lonxml::debug("$name has value :$value: and default :$default:");	&Apache::lonxml::debug("$name has value :$value: and default :$default:");
if (!$value) {	if ($value eq '') {
	&Apache::lonxml::debug("defaullting");
$Apache::inputtags::params{$name}=$default;	$Apache::inputtags::params{$name}=$default;
} else {	} else {
	&Apache::lonxml::debug("using value");
$Apache::inputtags::params{$name}=$value;	$Apache::inputtags::params{$name}=$value;
}	}
return '';	return '';
} else {	} elsif ($target eq 'meta') {
return &meta_parameter_write(	return &meta_parameter_write($token->[2]->{'name'},
$Apache::inputtags::part,
$token->[2]->{'name'},
$token->[2]->{'type'},	$token->[2]->{'type'},
$token->[2]->{'default'},	$token->[2]->{'default'},
$token->[2]->{'description'});	$token->[2]->{'description'});
	} else {
	return '';
}	}
}	}

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

Removed from v.1.9
changed lines
	Added in v.1.14