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.127 and 1.165

version 1.127, 2003/10/01 21:10:17	version 1.165, 2004/07/02 08:12:23
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,$have_assesments)=@_;	my ($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader)=@_;

my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',	my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
'onUnload="pclose()"');	'onUnload="pclose()"');
Line 293 sub startpage {	Line 293 sub startpage {
&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"
	);
	my $overallhelp=
	&Apache::loncommon::help_open_topic("Course_Setting_Parameters").
	&Apache::loncommon::help_open_faq(10).
	&Apache::loncommon::help_open_bug('Instructor Interface');
	my $assessparmhelp=&Apache::loncommon::help_open_topic("Cascading_Parameters","Assessment Parameters");
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
<html>	<html>
<head>	<head>
Line 342 $selscript	Line 360 $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">
<h4>Course Environment Parameters</h4>	<h4>$lt{'cep'}</h4>
<input type="submit" name="crsenv" value="Set Course Environment Parameters" />	<input type="submit" name="crsenv" value="$lt{'scep'}" />
</form>	</form>
<hr />	<hr />
	$assessparmhelp
<form method="post" action="/adm/helper/parameter.helper" name="helpform">	<form method="post" action="/adm/helper/parameter.helper" name="helpform">
<h4>Course Assessment Parameter - Helper Mode</h4>	<h4>$lt{'caphm'}</h4>
<input type="submit" value="Set/Modify Course Assessment Parameter" />	<input type="submit" value="$lt{'smcap'}" />
</form>	</form>
<hr />	<hr />
<form method="post" action="/adm/parmset" name="overview">	<form method="post" action="/adm/parmset" name="overview">
<h4>Course Assessment Parameters - Overview Mode</h4>	<h4>$lt{'capom'}</h4>
<input type="submit" name="overview" value="Modify Course Assessment Parameters" />	<input type="submit" name="overview" value="$lt{'mcap'}" />
</form>	</form>
<hr />	<hr />
	ENDHEAD2
	}
	$r->print(<<ENDHEAD3);
<form method="post" action="/adm/parmset" name="parmform">	<form method="post" action="/adm/parmset" name="parmform">
<h4>Course Assessments Parameters - Table Mode</h4>	<h4>$lt{'captm'}</h4>
ENDHEAD	ENDHEAD3

if (!$have_assesments) {	if (!$have_assesments) {
$r->print('<font color="red">There are no assesment parameters in this course to set.</font><br />');	$r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');
} else {	} else {
$r->print(<<ENDHEAD);	$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">
Line 472 sub print_row {	Line 497 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 505 sub print_td {	Line 532 sub print_td {
$r->print('</td>'."\n");	$r->print('</td>'."\n");
}	}

sub get_env_multiple {
my ($name) = @_;
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);
}

=pod	=pod

=item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.	=item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.
Line 574 sub extractResourceInformation {	Line 587 sub extractResourceInformation {
my $resid=$2;	my $resid=$2;
my $id=$mapid.'.'.$resid;	my $id=$mapid.'.'.$resid;
my $srcf=$$bighash{$_};	my $srcf=$$bighash{$_};
if ($srcf=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	# if ($srcf=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
	if (1) {
$$ids[$#$ids+1]=$id;	$$ids[$#$ids+1]=$id;
$$typep{$id}=$1;	$$typep{$id}=$1;
$$keyp{$id}='';	$$keyp{$id}='';
Line 653 sub assessparms {	Line 667 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 680 sub assessparms {	Line 694 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 710 sub assessparms {	Line 725 sub assessparms {
if (!@pscat) { @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'};
if (!@pscat) { @pscat=('all'); }	if (!@pscat) { @pscat=('all'); }
$pschp='';	$pschp='';
$parmlev = 'full';	$parmlev = 'full';
	$trimheader='yes';
} else {	} else {
$ENV{'form.url'}='';	$ENV{'form.url'}='';
}	}
Line 726 sub assessparms {	Line 743 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 737 sub assessparms {	Line 755 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::getsection($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 864 sub assessparms {	Line 883 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.'.&Apache::loncommon::help_open_topic('Caching').'</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(
Line 902 sub assessparms {	Line 921 sub assessparms {
my $have_assesments=1;	my $have_assesments=1;
if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }	if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }

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

if (!$have_assesments) {	if (!$have_assesments) {
untie(%bighash);	untie(%bighash);
Line 923 sub assessparms {	Line 942 sub assessparms {

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

my $submitmessage = 'Update Section or Specific User';	my $submitmessage = &mt('Update Section or Specific User');
if (!$pssymb) {	if (!$pssymb) {
$r->print('<tr><td>Select Parameter Level</td><td colspan="2">');	$r->print('<tr><td>'.&mt('Select Parameter Level').
	&Apache::loncommon::help_open_topic('Course_Parameter_Levels').
	'</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 937 sub assessparms {	Line 958 sub assessparms {
$r->print("</select></td>\n");	$r->print("</select></td>\n");

$r->print('</tr>');	$r->print('</tr>');
	if ($parmlev ne 'general') {
$r->print('<tr><td>Select Enclosing Map or Folder</td>');	$r->print('<tr><td>'.&mt('Select Enclosing Map or Folder').'</td>');
$r->print('<td colspan="2"><select name="pschp">');	$r->print('<td colspan="2"><select name="pschp">');
$r->print('<option value="all">All Maps or Folders</option>');	$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {	foreach (sort {$allmaps{$a} cmp $allmaps{$b}} keys %allmaps) {
$r->print('<option value="'.$_.'"');	$r->print('<option value="'.$_.'"');
if (($pschp eq $_)) { $r->print(' selected'); }	if (($pschp eq $_)) { $r->print(' selected'); }
$r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?' ['.$allmaps{$_}.']':'').'</option>');	$r->print('>'.$maptitles{$_}.($allmaps{$_}!~/^uploaded/?' ['.$allmaps{$_}.']':'').'</option>');
}	}
$r->print("</select></td></tr>\n");	$r->print("</select></td></tr>\n");
	}
} else {	} else {
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($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 957 sub assessparms {	Line 979 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">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 966 sub assessparms {	Line 988 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 991 sub assessparms {	Line 1013 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 1005 sub assessparms {	Line 1027 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 1044 sub assessparms {	Line 1066 sub assessparms {
}	}
$r->print('</table><br />');	$r->print('</table><br />');
if (($prevvisit) \|\| ($pschp) \|\| ($pssymb)) {	if (($prevvisit) \|\| ($pschp) \|\| ($pssymb)) {
$submitmessage = "Update Course Assessment Parameter Display";	$submitmessage = &mt("Update Course Assessment Parameter Display");
} else {	} else {
$submitmessage = "Set/Modify Course Assessment Parameters";	$submitmessage = &mt("Set/Modify Course Assessment Parameters");
}	}
$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');	$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');

Line 1075 sub assessparms {	Line 1097 sub assessparms {
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' => 'Type',
	'emof' => "Enclosing Map or Folder",
	'part' => '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</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 1114 ENDTABLEHEADFOUR	Line 1154 ENDTABLEHEADFOUR
my $rid=$_;	my $rid=$_;
my ($inmapid)=($rid=~/\.(\d+)$/);	my ($inmapid)=($rid=~/\.(\d+)$/);

if (($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid}) \|\|	if ((!$pssymb &&
($pssymb eq $symbp{$rid})) {	(($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid})))
	\|\|
	($pssymb && $pssymb eq $symbp{$rid})) {
# ------------------------------------------------------ Entry for one resource	# ------------------------------------------------------ Entry for one resource
if ($defbgone eq '"E0E099"') {	if ($defbgone eq '"E0E099"') {
$defbgone='"E0E0DD"';	$defbgone='"E0E0DD"';
Line 1159 ENDTABLEHEADFOUR	Line 1201 ENDTABLEHEADFOUR
'><tt><font size=-1>'.	'><tt><font size=-1>'.
join(' / ',split(/\//,$uri)).	join(' / ',split(/\//,$uri)).
'</font></tt><p><b>'.	'</font></tt><p><b>'.
"<a href=\"javascript:openWindow('/res/".$uri.	"<a href=\"javascript:openWindow('".
	&Apache::lonnet::clutter($uri).
"', 'metadatafile', '450', '500', 'no', 'yes')\";".	"', 'metadatafile', '450', '500', 'no', 'yes')\";".
" TARGET=_self>$title");	" TARGET=_self>$title");

Line 1263 ENDTABLEHEADFOUR	Line 1306 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 1276 ENDMAPONE	Line 1319 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 1345 ENDMAPONE	Line 1390 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 1422 sub crsenv {	Line 1467 sub crsenv {
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] },
Line 1457 sub crsenv {	Line 1502 sub crsenv {
}	}
#	#
# Let the user know we made the changes	# Let the user know we made the changes
if ($name) {	if ($name && defined($value)) {
my $put_result = &Apache::lonnet::put('environment',	my $put_result = &Apache::lonnet::put('environment',
{$name=>$value},$dom,$crs);	{$name=>$value},$dom,$crs);
if ($put_result eq 'ok') {	if ($put_result eq 'ok') {
$setoutput.='Set <b>'.$name.'</b> to <b>'.$value.'</b>.<br />';	$setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';
} else {	} else {
$setoutput.='Unable to set <b>'.$name.'</b> to '.	$setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
'<b>'.$value.'</b> due to '.$put_result.'.<br />';	' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
}	}
}	}
}	}
Line 1475 sub crsenv {	Line 1520 sub crsenv {
# -------------------------------------------------------- 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 $SelectSpreadsheetFile=&mt('Select Spreadsheet 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')\">".
'Select Map</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 or number').
'(internal, optional)',	'</b><br />'.
'grading' => '<b>Grading</b>'.	'('.&mt('internal').', '.&mt('optional').')',
'"standard" or any other value. '.	'grading' => '<b>'.&mt('Grading').'</b><br />'.
'Default for new courses is "standard".',	'<tt>"standard", "external", or "spreadsheet"</tt> '.&Apache::loncommon::help_open_topic('GradingOptions'),
	'default_xml_style' => '<b>'.&mt('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')\">Select Style File</a><br>",	",'sty')\">$SelectStyleFile</a><br>",
'question.email' => '<b>Feedback Addresses for Resource Content '.	'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').
'Questions</b><br />(<tt>user:domain,'.	'</b><br />(<tt>user:domain,'.
'user:domain(section;section;...;*;...),...</tt>)',	'user:domain(section;section;...;*;...),...</tt>)',
'comment.email' => '<b>Feedback Addresses for Course Content Comments</b><br />'.	'comment.email' => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'.
'(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',	'(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
'policy.email' => '<b>Feedback Addresses for Course Policy</b>'.	'policy.email' => '<b>'.&mt('Feedback Addresses for Course Policy').'</b>'.
'<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',	'<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',
'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br />'.	'hideemptyrows' => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'.
'("<tt>yes</tt>" for default hiding)',	'('.&mt('"[_1]" for default hiding','<tt>yes</tt>').')',
'pageseparators' => '<b>Visibly Separate Items on Pages</b><br />'.	'pageseparators' => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.
'("<tt>yes</tt>" for visible separation, '.	'('.&mt('"[_1]" for visible separation','<tt>yes</tt>').', '.
'changes will not show until next login)',	&mt('changes will not show until next login').')',

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

'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.	'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').
'Roles</b><br />"<tt>st</tt>": '.	'</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>'.&mt('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>'.&mt('Default Course Spreadsheet').'</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_classcalc'".	"('envform','spreadsheet_default_classcalc'".
",'spreadsheet')\">Select Spreadsheet File</a><br />",	",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
'spreadsheet_default_studentcalc'	'spreadsheet_default_studentcalc'
=> '<b>Default Student Spreadsheet</b> '.	=> '<b>'.&mt('Default Student Spreadsheet').'</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_calc'".	"('envform','spreadsheet_default_calc'".
",'spreadsheet')\">Select Spreadsheet File</a><br />",	",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
'spreadsheet_default_assesscalc'	'spreadsheet_default_assesscalc'
=> '<b>Default Assessment Spreadsheet</b> '.	=> '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_assesscalc'".	"('envform','spreadsheet_default_assesscalc'".
",'spreadsheet')\">Select Spreadsheet File</a><br />",	",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
'allow_limited_html_in_feedback'	'allow_limited_html_in_feedback'
=> '<b>Allow limited HTML in discussion posts</b><br />'.	=> '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
'(Set value to "<tt>yes</tt>" to allow)',	'('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',
'rndseed'	'rndseed'
=> '<b>Randomization algorithm used</b> <br />'.	=> '<b>'.&mt('Randomization algorithm used').'</b> <br />'.
'<font color="red">Modifying this will make problems '.	'<font color="red">'.&mt('Modifying this will make problems').' '.
'have different numbers and answers</font>',	&mt('have different numbers and answers').'</font>',
	'receiptalg'
	=> '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
	&mt('This controls how receipt numbers are generated.'),
	'suppress_tries'
	=> '<b>'.&mt('Suppress number of tries in printing').'</b>('.
	&mt('yes if supress').')',
'problem_stream_switch'	'problem_stream_switch'
=> '<b>Allow problems to be split over pages</b><br />'.	=> '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
' ("<tt>yes</tt>" if allowed, anything else if not)',	' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',
	'default_paper_size'
	=> '<b>'.&mt('Default paper type').'</b><br />'.
	' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'.
	' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'.
	' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
'anonymous_quiz'	'anonymous_quiz'
=> '<b>Anonimous quiz/exam</b><br />'.	=> '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
' (<tt><b>yes</b> to avoid print students names </tt>)',	' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
'default_enrollment_start_date' => '<b>Default beginning date '.	'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',
'when enrolling students</b>',	'default_enrollment_end_date' => '<b>'.&mt('Default ending date when enrolling students').'</b>',
'default_enrollment_end_date' => '<b>Default ending date '.	'nothideprivileged' => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
'when enrolling students</b>',	'<br />(<tt>user:domain,user:domain,...</tt>)',
'languages' => '<b>Languages used</b>',	'languages' => '<b>'.&mt('Languages used').'</b>',
'disable_receipt_display'	'disable_receipt_display'
=> '<b>Disable display of problem receipts</b><br />'.	=> '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
' ("<tt>yes</tt>" to disable, anything else if not)'	' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
	'disablesigfigs'
	=> '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
	' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
	'tthoptions'
	=> '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'
);	);
my @Display_Order = ('url','description','courseid','grading',	my @Display_Order = ('url','description','courseid','grading',
'default_xml_style','pageseparators',	'default_xml_style','pageseparators',
Line 1571 sub crsenv {	Line 1633 sub crsenv {
'pch.roles.denied','pch.users.denied',	'pch.roles.denied','pch.users.denied',
'allow_limited_html_in_feedback',	'allow_limited_html_in_feedback',
'languages',	'languages',
	'nothideprivileged',
'rndseed',	'rndseed',
	'receiptalg',
'problem_stream_switch',	'problem_stream_switch',
	'suppress_tries',
	'default_paper_size',
'disable_receipt_display',	'disable_receipt_display',
'spreadsheet_default_classcalc',	'spreadsheet_default_classcalc',
'spreadsheet_default_studentcalc',	'spreadsheet_default_studentcalc',
Line 1580 sub crsenv {	Line 1646 sub crsenv {
'hideemptyrows',	'hideemptyrows',
'default_enrollment_start_date',	'default_enrollment_start_date',
'default_enrollment_end_date',	'default_enrollment_end_date',
	'tthoptions',
	'disablesigfigs'
);	);
foreach my $parameter (sort(keys(%values))) {	foreach my $parameter (sort(keys(%values))) {
if (! $descriptions{$parameter}) {	unless ($parameter =~ m/^internal\./) {
$descriptions{$parameter}=$parameter;	if (! $descriptions{$parameter}) {
push(@Display_Order,$parameter);	$descriptions{$parameter}=$parameter;
}	push(@Display_Order,$parameter);
	}
	}
}	}
foreach my $parameter (@Display_Order) {	foreach my $parameter (@Display_Order) {
my $description = $descriptions{$parameter};	my $description = $descriptions{$parameter};
Line 1615 sub crsenv {	Line 1685 sub crsenv {
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 %lt=&Apache::lonlocal::texthash(
	'par' => 'Parameter',
	'val' => 'Value',
	'set' => 'Set',
	'sce' => 'Set Course Environment'
	);

	my $Parameter=&mt('Parameter');
	my $Value=&mt('Value');
	my $Set=&mt('Set');
	my $browse_js=&Apache::loncommon::browser_and_searcher_javascript();
$r->print(<<ENDENV);	$r->print(<<ENDENV);
<html>	<html>
<script type="text/javascript" language="Javascript" >	<script type="text/javascript" language="Javascript" >
var editbrowser;	$browse_js
function openbrowser(formname,elementname,only,omit) {
var url = '/res/?';
if (editbrowser == null) {
url += 'launch=1&';
}
url += 'catalogmode=interactive&';
url += 'mode=parmset&';
url += 'form=' + formname + '&';
if (only != null) {
url += 'only=' + only + '&';
}
if (omit != null) {
url += 'omit=' + omit + '&';
}
url += 'element=' + elementname + '';
var title = 'Browser';
var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';
editbrowser = open(url,title,options,'1');
editbrowser.focus();
}
</script>	</script>
<head>	<head>
<title>LON-CAPA Course Environment</title>	<title>LON-CAPA Course Environment</title>
Line 1656 $bodytag	Line 1716 $bodytag
$setoutput	$setoutput
<p>	<p>
<table border=2>	<table border=2>
<tr><th>Parameter</th><th>Value</th><th>Set?</th></tr>	<tr><th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th></tr>
$output	$output
</table>	</table>
<input type="submit" name="crsenv" value="Set Course Environment">	<input type="submit" name="crsenv" value="$lt{'sce'}">
</form>	</form>
</body>	</body>
</html>	</html>
Line 1674 sub tablestart {	Line 1734 sub tablestart {
return '';	return '';
} else {	} else {
$tableopen=1;	$tableopen=1;
return '<table border="2"><tr><th>Parameter</th><th>Delete</th><th>Set to ...</th></tr>';	return '<table border="2"><tr><th>'.&mt('Parameter').'</th><th>'.
	&mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';
}	}
}	}

Line 1719 ENDOVER	Line 1780 ENDOVER
push (@deldata,$thiskey);	push (@deldata,$thiskey);
} elsif ($cmd eq 'datepointer') {	} elsif ($cmd eq 'datepointer') {
my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});	my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }	if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
}	}
}	}
}	}
# Store	# Store
&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);	my $delentries=$#deldata+1;
&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);	my @newdatakeys=keys %newdata;
	my $putentries=$#newdatakeys+1;
	if ($delentries) {
	if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
	$r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));
	} else {
	$r->print('<h2><font color="red">'.
	&mt('Error deleting parameters').'</font></h2>');
	}
	}
	if ($putentries) {
	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
	$r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));
	} else {
	$r->print('<h2><font color="red">'.
	&mt('Error storing parameters').'</font></h2>');
	}
	}
# Read and display	# Read and display
my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);	my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
my $oldsection='';	my $oldsection='';
Line 1733 ENDOVER	Line 1811 ENDOVER
my $oldpart='';	my $oldpart='';
my $pointer=0;	my $pointer=0;
$tableopen=0;	$tableopen=0;
	my $foundkeys=0;
foreach my $thiskey (sort keys %resourcedata) {	foreach my $thiskey (sort keys %resourcedata) {
if ($resourcedata{$thiskey.'.type'}) {	if ($resourcedata{$thiskey.'.type'}) {
my ($course,$middle,$part,$name)=	my ($course,$middle,$part,$name)=
($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);	($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
my $section='All Students';	my $section=&mt('All Students');
if ($middle=~/^\[(.*)\]\./) {	if ($middle=~/^\[(.*)\]\./) {
$section='Group/Section: '.$1;	$section=&mt('Group/Section').': '.$1;
$middle=~s/^\[(.*)\]\.//;	$middle=~s/^\[(.*)\]\.//;
}	}
$middle=~s/\.$//;	$middle=~s/\.$//;
my $realm='<font color="red">All Resources</font>';	my $realm='<font color="red">'.&mt('All Resources').'</font>';
if ($middle=~/^(.+)\_\_\_$all$$/) {	if ($middle=~/^(.+)\_\_\_$all$$/) {
$realm='<font color="green">Folder/Map: '.&Apache::lonnet::gettitle($1).'</font>';	$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>';
} elsif ($middle) {	} elsif ($middle) {
$realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>';	$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>';
}	}
if ($section ne $oldsection) {	if ($section ne $oldsection) {
$r->print(&tableend()."\n<hr /><h1>$section</h1>");	$r->print(&tableend()."\n<hr /><h1>$section</h1>");
Line 1761 ENDOVER	Line 1840 ENDOVER
}	}
if ($part ne $oldpart) {	if ($part ne $oldpart) {
$r->print(&tableend().	$r->print(&tableend().
"\n<h3><font color='blue'>Part: $part</font></h3>");	"\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
$oldpart=$part;	$oldpart=$part;
}	}
#	#
Line 1770 ENDOVER	Line 1849 ENDOVER
$r->print(&tablestart().'<tr><td><b>'.$name.	$r->print(&tablestart().'<tr><td><b>'.$name.
':</b></td><td><input type="checkbox" name="del_'.	':</b></td><td><input type="checkbox" name="del_'.
$thiskey.'" /></td><td>');	$thiskey.'" /></td><td>');
	$foundkeys++;
if ($resourcedata{$thiskey.'.type'}=~/^date/) {	if ($resourcedata{$thiskey.'.type'}=~/^date/) {
my $jskey='key_'.$pointer;	my $jskey='key_'.$pointer;
$pointer++;	$pointer++;
Line 1788 ENDOVER	Line 1868 ENDOVER
}	}
}	}

$r->print(&tableend().	$r->print(&tableend().'<p>'.
'<p><input type="submit" value="Modify Parameters" /></p></form></body></html>');	($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no course or section parameters.')).'</p></form></body></html>');
}	}

##################################################	##################################################
Line 1816 sub handler {	Line 1896 sub handler {
}	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});

	# ----------------------------------------------------------- Clear out garbage

	%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::lonnet::allowed('opa',$ENV{'request.course.id'}.'/'.
	$ENV{'request.course.sec'})
	)) {

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

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

Removed from v.1.127
changed lines
	Added in v.1.165