--- loncom/interface/lonparmset.pm 2001/03/23 23:04:32 1.26 +++ loncom/interface/lonparmset.pm 2001/08/08 21:00:49 1.32 @@ -11,7 +11,8 @@ # # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28, # 12/08,12/12, -# 16/01/01,02/08,03/20,03/23 Gerd Kortemeyer +# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09, +# 07/05,07/06,08/08 Gerd Kortemeyer package Apache::lonparmset; @@ -153,21 +154,9 @@ sub plink { &valout($value,$type).''; } -# ================================================================ Main Handler - -sub handler { - my $r=shift; +sub assessparms { - if ($r->header_only) { - $r->content_type('text/html'); - $r->send_http_header; - return OK; - } - -# ----------------------------------------------------- Needs to be in a course - - if (($ENV{'request.course.fn'}) && - (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { + my $r=shift; # -------------------------------------------------------- Variable declaration %courseopt=(); @@ -186,7 +175,21 @@ sub handler { my $pscat=$ENV{'form.pscat'}; my $pschp=$ENV{'form.pschp'}; + my $pssymb=''; +# ----------------------------------------------- Was this started from grades? + + if (($ENV{'form.command'} eq 'set') && ($ENV{'form.url'}) + && (!$ENV{'form.dis'})) { + my $url=$ENV{'form.url'}; + $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--; + $pssymb=&Apache::lonnet::symbread($url); + $pscat='all'; + $pschp=''; + } else { + $ENV{'form.url'}=''; + } + my $id=$ENV{'form.id'}; if (($id) && ($udom)) { $uname=(&Apache::lonnet::idget($udom,$id))[1]; @@ -288,7 +291,7 @@ sub handler { # ---------------------------------------------------------- Anything to store? if ($ENV{'form.pres_marker'}) { my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); - $spnam=~s/\_/\./; + $spnam=~s/\_([^\_]+)$/\.$1/; # ---------------------------------------------------------- Construct prefixes my $symbparm=$symbp{$sresid}.'.'.$spnam; @@ -401,17 +404,18 @@ sub handler { if ($fcat eq '') { $a<=>$b; } else { - $outpar[&parmval($fcat,$a,$defp{$a})]<=> - $outpar[&parmval($fcat,$b,$defp{$b})]; + 1*$outpar[&parmval($fcat,$a,$defp{$a})]<=> + 1*$outpar[&parmval($fcat,$b,$defp{$b})]; } - } @ids; + } @ids; + # ------------------------------------------------------------------ Start page $r->content_type('text/html'); $r->send_http_header; $r->print(< -LON-CAPA Assessment Parameters +LON-CAPA Course Parameters -

Set Assessment Parameters

-
+

Set Course Parameters

+

Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}

+

Course Environment

+ +
+
+

Course Assessments

Section/Group: @@ -470,8 +481,12 @@ at Domain - + ENDHEAD + if ($ENV{'form.url'}) { + $r->print(''); + } map { $r->print(''); @@ -491,7 +506,8 @@ ENDHEAD $r->print(''); map { $r->print(''); } keys %allmaps; $r->print( @@ -503,8 +519,9 @@ ENDHEAD $r->print('>'.$allkeys{$_}.''); } keys %allkeys; $r->print( - '
'); - if (($pscat) || ($pschp)) { +'
' + ); + if (($pscat) || ($pschp) || ($pssymb)) { # ----------------------------------------------------------------- Start Table my $catmarker='parameter_'.$pscat; $catmarker=~s/\./\_/g; @@ -542,7 +559,10 @@ ENDTABLEHEADFOUR my $defbgtwo=''; map { my $rid=$_; - if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})) { + my ($inmapid)=($rid=~/\.(\d+)$/); + if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) || + ($pssymb eq $mapp{$rid}.'___'.$inmapid.'___'. + &Apache::lonnet::declutter($bighash{'src_'.$rid}))) { # ------------------------------------------------------ Entry for one resource if ($defbgone eq '"E0E099"') { $defbgone='"E0E0DD"'; @@ -670,6 +690,139 @@ ENDTABLEHEADFOUR untie(%bighash); untie(%parmhash); } +} + +sub crsenv { + my $r=shift; + my $setoutput=''; +# -------------------------------------------------- Go through list of changes + map { + if ($_=~/^form\.(.+)\_setparmval$/) { + my $name=$1; + my $value=$ENV{'form.'.$name.'_value'}; + if ($name eq 'newp') { + $name=$ENV{'form.newp_name'}; + } + if ($name eq 'url') { + $value=~s/^\/res\///; + $setoutput.='Backing up previous URL: '. + &Apache::lonnet::reply('put:'. + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}. + ':'.$ENV{'course.'.$ENV{'request.course.id'}.'.num'}. + ':environment:'. + &Apache::lonnet::escape('top level map backup '. + time).'='. + &Apache::lonnet::reply('get:'. + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}. + ':'.$ENV{'course.'.$ENV{'request.course.id'}.'.num'}. + ':environment:url', + $ENV{'course.'.$ENV{'request.course.id'}.'.home'}), + $ENV{'course.'.$ENV{'request.course.id'}.'.home'}). + '
'; + + } + if ($name) { + $setoutput.='Setting '.$name.' to '. + $value.': '. + &Apache::lonnet::reply('put:'. + $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}. + ':'.$ENV{'course.'.$ENV{'request.course.id'}.'.num'}. + ':environment:'. + &Apache::lonnet::escape($name).'='. + &Apache::lonnet::escape($value), + $ENV{'course.'.$ENV{'request.course.id'}.'.home'}). + '
'; + } + } + } keys %ENV; +# -------------------------------------------------------- Get parameters again + my $rep=&Apache::lonnet::reply + ('dump:'.$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}. + ':'.$ENV{'course.'.$ENV{'request.course.id'}.'.num'}. + ':environment', + $ENV{'course.'.$ENV{'request.course.id'}.'.home'}); + my $output=''; + if ($rep ne 'con_lost') { + my %values; + my %descriptions= + ('url' => 'Top Level Map
'. + 'Modification may make assessment data inaccessible', + 'description' => 'Course Description', + 'courseid' => 'Course ID or number
(internal, optional)', + 'question.email' => 'Feedback Addresses for Content Questions
'. + '(user:domain,user:domain,...)', + 'comment.email' => 'Feedback Addresses for Comments
'. + '(user:domain,user:domain,...)', + 'policy.email' => 'Feedback Addresses for Course Policy
'. + '(user:domain,user:domain,...)' + ); + + map { + my ($name,$value)=split(/\=/,$_); + $name=&Apache::lonnet::unescape($name); + $values{$name}=&Apache::lonnet::unescape($value); + unless ($descriptions{$name}) { + $descriptions{$name}=$name; + } + } split(/\&/,$rep); + map { + $output.=''.$descriptions{$_}.''; + } keys %descriptions; + $output.='Create New Environment Variable
'. + ''. + ''. + ''; + } + $r->print(< + +LON-CAPA Course Environment + + +

Set Course Parameters

+ +

Course: $ENV{'course.'.$ENV{'request.course.id'}.'.description'}

+

Course Environment

+$setoutput +

+ + +$output +
ParameterValueSet?
+ +

+ + +ENDENV +} + +# ================================================================ Main Handler + +sub handler { + my $r=shift; + + if ($r->header_only) { + $r->content_type('text/html'); + $r->send_http_header; + return OK; + } + +# ----------------------------------------------------- Needs to be in a course + + if (($ENV{'request.course.id'}) && + (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) { + + unless (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) { +# --------------------------------------------------------- Bring up assessment + &assessparms($r); +# ---------------------------------------------- This is for course environment + } else { + &crsenv($r); + } } else { # ----------------------------- Not in a course, or not allowed to modify parms $ENV{'user.error.msg'}=