loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.62 and 1.81

version 1.62, 2002/08/17 20:04:18	version 1.81, 2002/12/30 14:10:58
Line 87 my $coursename;	Line 87 my $coursename;

Figure out a cascading parameter.	Figure out a cascading parameter.

Inputs: $what $id $def	Inputs: $what - a parameter spec (incluse part info and name I.E. 0.weight)
	$id - a bighash Id number
Returns: I am not entirely sure.	$def - the resource's default value 'stupid emacs

	Returns: A list, the first item is the index into the remaining list of items of parm valuse that is the active one, the list consists of parm values at the 11 possible levels

	11- resource default
	10- map default
	9 - General Course
	8 - Map level in course
	7 - resource level in course
	6 - General for section
	5 - Map level for section
	4 - resource level in section
	3 - General for specific student
	2 - Map level for specific student
	1 - resource level for specific student

=cut	=cut

Line 123 sub parmval {	Line 137 sub parmval {

# --------------------------------------------------------- third, check course	# --------------------------------------------------------- third, check course

if ($courseopt{$courselevel}) {	if (defined($courseopt{$courselevel})) {
$outpar[9]=$courseopt{$courselevel};	$outpar[9]=$courseopt{$courselevel};
$result=9;	$result=9;
}	}

if ($courseopt{$courselevelm}) {	if (defined($courseopt{$courselevelm})) {
$outpar[8]=$courseopt{$courselevelm};	$outpar[8]=$courseopt{$courselevelm};
$result=8;	$result=8;
}	}

if ($courseopt{$courselevelr}) {	if (defined($courseopt{$courselevelr})) {
$outpar[7]=$courseopt{$courselevelr};	$outpar[7]=$courseopt{$courselevelr};
$result=7;	$result=7;
}	}

if ($csec) {	if (defined($csec)) {
if ($courseopt{$seclevel}) {	if (defined($courseopt{$seclevel})) {
$outpar[6]=$courseopt{$seclevel};	$outpar[6]=$courseopt{$seclevel};
$result=6;	$result=6;
}	}
if ($courseopt{$seclevelm}) {	if (defined($courseopt{$seclevelm})) {
$outpar[5]=$courseopt{$seclevelm};	$outpar[5]=$courseopt{$seclevelm};
$result=5;	$result=5;
}	}

if ($courseopt{$seclevelr}) {	if (defined($courseopt{$seclevelr})) {
$outpar[4]=$courseopt{$seclevelr};	$outpar[4]=$courseopt{$seclevelr};
$result=4;	$result=4;
}	}
Line 156 sub parmval {	Line 170 sub parmval {

# ---------------------------------------------------------- fourth, check user	# ---------------------------------------------------------- fourth, check user

if ($uname) {	if (defined($uname)) {
if ($useropt{$courselevel}) {	if (defined($useropt{$courselevel})) {
$outpar[3]=$useropt{$courselevel};	$outpar[3]=$useropt{$courselevel};
$result=3;	$result=3;
}	}

if ($useropt{$courselevelm}) {	if (defined($useropt{$courselevelm})) {
$outpar[2]=$useropt{$courselevelm};	$outpar[2]=$useropt{$courselevelm};
$result=2;	$result=2;
}	}

if ($useropt{$courselevelr}) {	if (defined($useropt{$courselevelr})) {
$outpar[1]=$useropt{$courselevelr};	$outpar[1]=$useropt{$courselevelr};
$result=1;	$result=1;
}	}
}	}

return ($result,@outpar);	return ($result,@outpar);
}	}

Line 199 sub valout {	Line 212 sub valout {
my $result = '';	my $result = '';
# Values of zero are valid.	# Values of zero are valid.
if (! $value && $value ne '0') {	if (! $value && $value ne '0') {
$result = '  ';	$result = '  ';
} else {	} else {
if ($type=~/^date/) {	if ($type eq 'date_interval') {
	my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);
	$year=$year-70;
	$mday--;
	if ($year) {
	$result.=$year.' yrs ';
	}
	if ($mon) {
	$result.=$mon.' mths ';
	}
	if ($mday) {
	$result.=$mday.' days ';
	}
	if ($hour) {
	$result.=$hour.' hrs ';
	}
	if ($min) {
	$result.=$min.' mins ';
	}
	if ($sec) {
	$result.=$sec.' secs ';
	}
	$result=~s/\s+$//;
	} elsif ($type=~/^date/) {
$result = localtime($value);	$result = localtime($value);
} else {	} else {
$result = $value;	$result = $value;
Line 249 sub startpage {	Line 285 sub startpage {
my ($r,$id,$udom,$csec,$uname)=@_;	my ($r,$id,$udom,$csec,$uname)=@_;
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;

	my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
	'onUnload="pclose()"');
	my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
	&Apache::loncommon::selectstudent_link('parmform','uname','udom');
	my $selscript=&Apache::loncommon::studentbrowser_javascript();

$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
<html>	<html>
<head>	<head>
Line 302 sub startpage {	Line 345 sub startpage {
newWin.focus();	newWin.focus();
}	}
</script>	</script>
	$selscript
</head>	</head>
<body bgcolor="#FFFFFF" onUnload="pclose()">	$bodytag
<h1>Set Course Parameters for Course:
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h1>
<form method="post" action="/adm/parmset" name="envform">	<form method="post" action="/adm/parmset" name="envform">
<h3>Course Environment</h3>	<h3>Course Environment</h3>
<input type="submit" name="crsenv" value="Set Course Environment">	<input type="submit" name="crsenv" value="Set Course Environment">
Line 321 For User	Line 363 For User
or ID	or ID
<input type="text" value="$id" size="12" name="id">	<input type="text" value="$id" size="12" name="id">
at Domain	at Domain
<input type="text" value="$udom" size="6" name="udom">	$chooseopt
</b>	</b>
<input type="hidden" value='' name="pres_value">	<input type="hidden" value='' name="pres_value">
<input type="hidden" value='' name="pres_type">	<input type="hidden" value='' name="pres_type">
Line 331 ENDHEAD	Line 373 ENDHEAD
}	}

sub print_row {	sub print_row {
my ($r,$which,$part,$name,$rid,$default,$type,$display,$defbgone,	my ($r,$which,$part,$name,$rid,$default,$defaulttype,$display,$defbgone,
$defbgtwo,$parmlev)=@_;	$defbgtwo,$parmlev)=@_;
	# get the values for the parameter in cascading order
	# empty levels will remain empty
my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},	my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
$rid,$$default{$which});	$rid,$$default{$which});
	# get the type for the parameters
	# problem: these may not be set for all levels
	my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
	$$name{$which}.'.type',
	$rid,$$defaulttype{$which});
	# cascade down manually
	my $cascadetype=$defaulttype;
	for (my $i=$#typeoutpar;$i>0;$i--) {
	if ($typeoutpar[$i]) {
	$cascadetype=$typeoutpar[$i];
	} else {
	$typeoutpar[$i]=$cascadetype;
	}
	}

my $parm=$$display{$which};	my $parm=$$display{$which};

if ($parmlev eq 'full' \|\| $parmlev eq 'brief') {	if ($parmlev eq 'full' \|\| $parmlev eq 'brief') {
Line 353 sub print_row {	Line 412 sub print_row {
if ($parmlev eq 'general') {	if ($parmlev eq 'general') {

if ($uname) {	if ($uname) {
&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
} else {	} else {
&print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}
} elsif ($parmlev eq 'map') {	} elsif ($parmlev eq 'map') {

if ($uname) {	if ($uname) {
&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
} else {	} else {
&print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}
} else {	} else {

&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);

if ($parmlev eq 'brief') {	if ($parmlev eq 'brief') {

&print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);

if ($csec) {	if ($csec) {
&print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}
if ($uname) {	if ($uname) {
&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}
} else {	} else {

&print_td($r,10,'#FFDDDD',$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,10,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,9,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,8,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,7,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);

if ($csec) {	if ($csec) {
&print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,6,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,5,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,4,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}
if ($uname) {	if ($uname) {
&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,$type,$display);	&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}
} # end of $brief if/else	} # end of $brief if/else
} # end of $parmlev if/else	} # end of $parmlev if/else

if ($parmlev eq 'full' \|\| $parmlev eq 'brief') {	if ($parmlev eq 'full' \|\| $parmlev eq 'brief') {
$r->print('<td bgcolor=#CCCCFF align="center">'.	$r->print('<td bgcolor=#CCCCFF align="center">'.
&valout($outpar[$result],$$type{$which}).'</td>');	&valout($outpar[$result],$typeoutpar[$result]).'</td>');
}	}
my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.	my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
'.'.$$name{$which},$symbp{$rid});	'.'.$$name{$which},$symbp{$rid});
	# this doesn't seem to work, and I don't think is correct
	# my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
	# '.'.$$name{$which}.'.type',$symbp{$rid});
	# this seems to work
	my $sessionvaltype=$typeoutpar[$result];
	if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
$r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.	$r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
&valout($sessionval,$$type{$which}).' '.	&valout($sessionval,$sessionvaltype).' '.
'</font></td>');	'</font></td>');
$r->print('</tr>');	$r->print('</tr>');
$r->print("\n");	$r->print("\n");
}	}

sub print_td {	sub print_td {
my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$type,$display)=@_;	my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
$r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).	$r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
' align="center">'.	' align="center">'.
&plink($$type{$value},$$display{$value},$$outpar[$which],	&plink($$typeoutpar[$which],$$display{$value},$$outpar[$which],
$mprefix."$which",'parmform.pres','psub').'</td>'."\n");	$mprefix."$which",'parmform.pres','psub').'</td>'."\n");
}	}

Line 437 sub get_env_multiple {	Line 502 sub get_env_multiple {
return(@values);	return(@values);
}	}

	=pod

	=item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.

	Input: See list below:

	=over 4

	=item B<ids>: An array that will contain all of the ids in the course.

	=item B<typep>: hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.

	=item B<keyp>: hash, id->key list, will contain a comma seperated list of the meta-data keys available for the given id

	=item B<allparms>: hash, name of parameter->display value (what is the display value?)

	=item B<allparts>: hash, part identification->text representation of part, where the text representation is "[Part $part]"

	=item B<allkeys>: hash, full key to part->display value (what's display value?)

	=item B<allmaps>: hash, ???

	=item B<fcat>: ???

	=item B<defp>: hash, ???

	=item B<mapp>: ??

	=item B<symbp>: hash, id->full sym?

	=back

	=cut

	sub extractResourceInformation {
	my $bighash = shift;
	my $ids = shift;
	my $typep = shift;
	my $keyp = shift;
	my $allparms = shift;
	my $allparts = shift;
	my $allkeys = shift;
	my $allmaps = shift;
	my $fcat = shift;
	my $defp = shift;
	my $mapp = shift;
	my $symbp = shift;

	foreach (keys %$bighash) {
	if ($_=~/^src\_(\d+)\.(\d+)$/) {
	my $mapid=$1;
	my $resid=$2;
	my $id=$mapid.'.'.$resid;
	my $srcf=$$bighash{$_};
	if ($srcf=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
	$$ids[$#$ids+1]=$id;
	$$typep{$id}=$1;
	$$keyp{$id}='';
	foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
	if ($_=~/^parameter\_(.*)/) {
	my $key=$_;
	my $allkey=$1;
	$allkey=~s/\_/\./g;
	my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
	my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
	my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
	my $parmdis = $display;
	$parmdis =~ s\|(\[Part.*$)\|\|g;
	my $partkey = $part;
	$partkey =~ tr\|_\|.\|;
	$$allparms{$name} = $parmdis;
	$$allparts{$part} = "[Part $part]";
	$$allkeys{$allkey}=$display;
	if ($allkey eq $fcat) {
	$$defp{$id}= &Apache::lonnet::metadata($srcf,$key);
	}
	if ($$keyp{$id}) {
	$$keyp{$id}.=','.$key;
	} else {
	$$keyp{$id}=$key;
	}
	}
	}
	$$mapp{$id}=
	&Apache::lonnet::declutter($$bighash{'map_id_'.$mapid});
	$$mapp{$mapid}=$$mapp{$id};
	$$allmaps{$mapid}=$$mapp{$id};
	$$symbp{$id}=$$mapp{$id}.
	'___'.$resid.'___'.
	&Apache::lonnet::declutter($srcf);
	$$symbp{$mapid}=$$mapp{$id}.'___(all)';
	}
	}
	}
	}

##################################################	##################################################
##################################################	##################################################

Line 451 Inputs: $r	Line 612 Inputs: $r

Returns: nothing	Returns: nothing

	Variables used (guessed by Jeremy):

	=over 4

	=item B<pscat>: ParameterS CATegories? ends up a list of the types of parameters that exist, e.g., tol, weight, acc, opendate, duedate, answerdate, sig, maxtries, type.

	=item B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?

	=item B<allmaps>:

	=back

=cut	=cut

##################################################	##################################################
Line 489 sub assessparms {	Line 662 sub assessparms {
my @pscat=&get_env_multiple('form.pscat');	my @pscat=&get_env_multiple('form.pscat');
my $pschp=$ENV{'form.pschp'};	my $pschp=$ENV{'form.pschp'};
my @psprt=&get_env_multiple('form.psprt');	my @psprt=&get_env_multiple('form.psprt');
	if (!@psprt) { $psprt[0]='0'; }
my $showoptions=$ENV{'form.showoptions'};	my $showoptions=$ENV{'form.showoptions'};

my $pssymb='';	my $pssymb='';
Line 580 sub assessparms {	Line 754 sub assessparms {
$r->print("Unable to access parameter data. (File $ENV{'request.course.fn'}_parms.db not tieable)");	$r->print("Unable to access parameter data. (File $ENV{'request.course.fn'}_parms.db not tieable)");
return ;	return ;
}	}

# --------------------------------------------------------- Get all assessments	# --------------------------------------------------------- Get all assessments
foreach (keys %bighash) {	extractResourceInformation(\%bighash, \@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp);
if ($_=~/^src\_(\d+)\.(\d+)$/) {
my $mapid=$1;
my $resid=$2;
my $id=$mapid.'.'.$resid;
my $srcf=$bighash{$_};
if ($srcf=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
$ids[$#ids+1]=$id;
$typep{$id}=$1;
$keyp{$id}='';
foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'keys'))) {
if ($_=~/^parameter\_(.*)/) {
my $key=$_;
my $allkey=$1;
$allkey=~s/\_/\./g;
my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
my $parmdis = $display;
$parmdis =~ s\|(\[Part.*$)\|\|g;
my $partkey = $part;
$partkey =~ tr\|_\|.\|;
$allparms{$name} = $parmdis;
$allparts{$part} = "[Part $part]";
$allkeys{$allkey}=$display;
if ($allkey eq $fcat) {
$defp{$id}= &Apache::lonnet::metadata($srcf,$key);
}
if ($keyp{$id}) {
$keyp{$id}.=','.$key;
} else {
$keyp{$id}=$key;
}
}
}
$mapp{$id}=
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid});
$mapp{$mapid}=$mapp{$id};
$allmaps{$mapid}=$mapp{$id};
$symbp{$id}=$mapp{$id}.
'___'.$resid.'___'.
&Apache::lonnet::declutter($srcf);
$symbp{$mapid}=$mapp{$id}.'___(all)';
}
}
}
$mapp{'0.0'} = '';	$mapp{'0.0'} = '';
$symbp{'0.0'} = '';	$symbp{'0.0'} = '';
# ---------------------------------------------------------- Anything to store?	# ---------------------------------------------------------- Anything to store?
Line 654 sub assessparms {	Line 785 sub assessparms {
if ($snum==5) { $storeunder=$seclevelm; }	if ($snum==5) { $storeunder=$seclevelm; }
if ($snum==4) { $storeunder=$seclevelr; }	if ($snum==4) { $storeunder=$seclevelr; }

my %storecontent = ($storeunder => $ENV{'form.pres_value'},	my $delete;
$storeunder.'type' => $ENV{'form.pres_type'});	if ($ENV{'form.pres_value'} eq '') { $delete=1;}
	my %storecontent = ($storeunder => $ENV{'form.pres_value'},
	$storeunder.'.type' => $ENV{'form.pres_type'});
my $reply='';	my $reply='';
if ($snum>3) {	if ($snum>3) {
# ---------------------------------------------------------------- Store Course	# ---------------------------------------------------------------- Store Course
Line 670 sub assessparms {	Line 803 sub assessparms {
&Apache::lonnet::expirespread('','','assesscalc');	&Apache::lonnet::expirespread('','','assesscalc');
}	}
# Store parameter	# Store parameter
$reply=&Apache::lonnet::cput	if ($delete) {
('resourcedata',\%storecontent,	$reply=&Apache::lonnet::del
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},	('resourcedata',[keys(%storecontent)],
$ENV{'course.'.$ENV{'request.course.id'}.'.num'});	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});
	} else {
	$reply=&Apache::lonnet::cput
	('resourcedata',\%storecontent,
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'});
	}
} else {	} else {
# ------------------------------------------------------------------ Store User	# ------------------------------------------------------------------ Store User
#	#
Line 689 sub assessparms {	Line 829 sub assessparms {
&Apache::lonnet::expirespread($uname,$udom,'assesscalc');	&Apache::lonnet::expirespread($uname,$udom,'assesscalc');
}	}
# Store parameter	# Store parameter
$reply=&Apache::lonnet::cput	if ($delete) {
('resourcedata',\%storecontent,$udom,$uname);	$reply=&Apache::lonnet::del
	('resourcedata',[keys(%storecontent)],$udom,$uname);
	} else {
	$reply=&Apache::lonnet::cput
	('resourcedata',\%storecontent,$udom,$uname);
	}
}	}

if ($reply=~/^error\:(.*)/) {	if ($reply=~/^error\:(.*)/) {
$message.="<font color=red>Write Error: $1</font>";	$message.="<font color=red>Write Error: $1</font>";
}	}
# ---------------------------------------------------------------- Done storing	# ---------------------------------------------------------------- Done storing
	$message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>';
}	}
	# --------------------------------------------- Devalidate cache for this child
	&Apache::lonnet::devalidatecourseresdata(
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
# -------------------------------------------------------------- Get coursedata	# -------------------------------------------------------------- Get coursedata
%courseopt = &Apache::lonnet::dump	%courseopt = &Apache::lonnet::dump
('resourcedata',	('resourcedata',
Line 725 sub assessparms {	Line 875 sub assessparms {
if ($pscat[0] eq "all" \|\| !@pscat) {@pscat = (keys %allparms);}	if ($pscat[0] eq "all" \|\| !@pscat) {@pscat = (keys %allparms);}
if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}	if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}
# ------------------------------------------------------------------ Start page	# ------------------------------------------------------------------ Start page

&startpage($r,$id,$udom,$csec,$uname);	&startpage($r,$id,$udom,$csec,$uname);
# if ($ENV{'form.url'}) {	# if ($ENV{'form.url'}) {
# $r->print('<input type="hidden" value="'.$ENV{'form.url'}.	# $r->print('<input type="hidden" value="'.$ENV{'form.url'}.
Line 800 sub assessparms {	Line 951 sub assessparms {
$r->print('>All Parameters</td>');	$r->print('>All Parameters</td>');

my $cnt=0;	my $cnt=0;

foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }	foreach $tempkey (sort { $allparms{$a} cmp $allparms{$b} }
keys %allparms ) {	keys %allparms ) {
++$cnt;	++$cnt;
Line 819 sub assessparms {	Line 969 sub assessparms {
$r->print('<option value="all"');	$r->print('<option value="all"');
$r->print(' selected') unless (@psprt);	$r->print(' selected') unless (@psprt);
$r->print('>All Parts</option>');	$r->print('>All Parts</option>');
	my %temphash=();
	foreach (@psprt) { $temphash{$_}=1; }
foreach $tempkey (sort keys %allparts) {	foreach $tempkey (sort keys %allparts) {
unless ($tempkey =~ /\./) {	unless ($tempkey =~ /\./) {
$r->print('<option value="'.$tempkey.'"');	$r->print('<option value="'.$tempkey.'"');
if ($psprt[0] eq "all" \|\| grep $_ == $tempkey, @psprt) {	if ($psprt[0] eq "all" \|\| $temphash{$tempkey}) {
$r->print(' selected');	$r->print(' selected');
}	}
$r->print('>'.$allparts{$tempkey}.'</option>');	$r->print('>'.$allparts{$tempkey}.'</option>');
Line 869 sub assessparms {	Line 1021 sub assessparms {
}	}
$r->print('</table>');	$r->print('</table>');

my @temp_psprt;	# my @temp_psprt;
foreach my $t (@psprt) {	# foreach my $t (@psprt) {
push(@temp_psprt, grep {eval (/^$t\./ \|\| ($_ == $t))} (keys %allparts));	# push(@temp_psprt, grep {eval (/^$t\./ \|\| ($_ == $t))} (keys %allparts));
}	# }

@psprt = @temp_psprt;	# @psprt = @temp_psprt;

my @temp_pscat;	my @temp_pscat;
map {	map {
Line 1066 ENDTABLEHEADFOUR	Line 1218 ENDTABLEHEADFOUR
foreach (split(/\,/,$keyp{$rid})) {	foreach (split(/\,/,$keyp{$rid})) {
my $tempkeyp = $_;	my $tempkeyp = $_;
my $fullkeyp = $tempkeyp;	my $fullkeyp = $tempkeyp;
$tempkeyp =~ s/_[\d_]+_/_0_/;	$tempkeyp =~ s/_\w+_/_0_/;

if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {	if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";	$part{$tempkeyp}="0";
Line 1074 ENDTABLEHEADFOUR	Line 1226 ENDTABLEHEADFOUR
$display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');	$display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_[\d_]+_/_0_/;	$display{$tempkeyp} =~ s/_\w+_/_0_/;
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);	$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}	}
Line 1148 ENDMAPONE	Line 1300 ENDMAPONE
foreach (split(/\,/,$keyp{$rid})) {	foreach (split(/\,/,$keyp{$rid})) {
my $tempkeyp = $_;	my $tempkeyp = $_;
my $fullkeyp = $tempkeyp;	my $fullkeyp = $tempkeyp;
$tempkeyp =~ s/_[\d_]+_/_0_/;	$tempkeyp =~ s/_\w+_/_0_/;
if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {	if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";	$part{$tempkeyp}="0";
$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');	$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
$display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');	$display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_[\d_]+_/_0_/;	$display{$tempkeyp} =~ s/_\w+_/_0_/;
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);	$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}	}
Line 1221 Returns: nothing	Line 1373 Returns: nothing
sub crsenv {	sub crsenv {
my $r=shift;	my $r=shift;
my $setoutput='';	my $setoutput='';
	my $bodytag=&Apache::loncommon::bodytag(
	'Set Course Environment Parameters');
my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
# -------------------------------------------------- Go through list of changes	# -------------------------------------------------- Go through list of changes
Line 1243 sub crsenv {	Line 1397 sub crsenv {
$dom,$crs).	$dom,$crs).
'<br>';	'<br>';
}	}
	if ($name =~ /^spreadsheet_default_(classcalc\|
	studentcalc\|
	assesscalc)$/x) {
	my $sheettype = $1;
	if ($sheettype eq 'classcalc') {
	# no need to do anything since viewing the sheet will
	# cause it to be updated.
	} elsif ($sheettype eq 'studentcalc') {
	# expire all the student spreadsheets
	&Apache::lonnet::expirespread('','','studentcalc');
	} else {
	# expire all the default assessment spreadsheets
	}
	}

if ($name) {	if ($name) {
$setoutput.='Setting <tt>'.$name.'</tt> to <tt>'.	$setoutput.='Setting <tt>'.$name.'</tt> to <tt>'.
$value.'</tt>: '.	$value.'</tt>: '.
Line 1261 sub crsenv {	Line 1430 sub crsenv {
('url' => '<b>Top Level Map</b> '.	('url' => '<b>Top Level Map</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','url','sequence')\">".	"('envform','url','sequence')\">".
'Browse</a><br><font color=red> '.	'Browse</a><br /><font color=red> '.
'Modification may make assessment data '.	'Modification may make assessment data '.
'inaccessible</font>',	'inaccessible</font>',
'description' => '<b>Course Description</b>',	'description' => '<b>Course Description</b>',
'courseid' => '<b>Course ID or number</b><br>'.	'courseid' => '<b>Course ID or number</b><br />'.
'(internal, optional)',	'(internal, optional)',
'default_xml_style' => '<b>Default XML Style File</b> '.	'default_xml_style' => '<b>Default XML Style File</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','default_xml_style'".	"('envform','default_xml_style'".
",'sty')\">Browse</a><br>",	",'sty')\">Browse</a><br>",
'question.email' => '<b>Feedback Addresses for Content '.	'question.email' => '<b>Feedback Addresses for Resource Content '.
'Questions</b><br>(<tt>user:domain,'.	'Questions</b><br />(<tt>user:domain,'.
'user:domain,...</tt>)',	'user:domain(section;section;...;*;...),...</tt>)',
'comment.email' => '<b>Feedback Addresses for Comments</b><br>'.	'comment.email' => '<b>Feedback Addresses for Course Content Comments</b><br />'.
'(<tt>user:domain,user:domain,...</tt>)',	'(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
'policy.email' => '<b>Feedback Addresses for Course Policy</b>'.	'policy.email' => '<b>Feedback Addresses for Course Policy</b>'.
'<br>(<tt>user:domain,user:domain,...</tt>)',	'<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br>'.	'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br />'.
'("<tt>yes</tt>" for default hiding)',	'("<tt>yes</tt>" for default hiding)',
'pageseparators' => '<b>Visibly Separate Items on Pages</b><br>'.	'pageseparators' => '<b>Visibly Separate Items on Pages</b><br />'.
'("<tt>yes</tt>" for visible separation)',	'("<tt>yes</tt>" for visible separation)',
'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.	'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
'Roles</b><br>"<tt>st</tt>": '.	'Roles</b><br />"<tt>st</tt>": '.
'student, "<tt>ta</tt>": '.	'student, "<tt>ta</tt>": '.
'TA, "<tt>in</tt>": '.	'TA, "<tt>in</tt>": '.
'instructor;<br><tt>role,role,...</tt>) '.	'instructor;<br /><tt>role,role,...</tt>) '.
Apache::loncommon::help_open_topic("Course_Disable_Discussion"),	Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
'pch.users.denied' =>	'pch.users.denied' =>
'<b>Disallow Resource Discussion for Users</b><br>'.	'<b>Disallow Resource Discussion for Users</b><br />'.
'(<tt>user:domain,user:domain,...</tt>)',	'(<tt>user:domain,user:domain,...</tt>)',
'spreadsheet_default_classcalc'	'spreadsheet_default_classcalc'
=> '<b>Default Course Spreadsheet</b> '.	=> '<b>Default Course Spreadsheet</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_classcalc'".	"('envform','spreadsheet_default_classcalc'".
",'spreadsheet')\">Browse</a><br>",	",'spreadsheet')\">Browse</a><br />",
'spreadsheet_default_studentcalc'	'spreadsheet_default_studentcalc'
=> '<b>Default Student Spreadsheet</b> '.	=> '<b>Default Student Spreadsheet</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_calc'".	"('envform','spreadsheet_default_calc'".
",'spreadsheet')\">Browse</a><br>",	",'spreadsheet')\">Browse</a><br />",
'spreadsheet_default_assesscalc'	'spreadsheet_default_assesscalc'
=> '<b>Default Assessment Spreadsheet</b> '.	=> '<b>Default Assessment Spreadsheet</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_assesscalc'".	"('envform','spreadsheet_default_assesscalc'".
",'spreadsheet')\">Browse</a><br>",	",'spreadsheet')\">Browse</a><br />",
	'allow_limited_html_in_feedback'
	=> '<b>Allow limited HTML in discussion posts</b><br />'.
	'(Set value to yes to allow)'
);	);
foreach (keys(%values)) {	foreach (keys(%values)) {
unless ($descriptions{$_}) {	unless ($descriptions{$_}) {
Line 1314 sub crsenv {	Line 1486 sub crsenv {
}	}
foreach (sort keys %descriptions) {	foreach (sort keys %descriptions) {
# onchange is javascript to automatically check the 'Set' button.	# onchange is javascript to automatically check the 'Set' button.
my $onchange = 'onchange="javascript:window.document.forms'.	my $onchange = 'onFocus="javascript:window.document.forms'.
'[\'envform\'].elements[\''.$_.'_setparmval\']'.	'[\'envform\'].elements[\''.$_.'_setparmval\']'.
'.checked=true;"';	'.checked=true;"';
$output.='<tr><td>'.$descriptions{$_}.'</td>'.	$output.='<tr><td>'.$descriptions{$_}.'</td>'.
Line 1323 sub crsenv {	Line 1495 sub crsenv {
'<td><input type=checkbox name="'.$_.'_setparmval"></td>'.	'<td><input type=checkbox name="'.$_.'_setparmval"></td>'.
'</tr>'."\n";	'</tr>'."\n";
}	}
my $onchange = 'onchange="javascript:window.document.forms'.	my $onchange = 'onFocus="javascript:window.document.forms'.
'[\'envform\'].elements[\'newp_setparmval\']'.	'[\'envform\'].elements[\'newp_setparmval\']'.
'.checked=true;"';	'.checked=true;"';
$output.='<tr><td><i>Create New Environment Variable</i><br />'.	$output.='<tr><td><i>Create New Environment Variable</i><br />'.
Line 1362 sub crsenv {	Line 1534 sub crsenv {
<head>	<head>
<title>LON-CAPA Course Environment</title>	<title>LON-CAPA Course Environment</title>
</head>	</head>
<body bgcolor="#FFFFFF">	$bodytag
<h1>Set Course Parameters</h1>
<form method="post" action="/adm/parmset" name="envform">	<form method="post" action="/adm/parmset" name="envform">
<h2>Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h2>
<h3>Course Environment</h3>
$setoutput	$setoutput
<p>	<p>
<table border=2>	<table border=2>

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

Removed from v.1.62
changed lines
	Added in v.1.81