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.30 and 1.42

version 1.30, 2001/07/06 12:11:22	version 1.42, 2001/12/27 17:00:30
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Handler to set parameters for assessments	# Handler to set parameters for assessments
#	#
	# $Id$
	#
	# Copyright Michigan State University Board of Trustees
	#
	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
	#
	# LON-CAPA is free software; you can redistribute it and/or modify
	# it under the terms of the GNU General Public License as published by
	# the Free Software Foundation; either version 2 of the License, or
	# (at your option) any later version.
	#
	# LON-CAPA is distributed in the hope that it will be useful,
	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	# GNU General Public License for more details.
	#
	# You should have received a copy of the GNU General Public License
	# along with LON-CAPA; if not, write to the Free Software
	# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	#
	# /home/httpd/html/adm/gpl.txt
	#
	# http://www.lon-capa.org/
	#
# (Handler to resolve ambiguous file locations	# (Handler to resolve ambiguous file locations
#	#
# (TeX Content Handler	# (TeX Content Handler
#	#
	# YEAR=2000
# 05/29/00,05/30,10/11 Gerd Kortemeyer)	# 05/29/00,05/30,10/11 Gerd Kortemeyer)
#	#
# 10/11,10/12,10/16 Gerd Kortemeyer)	# 10/11,10/12,10/16 Gerd Kortemeyer)
#	#
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,	# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
# 12/08,12/12,	# 12/08,12/12,
	# YEAR=2001
# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,	# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,
# 07/05,07/06 Gerd Kortemeyer	# 07/05,07/06,08/08,08/09,09/01,09/21 Gerd Kortemeyer
	# 12/17 Scott Harrison
	# 12/19 Guy Albertelli
	# 12/26,12/27 Gerd Kortemeyer
	#
	###

package Apache::lonparmset;	package Apache::lonparmset;

use strict;	use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::Constants qw(:common :http REDIRECT);	use Apache::Constants qw(:common :http REDIRECT);
	use Apache::loncommon;
use GDBM_File;	use GDBM_File;


Line 186 sub assessparms {	Line 218 sub assessparms {
$pssymb=&Apache::lonnet::symbread($url);	$pssymb=&Apache::lonnet::symbread($url);
$pscat='all';	$pscat='all';
$pschp='';	$pschp='';
	} elsif ($ENV{'form.symb'}) {
	$pssymb=$ENV{'form.symb'};
	$pscat='all';
	$pschp='';
} else {	} else {
$ENV{'form.url'}='';	$ENV{'form.url'}='';
}	}
Line 223 sub assessparms {	Line 259 sub assessparms {
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>\nFull Name: ".
$name{'firstname'}.' '.$name{'middlename'}	$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'}.	.$name{'lastname'}.' '.$name{'generation'}.
"<br>\nID: ".$name{'id'}.'<p>';	"<br>\nID: ".$name{'id'}.'<p>';
}	}
Line 245 sub assessparms {	Line 281 sub assessparms {
undef %allkeys;	undef %allkeys;
undef %allmaps;	undef %allmaps;
undef %defp;	undef %defp;
map {	foreach (keys %bighash) {
if ($_=~/^src\_(\d+)\.(\d+)$/) {	if ($_=~/^src\_(\d+)\.(\d+)$/) {
my $mapid=$1;	my $mapid=$1;
my $resid=$2;	my $resid=$2;
Line 255 sub assessparms {	Line 291 sub assessparms {
$ids[$#ids+1]=$id;	$ids[$#ids+1]=$id;
$typep{$id}=$1;	$typep{$id}=$1;
$keyp{$id}='';	$keyp{$id}='';
map {	foreach (split(/\,/,
	&Apache::lonnet::metadata($srcf,'keys'))) {
if ($_=~/^parameter\_(.*)/) {	if ($_=~/^parameter\_(.*)/) {
my $key=$_;	my $key=$_;
my $allkey=$1;	my $allkey=$1;
Line 277 sub assessparms {	Line 314 sub assessparms {
$keyp{$id}=$key;	$keyp{$id}=$key;
}	}
}	}
} split(/\,/,	}
&Apache::lonnet::metadata($srcf,'keys'));
$mapp{$id}=	$mapp{$id}=
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid});	&Apache::lonnet::declutter($bighash{'map_id_'.$mapid});
$allmaps{$mapid}=$mapp{$id};	$allmaps{$mapid}=$mapp{$id};
Line 287 sub assessparms {	Line 323 sub assessparms {
&Apache::lonnet::declutter($srcf);	&Apache::lonnet::declutter($srcf);
}	}
}	}
} keys %bighash;	}
# ---------------------------------------------------------- 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'});
$spnam=~s/\_/\./;	$spnam=~s/\_([^\_]+)$/\.$1/;
# ---------------------------------------------------------- Construct prefixes	# ---------------------------------------------------------- Construct prefixes

my $symbparm=$symbp{$sresid}.'.'.$spnam;	my $symbparm=$symbp{$sresid}.'.'.$spnam;
Line 379 sub assessparms {	Line 415 sub assessparms {
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',	$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});	$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
if ($reply!~/^error\:/) {	if ($reply!~/^error\:/) {
map {	foreach (split(/\&/,$reply)) {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$_);
$courseopt{&Apache::lonnet::unescape($name)}=	$courseopt{&Apache::lonnet::unescape($name)}=
&Apache::lonnet::unescape($value);	&Apache::lonnet::unescape($value);
} split(/\&/,$reply);	}
}	}
# --------------------------------------------------- Get userdata (if present)	# --------------------------------------------------- Get userdata (if present)
if ($uname) {	if ($uname) {
my $reply=	my $reply=
&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);	&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);
if ($reply!~/^error\:/) {	if ($reply!~/^error\:/) {
map {	foreach (split(/\&/,$reply)) {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$_);
$useropt{&Apache::lonnet::unescape($name)}=	$useropt{&Apache::lonnet::unescape($name)}=
&Apache::lonnet::unescape($value);	&Apache::lonnet::unescape($value);
} split(/\&/,$reply);	}
}	}
}	}

Line 487 ENDHEAD	Line 523 ENDHEAD
$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">');
}	}
map {	foreach ('tolerance','date_default','date_start','date_end',
	'date_interval','int','float','string') {
$r->print('<input type="hidden" value="'.	$r->print('<input type="hidden" value="'.
$ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">');	$ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">');
} ('tolerance','date_default','date_start','date_end','date_interval',	}
'int','float','string');

$r->print('<h2>'.$message.'</h2><table><tr><td>Sort list by</td><td>');	$r->print('<h2>'.$message.'</h2><table><tr><td>Sort list by</td><td>');
$r->print('<select name="fcat">');	$r->print('<select name="fcat">');
$r->print('<option value="">Enclosing Map</option>');	$r->print('<option value="">Enclosing Map</option>');
map {	foreach (reverse sort keys %allkeys) {
$r->print('<option value="'.$_.'"');	$r->print('<option value="'.$_.'"');
if ($fcat eq $_) { $r->print(' selected'); }	if ($fcat eq $_) { $r->print(' selected'); }
$r->print('>'.$allkeys{$_}.'</option>');	$r->print('>'.$allkeys{$_}.'</option>');
} keys %allkeys;	}
$r->print(	$r->print(
'</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>');	'</select></tr><tr><td>Select Enclosing Map</td><td><select name=pschp>');
$r->print('<option value=all>All Maps</option>');	$r->print('<option value=all>All Maps</option>');
map {	foreach (keys %allmaps) {
$r->print('<option value="'.$_.'"');	$r->print('<option value="'.$_.'"');
if (($pssymb=~/^$allmaps{$_}/) \|\|	if (($pssymb=~/^$allmaps{$_}/) \|\|
($pschp eq $_)) { $r->print(' selected'); }	($pschp eq $_)) { $r->print(' selected'); }
$r->print('>'.$allmaps{$_}.'</option>');	$r->print('>'.$allmaps{$_}.'</option>');
} keys %allmaps;	}
$r->print(	$r->print(
'</select></td></tr><tr><td>Select Parameter</td><td><select name=pscat>');	'</select></td></tr><tr><td>Select Parameter</td><td><select name=pscat>');
$r->print('<option value=all>All Parameters</option>');	$r->print('<option value=all>All Parameters</option>');
map {	foreach (reverse sort keys %allkeys) {
$r->print('<option value="'.$_.'"');	$r->print('<option value="'.$_.'"');
if ($pscat eq $_) { $r->print(' selected'); }	if ($pscat eq $_) { $r->print(' selected'); }
$r->print('>'.$allkeys{$_}.'</option>');	$r->print('>'.$allkeys{$_}.'</option>');
} keys %allkeys;	}
$r->print(	$r->print(
'</select></td></tr></table><br><input name=dis type="submit" value="Display">'	'</select></td></tr></table><br><input name=dis type="submit" value="Display">'
);	);
Line 526 ENDHEAD	Line 562 ENDHEAD
my $catmarker='parameter_'.$pscat;	my $catmarker='parameter_'.$pscat;
$catmarker=~s/\./\_/g;	$catmarker=~s/\./\_/g;
my $coursespan=$csec?8:5;	my $coursespan=$csec?8:5;
	my $csuname=$ENV{'user.name'};
	my $csudom=$ENV{'user.domain'};
$r->print(<<ENDTABLEHEAD);	$r->print(<<ENDTABLEHEAD);
<p><table border=2>	<p><table border=2>
<tr><td colspan=5></td>	<tr><td colspan=5></td>
Line 535 ENDTABLEHEAD	Line 573 ENDTABLEHEAD
$r->print("<th colspan=3 rowspan=2>User $uname at Domain $udom</th>");	$r->print("<th colspan=3 rowspan=2>User $uname at Domain $udom</th>");
}	}
$r->print(<<ENDTABLETWO);	$r->print(<<ENDTABLETWO);
<th rowspan=3>Parameter in Effect</th></tr><tr><td colspan=5></td>	<th rowspan=3>Parameter in Effect</th>
	<th rowspan=3>Current Session Value<br>($csuname at $csudom)</th>
	</tr><tr><td colspan=5></td>
<th colspan=2>Resource Level</th>	<th colspan=2>Resource Level</th>
<th colspan=3>in Course</th>	<th colspan=3>in Course</th>
ENDTABLETWO	ENDTABLETWO
Line 554 ENDTABLEHEADFOUR	Line 594 ENDTABLEHEADFOUR
if ($uname) {	if ($uname) {
$r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>');	$r->print('<th>general</th><th>for Enclosing Map</th><th>for Resource</th>');
}	}
$r->print('</tr><tr>');	$r->print('</tr>');
my $defbgone='';	my $defbgone='';
my $defbgtwo='';	my $defbgtwo='';
map {	foreach (@ids) {
my $rid=$_;	my $rid=$_;
my ($inmapid)=($rid=~/\.(\d+)$/);	my ($inmapid)=($rid=~/\.(\d+)$/);
if (($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid}) \|\|	if (($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid}) \|\|
Line 577 ENDTABLEHEADFOUR	Line 617 ENDTABLEHEADFOUR
@outpar=();	@outpar=();
my $thistitle='';	my $thistitle='';
my %name= ();	my %name= ();
	undef %name;
my %part= ();	my %part= ();
my %display=();	my %display=();
my %type= ();	my %type= ();
my %default=();	my %default=();
my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});	my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});

map {	foreach (split(/\,/,$keyp{$rid})) {
	if (($_ eq $catmarker) \|\| ($pscat eq 'all')) {
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');	$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
$name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');	$name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');	$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
Line 592 ENDTABLEHEADFOUR	Line 634 ENDTABLEHEADFOUR
$default{$_}=&Apache::lonnet::metadata($uri,$_);	$default{$_}=&Apache::lonnet::metadata($uri,$_);
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');	$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
$thistitle=&Apache::lonnet::metadata($uri,$_.'.title');	$thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
} split(/\,/,$keyp{$rid});	}
	}

my $totalparms=scalar keys %name;	my $totalparms=scalar keys %name;
my $isdef=1;	if ($totalparms>0) {
unless ($totalparms) { $totalparms=1; $isdef=0; }	my $firstrow=1;
if ($pscat ne 'all') { $totalparms=1; }	$r->print('<tr><td bgcolor='.$defbgone.
$r->print('<td bgcolor='.$defbgone.
' rowspan='.$totalparms.'><tt><font size=-1>'.	' rowspan='.$totalparms.'><tt><font size=-1>'.
join(' / ',split(/\//,$uri)).	join(' / ',split(/\//,$uri)).
'</font></tt><p><b>'.	'</font></tt><p><b>'.
Line 612 ENDTABLEHEADFOUR	Line 654 ENDTABLEHEADFOUR
$r->print('<td bgcolor='.$defbgone.	$r->print('<td bgcolor='.$defbgone.
' rowspan='.$totalparms.'><tt><font size=-1>'.	' rowspan='.$totalparms.'><tt><font size=-1>'.
join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>');	join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>');
if ($isdef) {	foreach (sort keys %name) {
map {
if (($_ eq $catmarker) \|\| ($pscat eq 'all')) {
my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});	my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
	unless ($firstrow) {
	$r->print('<tr>');
	} else {
	$firstrow=0;
	}
$r->print("<td bgcolor=".$defbgtwo.	$r->print("<td bgcolor=".$defbgtwo.
">$part{$_}</td><td bgcolor=".$defbgone.	">$part{$_}</td><td bgcolor=".$defbgone.
">$display{$_}</td>");	">$display{$_}</td>");
Line 674 ENDTABLEHEADFOUR	Line 718 ENDTABLEHEADFOUR
'parmform.pres','psub').'</td>');	'parmform.pres','psub').'</td>');
}	}
$r->print(	$r->print(
'<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');	'<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');
$r->print("</tr>\n<tr>");	my $sessionval=&Apache::lonnet::EXT('resource.'.$part{$_}.
	'.'.$name{$_},$mapp{$rid}.'___'.$inmapid.'___'.$uri);
	if (($type{$_}=~/^date/) && ($sessionval))
	{ $sessionval=localtime($sessionval); }
	$r->print(
	'<td bgcolor=#999999><font color=#FFFFFF>'.$sessionval.' '.
	'</font></td>');
	$r->print("</tr>");
}	}
} sort keys %name;	}
} else {
$r->print("</tr>\n<tr>");
}
# -------------------------------------------------- End entry for one resource	# -------------------------------------------------- End entry for one resource
}	}
} @ids;	}
$r->print('</table>');	$r->print('</table>');
}	}
$r->print('</form></body></html>');	$r->print('</form></body></html>');
Line 696 sub crsenv {	Line 744 sub crsenv {
my $r=shift;	my $r=shift;
my $setoutput='';	my $setoutput='';
# -------------------------------------------------- Go through list of changes	# -------------------------------------------------- Go through list of changes
map {	foreach (keys %ENV) {
if ($_=~/^form\.(.+)\_setparmval$/) {	if ($_=~/^form\.(.+)\_setparmval$/) {
my $name=$1;	my $name=$1;
my $value=$ENV{'form.'.$name.'_value'};	my $value=$ENV{'form.'.$name.'_value'};
Line 734 sub crsenv {	Line 782 sub crsenv {
'<br>';	'<br>';
}	}
}	}
} keys %ENV;	}
# -------------------------------------------------------- Get parameters again	# -------------------------------------------------------- Get parameters again
my $rep=&Apache::lonnet::reply	my $rep=&Apache::lonnet::reply
('dump:'.$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.	('dump:'.$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.
Line 754 sub crsenv {	Line 802 sub crsenv {
'comment.email' => '<b>Feedback Addresses for Comments</b><br>'.	'comment.email' => '<b>Feedback Addresses for Comments</b><br>'.
'(<tt>user:domain,user:domain,...</tt>)',	'(<tt>user:domain,user:domain,...</tt>)',
'policy.email' => '<b>Feedback Addresses for Course Policy</b><br>'.	'policy.email' => '<b>Feedback Addresses for Course Policy</b><br>'.
'(<tt>user:domain,user:domain,...</tt>)'	'(<tt>user:domain,user:domain,...</tt>)',
	'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br>'.
	'("<tt>yes</tt>" for default hiding)',
	'pch.roles.denied'=> '<b>Disallow Resource Discussion for Students</b><br>'.
	'("<tt>st</tt>": student, "<tt>ta</tt>": TA, "<tt>in</tt>": instructor;<br>'.
	'<tt>role,role,...</tt>)'
);	);

map {	foreach (split(/\&/,$rep)) {
my ($name,$value)=split(/\=/,$_);	my ($name,$value)=split(/\=/,$_);
$name=&Apache::lonnet::unescape($name);	$name=&Apache::lonnet::unescape($name);
$values{$name}=&Apache::lonnet::unescape($value);	$values{$name}=&Apache::lonnet::unescape($value);
unless ($descriptions{$name}) {	unless ($descriptions{$name}) {
$descriptions{$name}=$name;	$descriptions{$name}=$name;
}	}
} split(/\&/,$rep);	}
map {	foreach (sort keys %descriptions) {
$output.='<tr><td>'.$descriptions{$_}.'</td><td><input name="'.	$output.='<tr><td>'.$descriptions{$_}.'</td><td><input name="'.
$_.'_value" size=40 value="'.	$_.'_value" size=40 value="'.
$values{$_}.	$values{$_}.
'"></td><td><input type=checkbox name="'.$_.	'"></td><td><input type=checkbox name="'.$_.
'_setparmval"></td></tr>';	'_setparmval"></td></tr>';
} keys %descriptions;	}
$output.='<tr><td><i>Create New Environment Variable</i><br>'.	$output.='<tr><td><i>Create New Environment Variable</i><br>'.
'<input type="text" size=40 name="newp_name"></td><td>'.	'<input type="text" size=40 name="newp_name"></td><td>'.
'<input type="text" size=40 name="newp_value"></td><td>'.	'<input type="text" size=40 name="newp_value"></td><td>'.
Line 810 sub handler {	Line 863 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK;	return OK;
}	}
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
# ----------------------------------------------------- Needs to be in a course	# ----------------------------------------------------- Needs to be in a course

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

unless ($ENV{'form.crsenv'}) {	unless (($ENV{'form.crsenv'}) \|\| (!$ENV{'request.course.fn'})) {
# --------------------------------------------------------- Bring up assessment	# --------------------------------------------------------- Bring up assessment
&assessparms($r);	&assessparms($r);
# ---------------------------------------------- This is for course environment	# ---------------------------------------------- This is for course environment
Line 836 sub handler {	Line 889 sub handler {
__END__	__END__


	=head1 NAME

	Apache::lonparmset - Handler to set parameters for assessments

	=head1 SYNOPSIS

	Invoked by /etc/httpd/conf/srm.conf:

	<Location /adm/parmset>
	PerlAccessHandler Apache::lonacc
	SetHandler perl-script
	PerlHandler Apache::lonparmset
	ErrorDocument 403 /adm/login
	ErrorDocument 406 /adm/roles
	ErrorDocument 500 /adm/errorhandler
	</Location>

	=head1 INTRODUCTION

	This module sets assessment parameters.

	This is part of the LearningOnline Network with CAPA project
	described at http://www.lon-capa.org.

	=head1 HANDLER SUBROUTINE

	This routine is called by Apache and mod_perl.

	=over 4

	=item *

	need to be in course

	=item *

	bring up assessment screen or course environment

	=back

	=head1 OTHER SUBROUTINES

	=over 4

	=item *

	parmval() : figure out a cascading parameter

	=item *

	valout() : output for value

	=item *

	plink() : produces link anchor

	=item *

	assessparms() : show assess data and parameters

	=item *

	crsenv() : for the course environment

	=back

	=cut

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

Removed from v.1.30
changed lines
	Added in v.1.42