loncom/interface/spreadsheet/assesscalc.pm - diff

Return to assesscalc.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.16, 2003/07/16 16:35:45	version 1.17, 2003/07/29 05:22:56
Line 247 this user and course.	Line 247 this user and course.
##################################################	##################################################
sub parmval {	sub parmval {
my $self = shift;	my $self = shift;
my ($what,$symb,$uname,$udom,$csec)=@_;	my ($what,$symb,$uname,$udom,$csec,$recurse)=@_;
$uname = $self->{'name'} if (! defined($uname));	$uname = $self->{'name'} if (! defined($uname));
$udom = $self->{'domain'} if (! defined($udom));	$udom = $self->{'domain'} if (! defined($udom));
$csec = $self->{'section'} if (! defined($csec));	$csec = $self->{'section'} if (! defined($csec));
Line 312 sub parmval {	Line 312 sub parmval {
if ($part eq '') { $part='0'; }	if ($part eq '') { $part='0'; }
my $newwhat=$rwhat;	my $newwhat=$rwhat;
$newwhat=~s/\Q$space\E/$part/;	$newwhat=~s/\Q$space\E/$part/;
my $partgeneral=$self->parmval($newwhat,$symb,$uname,$udom,$csec);	my $partgeneral=$self->parmval($newwhat,$symb,$uname,$udom,$csec,1);
if (defined($partgeneral)) { return $partgeneral; }	if (defined($partgeneral)) { return $partgeneral; }
}	}
	if ($recurse) { return undef; }
	my $pack_def=&Apache::lonnet::packages_tab_default($fn,'resource.'.$what);
	if (defined($pack_def)) { return $pack_def; }
#nothing defined	#nothing defined
return '';	return '';
}	}