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.88 and 1.140

version 1.88, 2003/04/30 15:49:45	version 1.140, 2003/12/04 20:06:29
Line 61 use Apache::loncommon;	Line 61 use Apache::loncommon;
use GDBM_File;	use GDBM_File;
use Apache::lonhomework;	use Apache::lonhomework;
use Apache::lonxml;	use Apache::lonxml;
	use Apache::lonlocal;

my %courseopt;	my %courseopt;
my %useropt;	my %useropt;
Line 131 sub parmval {	Line 131 sub parmval {

# -------------------------------------------------------- first, check default	# -------------------------------------------------------- first, check default

if ($def) { $outpar[11]=$def; $result=11; }	if (defined($def)) { $outpar[11]=$def; $result=11; }

# ----------------------------------------------------- second, check map parms	# ----------------------------------------------------- second, check map parms

my $thisparm=$parmhash{$symbparm};	my $thisparm=$parmhash{$symbparm};
if ($thisparm) { $outpar[10]=$thisparm; $result=10; }	if (defined($thisparm)) { $outpar[10]=$thisparm; $result=10; }

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

Line 285 sub plink {	Line 285 sub plink {


sub startpage {	sub startpage {
my ($r,$id,$udom,$csec,$uname)=@_;	my ($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader)=@_;

my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',	my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
'onUnload="pclose()"');	'onUnload="pclose()"');
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.	my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
&Apache::loncommon::selectstudent_link('parmform','uname','udom');	&Apache::loncommon::selectstudent_link('parmform','uname','udom');
my $selscript=&Apache::loncommon::studentbrowser_javascript();	my $selscript=&Apache::loncommon::studentbrowser_javascript();
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
	my %lt=&Apache::lonlocal::texthash(
	'cep' => "Course Environment Parameters",
	'scep' => "Set Course Environment Parameters",
	'smcap' => "Set/Modify Course Assessment Parameter",
	'mcap' => "Modify Course Assessment Parameters",
	'caphm' => "Course Assessment Parameter - Helper Mode",
	'capom' => "Course Assessment Parameters - Overview Mode",
	'captm' => "Course Assessments Parameters - Table Mode",
	'sg' => "Section/Group",
	'fu' => "For User",
	'oi' => "or ID",
	'ad' => "at Domain"
	);
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
<html>	<html>
<head>	<head>
Line 341 sub startpage {	Line 354 sub startpage {
$selscript	$selscript
</head>	</head>
$bodytag	$bodytag
	ENDHEAD

	unless ($trimheader) {$r->print(<<ENDHEAD2);
<form method="post" action="/adm/parmset" name="envform">	<form method="post" action="/adm/parmset" name="envform">
<h3>Course Environment</h3>	<h4>$lt{'cep'}</h4>
<input type="submit" name="crsenv" value="Set Course Environment">	<input type="submit" name="crsenv" value="$lt{'scep'}" />
	</form>
	<hr />
	<form method="post" action="/adm/helper/parameter.helper" name="helpform">
	<h4>$lt{'caphm'}</h4>
	<input type="submit" value="$lt{'smcap'}" />
	</form>
	<hr />
	<form method="post" action="/adm/parmset" name="overview">
	<h4>$lt{'capom'}</h4>
	<input type="submit" name="overview" value="$lt{'mcap'}" />
</form>	</form>
	<hr />
	ENDHEAD2
	}
	$r->print(<<ENDHEAD3);
<form method="post" action="/adm/parmset" name="parmform">	<form method="post" action="/adm/parmset" name="parmform">
<h3>Course Assessments</h3>	<h4>$lt{'captm'}</h4>
	ENDHEAD3

	if (!$have_assesments) {
	$r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');
	} else {
	$r->print(<<ENDHEAD);
<b>	<b>
Section/Group:	$lt{'sg'}:
<input type="text" value="$csec" size="6" name="csec">	<input type="text" value="$csec" size="6" name="csec">
<br>	<br>
For User	$lt{'fu'}
<input type="text" value="$uname" size="12" name="uname">	<input type="text" value="$uname" size="12" name="uname">
or ID	$lt{'oi'}
<input type="text" value="$id" size="12" name="id">	<input type="text" value="$id" size="12" name="id">
at Domain	$lt{'ad'}
$chooseopt	$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">
<input type="hidden" value='' name="pres_marker">	<input type="hidden" value='' name="pres_marker">
ENDHEAD	ENDHEAD
	}
}	}

sub print_row {	sub print_row {
Line 454 sub print_row {	Line 490 sub print_row {
} # 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') {	$r->print('<td bgcolor=#CCCCFF align="center">'.
$r->print('<td bgcolor=#CCCCFF align="center">'.
&valout($outpar[$result],$typeoutpar[$result]).'</td>');	&valout($outpar[$result],$typeoutpar[$result]).'</td>');
}
my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.	if ($parmlev eq 'full' \|\| $parmlev eq 'brief') {
	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	# this doesn't seem to work, and I don't think is correct
# my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.	# my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
# '.'.$$name{$which}.'.type',$symbp{$rid});	# '.'.$$name{$which}.'.type',$symbp{$rid});
# this seems to work	# this seems to work
my $sessionvaltype=$typeoutpar[$result];	my $sessionvaltype=$typeoutpar[$result];
if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }	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,$sessionvaltype).' '.	&valout($sessionval,$sessionvaltype).' '.
'</font></td>');	'</font></td>');
	}
$r->print('</tr>');	$r->print('</tr>');
$r->print("\n");	$r->print("\n");
}	}
Line 476 sub print_row {	Line 514 sub print_row {
sub print_td {	sub print_td {
my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$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($$typeoutpar[$which],$$display{$value},$$outpar[$which],	if ($which<10) {
$mprefix."$which",'parmform.pres','psub').'</td>'."\n");	$r->print(&plink($$typeoutpar[$which],
}	$$display{$value},$$outpar[$which],
	$mprefix."$which",'parmform.pres','psub'));
sub get_env_multiple {	} else {
my ($name) = @_;	$r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
my @values;
if (defined($ENV{$name})) {
# exists is it an array
if (ref($ENV{$name})) {
@values=@{ $ENV{$name} };
} else {
$values[0]=$ENV{$name};
}
}	}
return(@values);	$r->print('</td>'."\n");
}	}

=pod	=pod
Line 629 sub assessparms {	Line 659 sub assessparms {

my $r=shift;	my $r=shift;
# -------------------------------------------------------- Variable declaration	# -------------------------------------------------------- Variable declaration
my %allkeys;	my %allkeys=();
my %allmaps;	my %allmaps=();
my %alllevs;	my %alllevs=();

$alllevs{'Resource Level'}='full';	$alllevs{'Resource Level'}='full';
# $alllevs{'Resource Level [BRIEF]'}='brief';	# $alllevs{'Resource Level [BRIEF]'}='brief';
Line 656 sub assessparms {	Line 686 sub assessparms {
$udom=$ENV{'form.udom'};	$udom=$ENV{'form.udom'};
unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }	unless ($udom) { $udom=$r->dir_config('lonDefDomain'); }

my @pscat=&get_env_multiple('form.pscat');	my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
my $pschp=$ENV{'form.pschp'};	my $pschp=$ENV{'form.pschp'};
my @psprt=&get_env_multiple('form.psprt');	my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
if (!@psprt) { $psprt[0]='0'; }	if (!@psprt) { $psprt[0]='0'; }
my $showoptions=$ENV{'form.showoptions'};	my $showoptions=$ENV{'form.showoptions'};

my $pssymb='';	my $pssymb='';
my $parmlev='';	my $parmlev='';
	my $trimheader='';
my $prevvisit=$ENV{'form.prevvisit'};	my $prevvisit=$ENV{'form.prevvisit'};

# unless ($parmlev==$ENV{'form.parmlev'}) {	# unless ($parmlev==$ENV{'form.parmlev'}) {
Line 683 sub assessparms {	Line 714 sub assessparms {
my $url=$ENV{'form.url'};	my $url=$ENV{'form.url'};
$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;	$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;
$pssymb=&Apache::lonnet::symbread($url);	$pssymb=&Apache::lonnet::symbread($url);
@pscat='all';	if (!@pscat) { @pscat=('all'); }
$pschp='';	$pschp='';
$parmlev = 'full';	$parmlev = 'full';
	$trimheader='yes';
} elsif ($ENV{'form.symb'}) {	} elsif ($ENV{'form.symb'}) {
$pssymb=$ENV{'form.symb'};	$pssymb=$ENV{'form.symb'};
@pscat='all';	if (!@pscat) { @pscat=('all'); }
$pschp='';	$pschp='';
$parmlev = 'full';	$parmlev = 'full';
	$trimheader='yes';
} else {	} else {
$ENV{'form.url'}='';	$ENV{'form.url'}='';
}	}
Line 702 sub assessparms {	Line 735 sub assessparms {
$id='';	$id='';
} else {	} else {
$message=	$message=
"<font color=red>Unknown ID '$id' at domain '$udom'</font>";	"<font color=red>".&mt("Unknown ID")." '$id' ".
	&mt('at domain')." '$udom'</font>";
}	}
} else {	} else {
$uname=$ENV{'form.uname'};	$uname=$ENV{'form.uname'};
Line 713 sub assessparms {	Line 747 sub assessparms {
$uhome=&Apache::lonnet::homeserver($uname,$udom);	$uhome=&Apache::lonnet::homeserver($uname,$udom);
if ($uhome eq 'no_host') {	if ($uhome eq 'no_host') {
$message=	$message=
"<font color=red>Unknown user '$uname' at domain '$udom'</font>";	"<font color=red>".&mt("Unknown user")." '$uname' ".
	&mt("at domain")." '$udom'</font>";
$uname='';	$uname='';
} else {	} else {
$csec=&Apache::lonnet::usection($udom,$uname,	$csec=&Apache::lonnet::getsection($udom,$uname,
$ENV{'request.course.id'});	$ENV{'request.course.id'});
if ($csec eq '-1') {	if ($csec eq '-1') {
$message="<font color=red>".	$message="<font color=red>".
"User '$uname' at domain '$udom' not ".	&mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
"in this course</font>";	&mt("not in this course")."</font>";
$uname='';	$uname='';
$csec=$ENV{'form.csec'};	$csec=$ENV{'form.csec'};
} else {	} else {
my %name=&Apache::lonnet::userenvironment($udom,$uname,	my %name=&Apache::lonnet::userenvironment($udom,$uname,
('firstname','middlename','lastname','generation','id'));	('firstname','middlename','lastname','generation','id'));
$message="\n<p>\nFull Name: ".	$message="\n<p>\n".&mt("Full Name").": ".
$name{'firstname'}.' '.$name{'middlename'}.' '	$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'}.	.$name{'lastname'}.' '.$name{'generation'}.
"<br>\nID: ".$name{'id'}.'<p>';	"<br>\n".&mt('ID').": ".$name{'id'}.'<p>';
}	}
}	}
}	}
Line 757 sub assessparms {	Line 792 sub assessparms {

$mapp{'0.0'} = '';	$mapp{'0.0'} = '';
$symbp{'0.0'} = '';	$symbp{'0.0'} = '';

# ---------------------------------------------------------- Anything to store?	# ---------------------------------------------------------- Anything to store?
if ($ENV{'form.pres_marker'}) {	if ($ENV{'form.pres_marker'}) {
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});	my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
Line 839 sub assessparms {	Line 875 sub assessparms {
$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>';	$message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</h3>';
}	}
# --------------------------------------------- Devalidate cache for this child	# --------------------------------------------- Devalidate cache for this child
&Apache::lonnet::devalidatecourseresdata(	&Apache::lonnet::devalidatecourseresdata(
$ENV{'course.'.$ENV{'request.course.id'}.'.num'},	$ENV{'course.'.$ENV{'request.course.id'}.'.num'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'});	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
	&Apache::lonnet::clear_EXT_cache_status();
# -------------------------------------------------------------- Get coursedata	# -------------------------------------------------------------- Get coursedata
%courseopt = &Apache::lonnet::dump	%courseopt = &Apache::lonnet::dump
('resourcedata',	('resourcedata',
Line 873 sub assessparms {	Line 910 sub assessparms {
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);	my $have_assesments=1;
	if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }

	&startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);

	if (!$have_assesments) {
	untie(%bighash);
	untie(%parmhash);
	return '';
	}
# 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'}.
# '" name="url"><input type="hidden" name="command" value="set">');	# '" name="url"><input type="hidden" name="command" value="set">');
Line 888 sub assessparms {	Line 934 sub assessparms {

$r->print('<h2>'.$message.'</h2><table>');	$r->print('<h2>'.$message.'</h2><table>');

$r->print('<tr><td><hr /></td></tr>');	my $submitmessage = &mt('Update Section or Specific User');

my $submitmessage;
if (($prevvisit) \|\| ($pschp) \|\| ($pssymb)) {
$submitmessage = "Update Display";
} else {
$submitmessage = "Display";
}
if (!$pssymb) {	if (!$pssymb) {
$r->print('<tr><td>Select Parameter Level</td><td>');	$r->print('<tr><td>'.&mt('Select Parameter Level').'</td><td colspan="2">');
$r->print('<select name="parmlev">');	$r->print('<select name="parmlev">');
foreach (reverse sort keys %alllevs) {	foreach (reverse sort keys %alllevs) {
$r->print('<option value="'.$alllevs{$_}.'"');	$r->print('<option value="'.$alllevs{$_}.'"');
Line 907 sub assessparms {	Line 946 sub assessparms {
$r->print('>'.$_.'</option>');	$r->print('>'.$_.'</option>');
}	}
$r->print("</select></td>\n");	$r->print("</select></td>\n");

$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');

$r->print('</tr><tr><td><hr /></td>');

$r->print('<tr><td>Select Enclosing Map or Folder</td>');	$r->print('</tr>');
$r->print('<td colspan="2"><select name="pschp">');	if ($parmlev ne 'general') {
$r->print('<option value="all">All Maps or Folders</option>');	$r->print('<tr><td>'.&mt('Select Enclosing Map or Folder').'</td>');
foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {	$r->print('<td colspan="2"><select name="pschp">');
$r->print('<option value="'.$_.'"');	$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
if (($pschp eq $_)) { $r->print(' selected'); }	foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
$r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?' ['.$allmaps{$_}.']':'').'</option>');	$r->print('<option value="'.$_.'"');
}	if (($pschp eq $_)) { $r->print(' selected'); }
$r->print("</select></td></tr>\n");	$r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?' ['.$allmaps{$_}.']':'').'</option>');
	}
	$r->print("</select></td></tr>\n");
	}
} else {	} else {
my ($map,$id,$resource)=split(/___/,$pssymb);	my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
$r->print("<tr><td>Specific Resource</td><td>$resource</td>");	$r->print("<tr><td>".&mt('Specific Resource')."</td><td>$resource</td>");
$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');	$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');
$r->print('</tr>');	$r->print('</tr>');
$r->print('<input type="hidden" value="'.$pssymb.'" name="symb">');	$r->print('<input type="hidden" value="'.$pssymb.'" name="symb">');
Line 931 sub assessparms {	Line 969 sub assessparms {

$r->print('<tr><td colspan="3"><hr /><input type="checkbox"');	$r->print('<tr><td colspan="3"><hr /><input type="checkbox"');
if ($showoptions eq 'show') {$r->print(" checked ");}	if ($showoptions eq 'show') {$r->print(" checked ");}
$r->print(' name="showoptions" value="show" onclick="form.submit();">Show More Options<hr /></td></tr>');	$r->print(' name="showoptions" value="show">'.&mt('Show More Options').'<hr /></td></tr>');
# $r->print("<tr><td>Show: $showoptions</td></tr>");	# $r->print("<tr><td>Show: $showoptions</td></tr>");
# $r->print("<tr><td>pscat: @pscat</td></tr>");	# $r->print("<tr><td>pscat: @pscat</td></tr>");
# $r->print("<tr><td>psprt: @psprt</td></tr>");	# $r->print("<tr><td>psprt: @psprt</td></tr>");
Line 940 sub assessparms {	Line 978 sub assessparms {
if ($showoptions eq 'show') {	if ($showoptions eq 'show') {
my $tempkey;	my $tempkey;

$r->print('<tr><td colspan="3" align="center">Select Parameters to View</td></tr>');	$r->print('<tr><td colspan="3" align="center">'.&mt('Select Parameters to View').'</td></tr>');

$r->print('<tr><td colspan="2"><table>');	$r->print('<tr><td colspan="2"><table>');
$r->print('<tr><td><input type="checkbox" name="pscat" value="all"');	$r->print('<tr><td><input type="checkbox" name="pscat" value="all"');
$r->print(' checked') unless (@pscat);	$r->print(' checked') unless (@pscat);
$r->print('>All Parameters</td>');	$r->print('>'.&mt('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} }
Line 965 sub assessparms {	Line 1003 sub assessparms {
$r->print('<td><select multiple name="psprt" size="5">');	$r->print('<td><select multiple name="psprt" size="5">');
$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('>'.&mt('All Parts').'</option>');
my %temphash=();	my %temphash=();
foreach (@psprt) { $temphash{$_}=1; }	foreach (@psprt) { $temphash{$_}=1; }
foreach $tempkey (sort keys %allparts) {	foreach $tempkey (sort keys %allparts) {
Line 979 sub assessparms {	Line 1017 sub assessparms {
}	}
$r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');	$r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');

$r->print('<tr><td>Sort list by</td><td>');	$r->print('<tr><td>'.&mt('Sort list by').'</td><td>');
$r->print('<select name="fcat">');	$r->print('<select name="fcat">');
$r->print('<option value="">Enclosing Map or Folder</option>');	$r->print('<option value="">'.&mt('Enclosing Map or Folder').'</option>');
foreach (sort keys %allkeys) {	foreach (sort keys %allkeys) {
$r->print('<option value="'.$_.'"');	$r->print('<option value="'.$_.'"');
if ($fcat eq $_) { $r->print(' selected'); }	if ($fcat eq $_) { $r->print(' selected'); }
Line 1016 sub assessparms {	Line 1054 sub assessparms {
}	}

}	}
$r->print('</table>');	$r->print('</table><br />');
	if (($prevvisit) \|\| ($pschp) \|\| ($pssymb)) {
	$submitmessage = &mt("Update Course Assessment Parameter Display");
	} else {
	$submitmessage = &mt("Set/Modify Course Assessment Parameters");
	}
	$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');

# my @temp_psprt;	# my @temp_psprt;
# foreach my $t (@psprt) {	# foreach my $t (@psprt) {
Line 1039 sub assessparms {	Line 1083 sub assessparms {
my $csuname=$ENV{'user.name'};	my $csuname=$ENV{'user.name'};
my $csudom=$ENV{'user.domain'};	my $csudom=$ENV{'user.domain'};


if ($parmlev eq 'full' \|\| $parmlev eq 'brief') {	if ($parmlev eq 'full' \|\| $parmlev eq 'brief') {

my $coursespan=$csec?8:5;	my $coursespan=$csec?8:5;
$r->print('<p><table border=2>');	$r->print('<p><table border=2>');
$r->print('<tr><td colspan=5></td>');	$r->print('<tr><td colspan=5></td>');
$r->print('<th colspan='.($coursespan).'>Any User</th>');	$r->print('<th colspan='.($coursespan).'>'.&mt('Any User').'</th>');
if ($uname) {	if ($uname) {
$r->print("<th colspan=3 rowspan=2>");	$r->print("<th colspan=3 rowspan=2>");
$r->print("User $uname at Domain $udom</th>");	$r->print(&mt("User")." $uname ".&mt('at Domain')." $udom</th>");
}	}
	my %lt=&Apache::lonlocal::texthash(
	'pie' => "Parameter in Effect",
	'csv' => "Current Session Value",
	'at' => 'at',
	'rl' => "Resource Level",
	'ic' => 'in Course',
	'aut' => "Assessment URL and Title",
	'type' => &mt('Type'),
	'emof' => "Enclosing Map or Folder",
	'part' => &mt('Part'),
	'pn' => 'Parameter Name',
	'def' => 'default',
	'femof' => 'from Enclosing Map or Folder',
	'gen' => 'general',
	'foremf' => 'for Enclosing Map or Folder',
	'fr' => 'for Resource'
	);
$r->print(<<ENDTABLETWO);	$r->print(<<ENDTABLETWO);
<th rowspan=3>Parameter in Effect</th>	<th rowspan=3>$lt{'pie'}</th>
<th rowspan=3>Current Session Value<br>($csuname at $csudom)</th>	<th rowspan=3>$lt{'csv'}<br>($csuname $lt{'at'} $csudom)</th>
</tr><tr><td colspan=5></td><th colspan=2>Resource Level</th>	</tr><tr><td colspan=5></td><th colspan=2>$lt{'rl'}</th>
<th colspan=3>in Course</th>	<th colspan=3>$lt{'ic'}</th>
ENDTABLETWO	ENDTABLETWO
if ($csec) {	if ($csec) {
$r->print("<th colspan=3>in Section/Group $csec</th>");	$r->print("<th colspan=3>".
	&mt("in Section/Group")." $csec</th>");
}	}
$r->print(<<ENDTABLEHEADFOUR);	$r->print(<<ENDTABLEHEADFOUR);
</tr><tr><th>Assessment URL and Title</th><th>Type</th>	</tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
<th>Enclosing Map or Folder</th><th>Part No.</th><th>Parameter Name</th>	<th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
<th>default</th><th>from Enclosing Map or Folder</th>	<th>$lt{'def'}</th><th>$lt{'femof'}</th>
<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>	<th>$lt{'gen'}</th><th>$lt{'foremf'}</th><th>$lt{'fr'}</th>
ENDTABLEHEADFOUR	ENDTABLEHEADFOUR

if ($csec) {	if ($csec) {
$r->print('<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>');	$r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
}	}

if ($uname) {	if ($uname) {
$r->print('<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>');	$r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
}	}

$r->print('</tr>');	$r->print('</tr>');
Line 1122 ENDTABLEHEADFOUR	Line 1182 ENDTABLEHEADFOUR
my $totalparms=scalar keys %name;	my $totalparms=scalar keys %name;
if ($totalparms>0) {	if ($totalparms>0) {
my $firstrow=1;	my $firstrow=1;
	my $title=$bighash{'title_'.$rid};
	$title=~s/\&colon;/:/g;
$r->print('<tr><td bgcolor='.$defbgone.	$r->print('<tr><td bgcolor='.$defbgone.
' rowspan='.$totalparms.	' rowspan='.$totalparms.
'><tt><font size=-1>'.	'><tt><font size=-1>'.
Line 1130 ENDTABLEHEADFOUR	Line 1191 ENDTABLEHEADFOUR
'</font></tt><p><b>'.	'</font></tt><p><b>'.
"<a href=\"javascript:openWindow('/res/".$uri.	"<a href=\"javascript:openWindow('/res/".$uri.
"', 'metadatafile', '450', '500', 'no', 'yes')\";".	"', 'metadatafile', '450', '500', 'no', 'yes')\";".
" TARGET=_self>$bighash{'title_'.$rid}");	" TARGET=_self>$title");

if ($thistitle) {	if ($thistitle) {
$r->print(' ('.$thistitle.')');	$r->print(' ('.$thistitle.')');
Line 1232 ENDTABLEHEADFOUR	Line 1293 ENDTABLEHEADFOUR
} # end loop through ids	} # end loop through ids

#---------------------------------------------------- print header information	#---------------------------------------------------- print header information
my $foldermap=($maptitle=~/^uploaded/?'Folder':'Map');	my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');	my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
$r->print(<<ENDMAPONE);	$r->print(<<ENDMAPONE);
<center><h4>	<center><h4>
<font color="red">Set Defaults for All Resources in $foldermap<br />	Set Defaults for All Resources in $foldermap<br />
<i>$showtitle</i><br />	<font color="red"><i>$showtitle</i></font><br />
Specifically for	Specifically for
ENDMAPONE	ENDMAPONE
if ($uname) {	if ($uname) {
Line 1245 ENDMAPONE	Line 1306 ENDMAPONE
('firstname','middlename','lastname','generation', 'id'));	('firstname','middlename','lastname','generation', 'id'));
my $person=$name{'firstname'}.' '.$name{'middlename'}.' '	my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'};	.$name{'lastname'}.' '.$name{'generation'};
$r->print("User <i>$uname $$person$ </i> in \n");	$r->print(&mt("User")." <font color=\"red\"><i>$uname $$person$ </i></font> ".
	&mt('in')." \n");
} else {	} else {
$r->print("<i>all</i> users in \n");	$r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");
}	}

if ($csec) {$r->print("Section <i>$csec</i> of \n")};	if ($csec) {$r->print(&mt("Section")." <font color=\"red\"><i>$csec</i></font> ".
	&mt('of')." \n")};

$r->print("<i>$coursename</i><br />");	$r->print("<font color=\"red\"><i>$coursename</i></font><br />");
$r->print("</font></h4>\n");	$r->print("</h4>\n");
#---------------------------------------------------------------- print table	#---------------------------------------------------------------- print table
$r->print('<p><table border="2">');	$r->print('<p><table border="2">');
$r->print('<tr><th>Parameter Name</th>');	$r->print('<tr><th>'.&mt('Parameter Name').'</th>');
$r->print('<th>Default Value</th>');	$r->print('<th>'.&mt('Default Value').'</th>');
$r->print('<th>Parameter in Effect</th></tr>');	$r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');

foreach (sort keys %name) {	foreach (sort keys %name) {
&print_row($r,$_,\%part,\%name,$mapid,\%default,	&print_row($r,$_,\%part,\%name,$mapid,\%default,
Line 1314 ENDMAPONE	Line 1377 ENDMAPONE
} # end loop through ids	} # end loop through ids

#---------------------------------------------------- print header information	#---------------------------------------------------- print header information
	my $setdef=&mt("Set Defaults for All Resources in Course");
$r->print(<<ENDMAPONE);	$r->print(<<ENDMAPONE);
<center><h4>	<center><h4>$setdef
<font color="red">Set Defaults for All Resources in Course	<font color="red"><i>$coursename</i></font><br />
<i>$coursename</i><br />
ENDMAPONE	ENDMAPONE
if ($uname) {	if ($uname) {
my %name=&Apache::lonnet::userenvironment($udom,$uname,	my %name=&Apache::lonnet::userenvironment($udom,$uname,
('firstname','middlename','lastname','generation', 'id'));	('firstname','middlename','lastname','generation', 'id'));
my $person=$name{'firstname'}.' '.$name{'middlename'}.' '	my $person=$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'};	.$name{'lastname'}.' '.$name{'generation'};
$r->print(" User <i>$uname $$person$ </i> \n");	$r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname $$person$ </i></font> \n");
} else {	} else {
$r->print("<i>ALL</i> USERS \n");	$r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
}	}

if ($csec) {$r->print("Section <i>$csec</i>\n")};	if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
$r->print("</font></h4>\n");	$r->print("</h4>\n");
#---------------------------------------------------------------- print table	#---------------------------------------------------------------- print table
$r->print('<p><table border="2">');	$r->print('<p><table border="2">');
$r->print('<tr><th>Parameter Name</th>');	$r->print('<tr><th>'.&mt('Parameter Name').'</th>');
$r->print('<th>Default Value</th>');	$r->print('<th>'.&mt('Default Value').'</th>');
$r->print('<th>Parameter in Effect</th></tr>');	$r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');

foreach (sort keys %name) {	foreach (sort keys %name) {
&print_row($r,$_,\%part,\%name,$mapid,\%default,	&print_row($r,$_,\%part,\%name,$mapid,\%default,
Line 1358 ENDMAPONE	Line 1421 ENDMAPONE

=item crsenv	=item crsenv

Show course data and parameters. This is a large routine that should	Show and set course data and parameters. This is a large routine that should
be simplified and shortened... someday.	be simplified and shortened... someday.

Inputs: $r	Inputs: $r
Line 1376 sub crsenv {	Line 1439 sub crsenv {
'Set Course Environment Parameters');	'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
foreach (keys %ENV) {	foreach (keys %ENV) {
if ($_=~/^form\.(.+)\_setparmval$/) {	next if ($_!~/^form\.(.+)\_setparmval$/);
my $name=$1;	my $name = $1;
my $value=$ENV{'form.'.$name.'_value'};	my $value = $ENV{'form.'.$name.'_value'};
if ($name eq 'newp') {	if ($name eq 'newp') {
$name=$ENV{'form.newp_name'};	$name = $ENV{'form.newp_name'};
}	}
if ($name eq 'url') {	if ($name eq 'url') {
$value=~s/^\/res\///;	$value=~s/^\/res\///;
my $bkuptime=time;	my $bkuptime=time;
my @tmp = &Apache::lonnet::get	my @tmp = &Apache::lonnet::get
('environment',['url'],$dom,$crs);	('environment',['url'],$dom,$crs);
$setoutput.='Backing up previous URL: '.	$setoutput.=&mt('Backing up previous URL').': '.
&Apache::lonnet::put	&Apache::lonnet::put
('environment',	('environment',
{'top level map backup '.$bkuptime => $tmp[1] },	{'top level map backup '.$bkuptime => $tmp[1] },
$dom,$crs).	$dom,$crs).
'<br>';	'<br>';
	}
	#
	# Deal with modified default spreadsheets
	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 assessment spreadsheets
	# this includes non-default spreadsheets, but better to
	# be safe than sorry.
	&Apache::lonnet::expirespread('','','assesscalc');
	# expire all the student spreadsheets
	&Apache::lonnet::expirespread('','','studentcalc');
}	}
if ($name =~ /^spreadsheet_default_(classcalc\|	}
studentcalc\|	#
assesscalc)$/x) {	# Deal with the enrollment dates
my $sheettype = $1;	if ($name =~ /^default_enrollment_(start\|end)_date$/) {
if ($sheettype eq 'classcalc') {	$value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
# no need to do anything since viewing the sheet will	}
# cause it to be updated.	#
} elsif ($sheettype eq 'studentcalc') {	# Let the user know we made the changes
# expire all the student spreadsheets	if ($name) {
&Apache::lonnet::expirespread('','','studentcalc');	my $put_result = &Apache::lonnet::put('environment',
} else {	{$name=>$value},$dom,$crs);
# expire all the default assessment spreadsheets	if ($put_result eq 'ok') {
}	$setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';
	} else {
	$setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
	' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
}	}

if ($name) {
$setoutput.='Setting <tt>'.$name.'</tt> to <tt>'.
$value.'</tt>: '.
&Apache::lonnet::put
('environment',{$name=>$value},$dom,$crs).
'<br>';
}
}	}
}	}
	# ------------------------- Re-init course environment entries for this session

	&Apache::lonnet::coursedescription($ENV{'request.course.id'});

# -------------------------------------------------------- Get parameters again	# -------------------------------------------------------- Get parameters again

my %values=&Apache::lonnet::dump('environment',$dom,$crs);	my %values=&Apache::lonnet::dump('environment',$dom,$crs);
	my $SelectStyleFile=&mt('Select Style File');
my $output='';	my $output='';
if (! exists($values{'con_lost'})) {	if (! exists($values{'con_lost'})) {
my %descriptions=	my %descriptions=
('url' => '<b>Top Level Map</b> '.	('url' => '<b>'.&mt('Top Level Map').'</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','url','sequence')\">".	"('envform','url','sequence')\">".
'Browse</a><br /><font color=red> '.	&mt('Select Map').'</a><br /><font color=red> '.
'Modification may make assessment data '.	&mt('Modification may make assessment data inaccessible').
'inaccessible</font>',	'</font>',
'description' => '<b>Course Description</b>',	'description' => '<b>'.&mt('Course Description').'</b>',
'courseid' => '<b>Course ID or number</b><br />'.	'courseid' => '<b>'.&mt('Course ID').' '.&mt('or').' '.&mt('number').
'(internal, optional)',	'</b><br />'.
'default_xml_style' => '<b>Default XML Style File</b> '.	'('.&mt('internal').', '.&mt('optional').')',
	'grading' => '<b>'.&mt('Grading').'</b>'.
	' "'.&mt('standard').'", "'.&mt('external').'", '.
	&mt('or any other value').'.'.
	' '.&mt('Default for new courses is').' "'.
	&mt('standard').'".',
	'default_xml_style' => '<b>'.&mt('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')\">$SelectStyleFile</a><br>",
'question.email' => '<b>Feedback Addresses for Resource Content '.	'question.email' => '<b>Feedback Addresses for Resource Content '.
'Questions</b><br />(<tt>user:domain,'.	'Questions</b><br />(<tt>user:domain,'.
'user:domain(section;section;...;*;...),...</tt>)',	'user:domain(section;section;...;*;...),...</tt>)',
Line 1449 sub crsenv {	Line 1540 sub crsenv {
'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, '.
	'changes will not show until next login)',

	'plc.roles.denied'=> '<b>Disallow live chatroom use for '.
	'Roles</b><br />"<tt>st</tt>": '.
	'student, "<tt>ta</tt>": '.
	'TA, "<tt>in</tt>": '.
	'instructor;<br /><tt>role,role,...</tt>) '.
	Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
	'plc.users.denied' =>
	'<b>Disallow live chatroom use for Users</b><br />'.
	'(<tt>user:domain,user:domain,...</tt>)',

'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>": '.
Line 1463 sub crsenv {	Line 1566 sub crsenv {
=> '<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')\">Select Spreadsheet File</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')\">Select Spreadsheet File</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')\">Select Spreadsheet File</a><br />",
'allow_limited_html_in_feedback'	'allow_limited_html_in_feedback'
=> '<b>Allow limited HTML in discussion posts</b><br />'.	=> '<b>Allow limited HTML in discussion posts</b><br />'.
'(Set value to yes to allow)'	'(Set value to "<tt>yes</tt>" to allow)',
);	'rndseed'
foreach (keys(%values)) {	=> '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
unless ($descriptions{$_}) {	'<font color="red">'.&mt('Modifying this will make problems').' '.
$descriptions{$_}=$_;	&mt('have different numbers and answers').'</font>',
	'problem_stream_switch'
	=> '<b>Allow problems to be split over pages</b><br />'.
	' ("<tt>yes</tt>" if allowed, anything else if not)',
	'anonymous_quiz'
	=> '<b>Anonimous quiz/exam</b><br />'.
	' (<tt><b>yes</b> to avoid print students names </tt>)',
	'default_enrollment_start_date' => '<b>Default beginning date '.
	'when enrolling students</b>',
	'default_enrollment_end_date' => '<b>Default ending date '.
	'when enrolling students</b>',
	'languages' => '<b>'.&mt('Languages used').'</b>',
	'disable_receipt_display'
	=> '<b>Disable display of problem receipts</b><br />'.
	' ("<tt>yes</tt>" to disable, anything else if not)'
	);
	my @Display_Order = ('url','description','courseid','grading',
	'default_xml_style','pageseparators',
	'question.email','comment.email','policy.email',
	'plc.roles.denied','plc.users.denied',
	'pch.roles.denied','pch.users.denied',
	'allow_limited_html_in_feedback',
	'languages',
	'rndseed',
	'problem_stream_switch',
	'disable_receipt_display',
	'spreadsheet_default_classcalc',
	'spreadsheet_default_studentcalc',
	'spreadsheet_default_assesscalc',
	'hideemptyrows',
	'default_enrollment_start_date',
	'default_enrollment_end_date',
	);
	foreach my $parameter (sort(keys(%values))) {
	if (! $descriptions{$parameter}) {
	$descriptions{$parameter}=$parameter;
	push(@Display_Order,$parameter);
}	}
}	}
foreach (sort keys %descriptions) {	foreach my $parameter (@Display_Order) {
	my $description = $descriptions{$parameter};
# onchange is javascript to automatically check the 'Set' button.	# onchange is javascript to automatically check the 'Set' button.
my $onchange = 'onFocus="javascript:window.document.forms'.	my $onchange = 'onFocus="javascript:window.document.forms'.
'[\'envform\'].elements[\''.$_.'_setparmval\']'.	"['envform'].elements['".$parameter."_setparmval']".
'.checked=true;"';	'.checked=true;"';
$output.='<tr><td>'.$descriptions{$_}.'</td>'.	$output .= '<tr><td>'.$description.'</td>';
'<td><input name="'.$_.'_value" size=40 '.	if ($parameter =~ /^default_enrollment_(start\|end)_date$/) {
'value="'.$values{$_}.'" '.$onchange.' /></td>'.	$output .= '<td>'.
'<td><input type=checkbox name="'.$_.'_setparmval"></td>'.	&Apache::lonhtmlcommon::date_setter('envform',
'</tr>'."\n";	$parameter.'_value',
	$values{$parameter},
	$onchange).
	'</td>';
	} else {
	$output .= '<td>'.
	&Apache::lonhtmlcommon::textbox($parameter.'_value',
	$values{$parameter},
	40,$onchange).'</td>';
	}
	$output .= '<td>'.
	&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
	'</td>';
	$output .= "</tr>\n";
}	}
my $onchange = 'onFocus="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>'.&mt('Create New Environment Variable').'</i><br />'.
'<input type="text" size=40 name="newp_name" '.	'<input type="text" size=40 name="newp_name" '.
$onchange.' /></td><td>'.	$onchange.' /></td><td>'.
'<input type="text" size=40 name="newp_value" '.	'<input type="text" size=40 name="newp_value" '.
$onchange.' /></td><td>'.	$onchange.' /></td><td>'.
'<input type="checkbox" name="newp_setparmval" /></td></tr>';	'<input type="checkbox" name="newp_setparmval" /></td></tr>';
}	}
	my $Parameter=&mt('Parameter');
	my $Value=&mt('Value');
$r->print(<<ENDENV);	$r->print(<<ENDENV);
<html>	<html>
<script type="text/javascript" language="Javascript" >	<script type="text/javascript" language="Javascript" >
Line 1538 $bodytag	Line 1693 $bodytag
$setoutput	$setoutput
<p>	<p>
<table border=2>	<table border=2>
<tr><th>Parameter</th><th>Value</th><th>Set?</th></tr>	<tr><th>$Parameter</th><th>$Value</th><th>Set?</th></tr>
$output	$output
</table>	</table>
<input type="submit" name="crsenv" value="Set Course Environment">	<input type="submit" name="crsenv" value="Set Course Environment">
Line 1547 $output	Line 1702 $output
</html>	</html>
ENDENV	ENDENV
}	}
	##################################################

	my $tableopen;

	sub tablestart {
	if ($tableopen) {
	return '';
	} else {
	$tableopen=1;
	return '<table border="2"><tr><th>'.&mt('Parameter').'</th><th>'.
	&mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
	}
	}

	sub tableend {
	if ($tableopen) {
	$tableopen=0;
	return '</table>';
	} else {
	return'';
	}
	}

	sub overview {
	my $r=shift;
	my $bodytag=&Apache::loncommon::bodytag(
	'Set/Modify Course Assessment Parameters');
	my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
	my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
	$r->print(<<ENDOVER);
	<html>
	<head>
	<title>LON-CAPA Course Environment</title>
	</head>
	$bodytag
	<form method="post" action="/adm/parmset" name="overviewform">
	<input type="hidden" name="overview" value="1" />
	ENDOVER
	# Setting
	my %olddata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
	my %newdata=();
	undef %newdata;
	my @deldata=();
	undef @deldata;
	foreach (keys %ENV) {
	if ($_=~/^form\.([a-z]+)\_(.+)$/) {
	my $cmd=$1;
	my $thiskey=$2;
	if ($cmd eq 'set') {
	my $data=$ENV{$_};
	if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
	} elsif ($cmd eq 'del') {
	push (@deldata,$thiskey);
	} elsif ($cmd eq 'datepointer') {
	my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
	if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
	}
	}
	}
	# Store
	&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);
	&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);
	# Read and display
	my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
	my $oldsection='';
	my $oldrealm='';
	my $oldpart='';
	my $pointer=0;
	$tableopen=0;
	foreach my $thiskey (sort keys %resourcedata) {
	if ($resourcedata{$thiskey.'.type'}) {
	my ($course,$middle,$part,$name)=
	($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
	my $section=&mt('All Students');
	if ($middle=~/^\[(.*)\]\./) {
	$section=&mt('Group/Section').': '.$1;
	$middle=~s/^\[(.*)\]\.//;
	}
	$middle=~s/\.$//;
	my $realm='<font color="red">'.&mt('All Resources').'</font>';
	if ($middle=~/^(.+)\_\_\_$all$$/) {
	$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>';
	} elsif ($middle) {
	$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>';
	}
	if ($section ne $oldsection) {
	$r->print(&tableend()."\n<hr /><h1>$section</h1>");
	$oldsection=$section;
	$oldrealm='';
	}
	if ($realm ne $oldrealm) {
	$r->print(&tableend()."\n<h2>$realm</h2>");
	$oldrealm=$realm;
	$oldpart='';
	}
	if ($part ne $oldpart) {
	$r->print(&tableend().
	"\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
	$oldpart=$part;
	}
	#
	# Ready to print
	#
	$r->print(&tablestart().'<tr><td><b>'.$name.
	':</b></td><td><input type="checkbox" name="del_'.
	$thiskey.'" /></td><td>');
	if ($resourcedata{$thiskey.'.type'}=~/^date/) {
	my $jskey='key_'.$pointer;
	$pointer++;
	$r->print(
	&Apache::lonhtmlcommon::date_setter('overviewform',
	$jskey,
	$resourcedata{$thiskey}).
	'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
	);
	} else {
	$r->print(
	'<input type="text" name="set_'.$thiskey.'" value="'.
	$resourcedata{$thiskey}.'">');
	}
	$r->print('</td></tr>');
	}
	}

	$r->print(&tableend().
	'<p><input type="submit" value="'.&mt('Modify Parameters').'" /></p></form></body></html>');
	}

##################################################	##################################################
##################################################	##################################################
Line 1566 sub handler {	Line 1848 sub handler {
my $r=shift;	my $r=shift;

if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});

$r->content_type('text/html');	# ----------------------------------------------------------- Clear out garbage
$r->send_http_header;
	%courseopt=();
	%useropt=();
	%parmhash=();

	@ids=();
	%symbp=();
	%mapp=();
	%typep=();
	%keyp=();

	%maptitles=();

# ----------------------------------------------------- Needs to be in a course	# ----------------------------------------------------- Needs to be in a course

if (($ENV{'request.course.id'}) &&	if (($ENV{'request.course.id'}) &&
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {

	&Apache::loncommon::content_type($r,'text/html');
	$r->send_http_header;

$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};	$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};

unless (($ENV{'form.crsenv'}) \|\| (!$ENV{'request.course.fn'})) {	if (($ENV{'form.crsenv'}) \|\| (!$ENV{'request.course.fn'})) {
# --------------------------------------------------------- Bring up assessment
&assessparms($r);
# ---------------------------------------------- This is for course environment	# ---------------------------------------------- This is for course environment
} else {	# -------------------------- also call if toplevel map coudl not be initialized
&crsenv($r);	&crsenv($r);
	} elsif ($ENV{'form.overview'}) {
	# --------------------------------------------------------------- Overview mode
	&overview($r);
	} else {
	# --------------------------------------------------------- Bring up assessment
	&assessparms($r);
}	}
} else {	} else {
# ----------------------------- Not in a course, or not allowed to modify parms	# ----------------------------- Not in a course, or not allowed to modify parms

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

Removed from v.1.88
changed lines
	Added in v.1.140