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.208 and 1.209

version 1.208, 2005/06/04 17:35:19	version 1.209, 2005/06/05 01:37:26
Line 440 sub plink {	Line 440 sub plink {
$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};	$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
}	}
}	}


return	return
'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
.$marker."','".$return."','".$call."'".');">'.	.$marker."','".$return."','".$call."'".');">'.
Line 447 sub plink {	Line 449 sub plink {
}	}

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

my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',	my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
'onUnload="pclose()"');	'onUnload="pclose()"');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table Mode Parameter Setting');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Table Mode Parameter Setting');
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'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(
'captm' => "Course Assessments Parameters - Table Mode",
'sg' => "Section/Group",
'fu' => "For User",
'oi' => "or ID",
'ad' => "at Domain"
);
my $html=&Apache::lonxml::xmlbegin();	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
$html	$html
Line 513 $selscript	Line 506 $selscript
</head>	</head>
$bodytag	$bodytag
$breadcrumbs	$breadcrumbs
ENDHEAD
my %sectionhash=();
my $sections='';
if (&Apache::loncommon::get_sections(
$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'},
\%sectionhash)) {
$sections=$lt{'sg'}.': <select name="csec">';
foreach ('',sort keys %sectionhash) {
$sections.='<option value="'.$_.'"'.
($_ eq $csec?'selected="selected"':'').'>'.$_.'</option>';
}
$sections.='</select>';
}
$r->print(<<ENDHEAD3);
<form method="post" action="/adm/parmset?action=settable" name="parmform">	<form method="post" action="/adm/parmset?action=settable" name="parmform">
<h4>$lt{'captm'}</h4>
ENDHEAD3

if (!$have_assessments) {
$r->print('<font color="red">'.&mt('There are no assessment parameters in this course to set.').'</font><br />');
} else {
$r->print(<<ENDHEAD);
<b>
$sections
<br />
$lt{'fu'}
<input type="text" value="$uname" size="12" name="uname" />
$lt{'oi'}
<input type="text" value="$id" size="12" name="id" />
$lt{'ad'}
$chooseopt
</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">
	<input type="hidden" value='1' name="prevvisit">
ENDHEAD	ENDHEAD
}
}	}


sub print_row {	sub print_row {
my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,	my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
$defbgtwo,$parmlev,$uname,$udom,$csec)=@_;	$defbgtwo,$parmlev,$uname,$udom,$csec)=@_;
Line 700 sub extractResourceInformation {	Line 662 sub extractResourceInformation {
my $keyp = shift;	my $keyp = shift;
my $allparms = shift;	my $allparms = shift;
my $allparts = shift;	my $allparts = shift;
my $allkeys = shift;
my $allmaps = shift;	my $allmaps = shift;
my $fcat = shift;
my $defp = shift;
my $mapp = shift;	my $mapp = shift;
my $symbp = shift;	my $symbp = shift;
my $maptitles=shift;	my $maptitles=shift;
Line 725 sub extractResourceInformation {	Line 684 sub extractResourceInformation {
foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {	foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
if ($_=~/^parameter\_(.*)/) {	if ($_=~/^parameter\_(.*)/) {
my $key=$_;	my $key=$_;
my $allkey=$1;	# Hidden parameters
$allkey=~s/\_/\./g;	if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 'parm') {
if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq	next;
'parm') {
next; #hide hidden things
}	}
my $display= &Apache::lonnet::metadata($srcf,$key.'.display');	my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
my $name=&Apache::lonnet::metadata($srcf,$key.'.name');	my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
my $part= &Apache::lonnet::metadata($srcf,$key.'.part');	my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
	#
	# allparms is a hash of parameter names
	#
my $parmdis = $display;	my $parmdis = $display;
$parmdis =~ s\|(\[Part.*)$\|\|g;	$parmdis =~ s/\[Part.*$//g;
my $partkey = $part;	$$allparms{$name}=$parmdis;
$partkey =~ tr\|_\|.\|;	#
$$allparms{$name} = $parmdis;	# allparts is a hash of all parts
$$allparts{$part} = "[Part $part]";	#
$$allkeys{$allkey}=$display;	$$allparts{$part} = "Part: $part";
if ($allkey eq $fcat) {	#
$$defp{$id}= &Apache::lonnet::metadata($srcf,$key);	# Remember all keys going with this resource
}	#
if ($$keyp{$id}) {	if ($$keyp{$id}) {
$$keyp{$id}.=','.$key;	$$keyp{$id}.=','.$key;
} else {	} else {
Line 785 sub parmmenu {	Line 745 sub parmmenu {
}	}
</script>	</script>
ENDSCRIPT	ENDSCRIPT
$r->print(&mt('Select Parameters to View'));	$r->print();
$r->print("\n<table><tr>");	$r->print("\n<table><tr>");
my $cnt=0;	my $cnt=0;
foreach $tempkey (sort { $$allparms{$a} cmp $$allparms{$b} }	foreach $tempkey (sort { $$allparms{$a} cmp $$allparms{$b} }
keys %{$allparms} ) {	keys %{$allparms} ) {
++$cnt;	$r->print("\n<td><font size='-1'><input type='checkbox' name='pscat' ");
$r->print("</tr>\n<tr>") if ($cnt%2);
$r->print("\n<td><input type='checkbox' name='pscat' ");
$r->print('value="'.$tempkey.'"');	$r->print('value="'.$tempkey.'"');
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print(' checked');	$r->print(' checked');
}	}
$r->print('>'.$$allparms{$tempkey}.'</td>');	$r->print('>'.$$allparms{$tempkey}.'</font></td>');
	$cnt++;
	if ($cnt==3) {
	$r->print("</tr>\n<tr>");
	$cnt=0;
	}
}	}
$r->print('	$r->print('
</tr><tr><td>	</tr><tr><td>
<input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />	<input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />
</td><td>	</td><td></td><td>
<input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />	<input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />
</td>	</td>
');	');
$r->print('</tr></table>');	$r->print('</tr></table>');
}	}

sub menu {	sub partmenu {
my ($r,$allparms,$allparts,$allkeys,$pscat,$psprt,$fcat)=@_;	my ($r,$allparts,$psprt)=@_;
my $tempkey;	$r->print('<select multiple name="psprt" size="5">');

&parmmenu($r,$allkeys,$pscat);

$r->print('<table><tr>');
$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('>'.&mt('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 my $tempkey (sort keys %{$allparts}) {
unless ($tempkey =~ /\./) {	unless ($tempkey =~ /\./) {
$r->print('<option value="'.$tempkey.'"');	$r->print('<option value="'.$tempkey.'"');
if ($$psprt[0] eq "all" \|\| $temphash{$tempkey}) {	if ($$psprt[0] eq "all" \|\| $temphash{$tempkey}) {
Line 831 sub menu {	Line 789 sub menu {
$r->print('>'.$$allparts{$tempkey}.'</option>');	$r->print('>'.$$allparts{$tempkey}.'</option>');
}	}
}	}
$r->print('</select></td></tr><tr><td colspan="3"><hr /></td></tr>');	$r->print('</select>');
	}
$r->print('<tr><td>'.&mt('Sort list by').'</td><td>');
$r->print('<select name="fcat">');	sub usermenu {
$r->print('<option value="">'.&mt('Enclosing Map or Folder').'</option>');	my ($r,$uname,$id,$udom,$csec)=@_;
foreach (sort keys %{$allkeys}) {	my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
	&Apache::loncommon::selectstudent_link('parmform','uname','udom');
	my $selscript=&Apache::loncommon::studentbrowser_javascript();
	my %lt=&Apache::lonlocal::texthash(
	'sg' => "Section/Group",
	'fu' => "For User",
	'oi' => "or ID",
	'ad' => "at Domain"
	);
	my %sectionhash=();
	my $sections='';
	if (&Apache::loncommon::get_sections(
	$env{'course.'.$env{'request.course.id'}.'.domain'},
	$env{'course.'.$env{'request.course.id'}.'.num'},
	\%sectionhash)) {
	$sections=$lt{'sg'}.': <select name="csec">';
	foreach ('',sort keys %sectionhash) {
	$sections.='<option value="'.$_.'"'.
	($_ eq $csec?'selected="selected"':'').'>'.$_.'</option>';
	}
	$sections.='</select>';
	}
	$r->print(<<ENDMENU);
	<b>
	$sections
	<br />
	$lt{'fu'}
	<input type="text" value="$uname" size="12" name="uname" />
	$lt{'oi'}
	<input type="text" value="$id" size="12" name="id" />
	$lt{'ad'}
	$chooseopt
	</b>
	ENDMENU
	}

	sub displaymenu {
	my ($r,$allparms,$allparts,$pscat,$psprt)=@_;
	$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.
	&mt('Select Parts to View').'</th></tr><tr><td>');
	&parmmenu($r,$allparms,$pscat);
	$r->print('</td><td>');
	&partmenu($r,$allparts,$psprt);
	$r->print('</td></tr></table>');
	}

	sub mapmenu {
	my ($r,$allmaps,$pschp,$maptitles)=@_;
	$r->print(&mt('Select Enclosing Map or Folder').' ');
	$r->print('<select name="pschp">');
	$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
	foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
$r->print('<option value="'.$_.'"');	$r->print('<option value="'.$_.'"');
if ($fcat eq $_) { $r->print(' selected'); }	if (($pschp eq $_)) { $r->print(' selected'); }
$r->print('>'.$$allkeys{$_}.'</option>');	$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');
}	}
$r->print('</select></td>');	$r->print("</select>");
	}
$r->print('</tr><tr><td colspan="3"><hr /></td></tr></table>');
	sub levelmenu {
	my ($r,$alllevs,$parmlev)=@_;
	$r->print(&mt('Select Parameter Level').
	&Apache::loncommon::help_open_topic('Course_Parameter_Levels').' ');
	$r->print('<select name="parmlev">');
	foreach (reverse sort keys %{$alllevs}) {
	$r->print('<option value="'.$$alllevs{$_}.'"');
	if ($parmlev eq $$alllevs{$_}) {
	$r->print(' selected');
	}
	$r->print('>'.$_.'</option>');
	}
	$r->print("</select>");
}	}

##################################################	##################################################
Line 890 sub assessparms {	Line 911 sub assessparms {
my %maptitles=();	my %maptitles=();

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

Line 908 sub assessparms {	Line 929 sub assessparms {
my %allparms;	my %allparms;
my %allparts;	my %allparts;

my %defp;

@ids=();	@ids=();
%symbp=();	%symbp=();
%typep=();	%typep=();
Line 932 sub assessparms {	Line 951 sub assessparms {

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

unless ($env{'form.parmlev'}) {	unless ($env{'form.parmlev'}) {
$parmlev = 'map';	$parmlev = 'map';
Line 1003 sub assessparms {	Line 1021 sub assessparms {

unless ($csec) { $csec=''; }	unless ($csec) { $csec=''; }

my $fcat=$env{'form.fcat'};
unless ($fcat) { $fcat=''; }

# --------------------------------------------------------- Get all assessments	# --------------------------------------------------------- Get all assessments
&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allkeys, \%allmaps, $fcat, \%defp, \%mapp, \%symbp,\%maptitles,\%uris);	&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, \%mapp, \%symbp,\%maptitles,\%uris);

$mapp{'0.0'} = '';	$mapp{'0.0'} = '';
$symbp{'0.0'} = '';	$symbp{'0.0'} = '';
Line 1026 sub assessparms {	Line 1041 sub assessparms {
# ---------------------------------------------------------------- Done storing	# ---------------------------------------------------------------- Done storing
$message.='<h3>'.&mt('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>';
}	}
# ------------------------------------------------------------------- Sort this

@ids=sort {
if ($fcat eq '') {
$a<=>$b;
} else {
my ($result,@outpar)=&parmval($fcat,$a,$defp{$a},$uname,$udom,$csec);
my $aparm=$outpar[$result];
($result,@outpar)=&parmval($fcat,$b,$defp{$b},$uname,$udom,$csec);
my $bparm=$outpar[$result];
1$aparm<=>1$bparm;
}
} @ids;
#----------------------------------------------- if all selected, fill in array	#----------------------------------------------- if all selected, fill in array
if ($pscat[0] eq "all" \|\| !@pscat) {@pscat = (keys %allparms);}	if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
	if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') };
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,scalar(keys(%allkeys)));	&startpage($r);

$r->print('<input type="hidden" value="true" name="prevvisit">');

foreach ('tolerance','date_default','date_start','date_end',	foreach ('tolerance','date_default','date_start','date_end',
'date_interval','int','float','string') {	'date_interval','int','float','string') {
Line 1054 sub assessparms {	Line 1055 sub assessparms {
$env{'form.recent_'.$_}.'" name="recent_'.$_.'">');	$env{'form.recent_'.$_}.'" name="recent_'.$_.'">');
}	}

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

my $submitmessage = &mt('Update Section or Specific User');
if (!$pssymb) {	if (!$pssymb) {
$r->print('<tr><td>'.&mt('Select Parameter Level').	$r->print('<table border="1"><tr><td>');
&Apache::loncommon::help_open_topic('Course_Parameter_Levels').	&levelmenu($r,\%alllevs,$parmlev);
'</td><td colspan="2">');
$r->print('<select name="parmlev">');
foreach (reverse sort keys %alllevs) {
$r->print('<option value="'.$alllevs{$_}.'"');
if ($parmlev eq $alllevs{$_}) {
$r->print(' selected');
}
$r->print('>'.$_.'</option>');
}
$r->print("</select></td>\n");

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


&menu($r,\%allparms,\%allparts,\%allkeys,\@pscat,\@psprt,$fcat);	$r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');

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_pscat;	my @temp_pscat;
map {	map {
Line 1111 sub assessparms {	Line 1084 sub assessparms {

@pscat = @temp_pscat;	@pscat = @temp_pscat;

if (($prevvisit) \|\| ($pschp) \|\| ($pssymb)) {	if (($env{'form.prevvisit'}) \|\| ($pschp) \|\| ($pssymb)) {
# ----------------------------------------------------------------- Start Table	# ----------------------------------------------------------------- Start Table
my @catmarker=map { tr\|.\|_\|; 'parameter_'.$_; } @pscat;	my @catmarker=map { tr\|.\|_\|; 'parameter_'.$_; } @pscat;
my $csuname=$env{'user.name'};	my $csuname=$env{'user.name'};

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

Removed from v.1.208
changed lines
	Added in v.1.209