--- loncom/interface/lonparmset.pm 2001/09/21 19:59:49 1.35 +++ loncom/interface/lonparmset.pm 2002/02/12 00:14:07 1.43 @@ -1,24 +1,56 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # +# $Id: lonparmset.pm,v 1.43 2002/02/12 00:14:07 albertel Exp $ +# +# 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 # # (TeX Content Handler # +# YEAR=2000 # 05/29/00,05/30,10/11 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, # 12/08,12/12, +# YEAR=2001 # 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09, # 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; use strict; use Apache::lonnet; use Apache::Constants qw(:common :http REDIRECT); +use Apache::loncommon; use GDBM_File; @@ -34,10 +66,6 @@ my %symbp; my %mapp; my %typep; my %keyp; -my %defp; - -my %allkeys; -my %allmaps; my $uname; my $udom; @@ -55,76 +83,78 @@ sub parmval { @outpar=(); # ----------------------------------------------------- Cascading lookup scheme - my $symbparm=$symbp{$id}.'.'.$what; - my $mapparm=$mapp{$id}.'___(all).'.$what; + my $symbparm=$symbp{$id}.'.'.$what; + my $mapparm=$mapp{$id}.'___(all).'.$what; - my $seclevel= - $ENV{'request.course.id'}.'.['. - $csec.'].'.$what; - my $seclevelr= - $ENV{'request.course.id'}.'.['. - $csec.'].'.$symbparm; - my $seclevelm= - $ENV{'request.course.id'}.'.['. - $csec.'].'.$mapparm; - - my $courselevel= - $ENV{'request.course.id'}.'.'.$what; - my $courselevelr= - $ENV{'request.course.id'}.'.'.$symbparm; - my $courselevelm= - $ENV{'request.course.id'}.'.'.$mapparm; + my $seclevel=$ENV{'request.course.id'}.'.['.$csec.'].'.$what; + my $seclevelr=$ENV{'request.course.id'}.'.['.$csec.'].'.$symbparm; + my $seclevelm=$ENV{'request.course.id'}.'.['.$csec.'].'.$mapparm; + + my $courselevel=$ENV{'request.course.id'}.'.'.$what; + my $courselevelr=$ENV{'request.course.id'}.'.'.$symbparm; + my $courselevelm=$ENV{'request.course.id'}.'.'.$mapparm; # -------------------------------------------------------- first, check default - if ($def) { $outpar[11]=$def; - $result=11; } + if ($def) { $outpar[11]=$def; $result=11; } # ----------------------------------------------------- second, check map parms - my $thisparm=$parmhash{$symbparm}; - if ($thisparm) { $outpar[10]=$thisparm; - $result=10; } + my $thisparm=$parmhash{$symbparm}; + if ($thisparm) { $outpar[10]=$thisparm; $result=10; } # --------------------------------------------------------- third, check course - if ($courseopt{$courselevel}) { $outpar[9]=$courseopt{$courselevel}; - $result=9; } + if ($courseopt{$courselevel}) { + $outpar[9]=$courseopt{$courselevel}; + $result=9; + } - if ($courseopt{$courselevelm}) { $outpar[8]=$courseopt{$courselevelm}; - $result=8; } + if ($courseopt{$courselevelm}) { + $outpar[8]=$courseopt{$courselevelm}; + $result=8; + } + + if ($courseopt{$courselevelr}) { + $outpar[7]=$courseopt{$courselevelr}; + $result=7; + } - if ($courseopt{$courselevelr}) { $outpar[7]=$courseopt{$courselevelr}; - $result=7; } + if ($csec) { + if ($courseopt{$seclevel}) { + $outpar[6]=$courseopt{$seclevel}; + $result=6; + } + if ($courseopt{$seclevelm}) { + $outpar[5]=$courseopt{$seclevelm}; + $result=5; + } - if ($csec) { - - if ($courseopt{$seclevel}) { $outpar[6]=$courseopt{$seclevel}; - $result=6; } - - if ($courseopt{$seclevelm}) { $outpar[5]=$courseopt{$seclevelm}; - $result=5; } - - if ($courseopt{$seclevelr}) { $outpar[4]=$courseopt{$seclevelr}; - $result=4; } - - } + if ($courseopt{$seclevelr}) { + $outpar[4]=$courseopt{$seclevelr}; + $result=4; + } + } # ---------------------------------------------------------- fourth, check user - - if ($uname) { - if ($useropt{$courselevel}) { $outpar[3]=$useropt{$courselevel}; - $result=3; } + if ($uname) { + if ($useropt{$courselevel}) { + $outpar[3]=$useropt{$courselevel}; + $result=3; + } - if ($useropt{$courselevelm}) { $outpar[2]=$useropt{$courselevelm}; - $result=2; } + if ($useropt{$courselevelm}) { + $outpar[2]=$useropt{$courselevelm}; + $result=2; + } - if ($useropt{$courselevelr}) { $outpar[1]=$useropt{$courselevelr}; - $result=1; } + if ($useropt{$courselevelr}) { + $outpar[1]=$useropt{$courselevelr}; + $result=1; + } + } - } - return $result; } @@ -132,8 +162,7 @@ sub parmval { sub valout { my ($value,$type)=@_; - return - ($value?(($type=~/^date/)?localtime($value):$value):' '); + return ($value?(($type=~/^date/)?localtime($value):$value):' '); } # -------------------------------------------------------- Produces link anchor @@ -149,269 +178,264 @@ sub plink { } } return - ''. - &valout($value,$type).''; + ''. + &valout($value,$type).''; } sub assessparms { - my $r=shift; + my $r=shift; # -------------------------------------------------------- Variable declaration - - %courseopt=(); - %useropt=(); - %bighash=(); - - @ids=(); - %symbp=(); - %typep=(); - - my $message=''; - - $csec=$ENV{'form.csec'}; - $udom=$ENV{'form.udom'}; - unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } - - my $pscat=$ENV{'form.pscat'}; - my $pschp=$ENV{'form.pschp'}; - my $pssymb=''; + my %allkeys; + my %allmaps; + my %defp; + %courseopt=(); + %useropt=(); + %bighash=(); + + @ids=(); + %symbp=(); + %typep=(); + + my $message=''; + + $csec=$ENV{'form.csec'}; + $udom=$ENV{'form.udom'}; + unless ($udom) { $udom=$r->dir_config('lonDefDomain'); } + + 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]; - if ($uname) { - $id=''; - } else { - $message= - "Unknown ID '$id' at domain '$udom'"; - } - } else { - $uname=$ENV{'form.uname'}; - } - unless ($udom) { $uname=''; } - $uhome=''; - if ($uname) { - $uhome=&Apache::lonnet::homeserver($uname,$udom); - - if ($uhome eq 'no_host') { - $message= - "Unknown user '$uname' at domain '$udom'"; - $uname=''; + 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=''; + } elsif ($ENV{'form.symb'}) { + $pssymb=$ENV{'form.symb'}; + $pscat='all'; + $pschp=''; + } else { + $ENV{'form.url'}=''; + } + + my $id=$ENV{'form.id'}; + if (($id) && ($udom)) { + $uname=(&Apache::lonnet::idget($udom,$id))[1]; + if ($uname) { + $id=''; + } else { + $message= + "Unknown ID '$id' at domain '$udom'"; + } + } else { + $uname=$ENV{'form.uname'}; + } + unless ($udom) { $uname=''; } + $uhome=''; + if ($uname) { + $uhome=&Apache::lonnet::homeserver($uname,$udom); + if ($uhome eq 'no_host') { + $message= + "Unknown user '$uname' at domain '$udom'"; + $uname=''; } else { - $csec=&Apache::lonnet::usection( - $udom,$uname,$ENV{'request.course.id'}); - if ($csec eq '-1') { - $message="". - "User '$uname' at domain '$udom' not in this course"; - $uname=''; - $csec=$ENV{'form.csec'}; - } else { - my %name=&Apache::lonnet::userenvironment($udom,$uname, - ('firstname','middlename','lastname','generation','id')); - $message="\n
\nFull Name: ".
- $name{'firstname'}.' '.$name{'middlename'}.' '
- .$name{'lastname'}.' '.$name{'generation'}.
- "
\nID: ".$name{'id'}.'
'; - } + $csec=&Apache::lonnet::usection($udom,$uname, + $ENV{'request.course.id'}); + if ($csec eq '-1') { + $message="". + "User '$uname' at domain '$udom' not in this course"; + $uname=''; + $csec=$ENV{'form.csec'}; + } else { + my %name=&Apache::lonnet::userenvironment($udom,$uname, + ('firstname','middlename','lastname','generation','id')); + $message="\n
\nFull Name: ".
+ $name{'firstname'}.' '.$name{'middlename'}.' '
+ .$name{'lastname'}.' '.$name{'generation'}.
+ "
\nID: ".$name{'id'}.'
';
+ }
}
- }
+ }
- unless ($csec) { $csec=''; }
+ unless ($csec) { $csec=''; }
- $fcat=$ENV{'form.fcat'};
- unless ($fcat) { $fcat=''; }
+ $fcat=$ENV{'form.fcat'};
+ unless ($fcat) { $fcat=''; }
# ------------------------------------------------------------------- Tie hashs
- if ((tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
- &GDBM_READER,0640)) &&
- (tie(%parmhash,'GDBM_File',
- $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) {
+ if ((tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
+ &GDBM_READER,0640)) &&
+ (tie(%parmhash,'GDBM_File',
+ $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) {
# --------------------------------------------------------- Get all assessments
- undef %allkeys;
- undef %allmaps;
- undef %defp;
- map {
+ foreach (keys %bighash) {
if ($_=~/^src\_(\d+)\.(\d+)$/) {
- my $mapid=$1;
- my $resid=$2;
- my $id=$mapid.'.'.$resid;
- my $srcf=$bighash{$_};
- if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
- $ids[$#ids+1]=$id;
- $typep{$id}=$1;
- $keyp{$id}='';
- map {
- if ($_=~/^parameter\_(.*)/) {
- my $key=$_;
- my $allkey=$1;
- $allkey=~s/\_/\./;
- my $display=
- &Apache::lonnet::metadata($srcf,$key.'.display');
- unless ($display) {
- $display=
- &Apache::lonnet::metadata($srcf,$key.'.name');
- }
- $allkeys{$allkey}=$display;
- if ($allkey eq $fcat) {
- $defp{$id}=
- &Apache::lonnet::metadata($srcf,$key);
- }
- if ($keyp{$id}) {
- $keyp{$id}.=','.$key;
- } else {
- $keyp{$id}=$key;
- }
- }
- } split(/\,/,
- &Apache::lonnet::metadata($srcf,'keys'));
- $mapp{$id}=
- &Apache::lonnet::declutter($bighash{'map_id_'.$mapid});
- $allmaps{$mapid}=$mapp{$id};
- $symbp{$id}=$mapp{$id}.
+ my $mapid=$1;
+ my $resid=$2;
+ my $id=$mapid.'.'.$resid;
+ my $srcf=$bighash{$_};
+ if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+ $ids[$#ids+1]=$id;
+ $typep{$id}=$1;
+ $keyp{$id}='';
+ foreach (split(/\,/,
+ &Apache::lonnet::metadata($srcf,'keys'))) {
+ if ($_=~/^parameter\_(.*)/) {
+ my $key=$_;
+ my $allkey=$1;
+ $allkey=~s/\_/\./;
+ my $display=
+ &Apache::lonnet::metadata($srcf,$key.'.display');
+ unless ($display) {
+ $display=
+ &Apache::lonnet::metadata($srcf,$key.'.name');
+ }
+ $allkeys{$allkey}=$display;
+ if ($allkey eq $fcat) {
+ $defp{$id}=
+ &Apache::lonnet::metadata($srcf,$key);
+ }
+ if ($keyp{$id}) {
+ $keyp{$id}.=','.$key;
+ } else {
+ $keyp{$id}=$key;
+ }
+ }
+ }
+ $mapp{$id}=
+ &Apache::lonnet::declutter($bighash{'map_id_'.$mapid});
+ $allmaps{$mapid}=$mapp{$id};
+ $symbp{$id}=$mapp{$id}.
'___'.$resid.'___'.
&Apache::lonnet::declutter($srcf);
- }
+ }
}
- } keys %bighash;
+ }
# ---------------------------------------------------------- Anything to store?
if ($ENV{'form.pres_marker'}) {
- my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
- $spnam=~s/\_([^\_]+)$/\.$1/;
+ my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
+ $spnam=~s/\_([^\_]+)$/\.$1/;
# ---------------------------------------------------------- Construct prefixes
- my $symbparm=$symbp{$sresid}.'.'.$spnam;
- my $mapparm=$mapp{$sresid}.'___(all).'.$spnam;
+ my $symbparm=$symbp{$sresid}.'.'.$spnam;
+ my $mapparm=$mapp{$sresid}.'___(all).'.$spnam;
- my $seclevel=
- $ENV{'request.course.id'}.'.['.
- $csec.'].'.$spnam;
- my $seclevelr=
- $ENV{'request.course.id'}.'.['.
- $csec.'].'.$symbparm;
- my $seclevelm=
- $ENV{'request.course.id'}.'.['.
- $csec.'].'.$mapparm;
-
- my $courselevel=
- $ENV{'request.course.id'}.'.'.$spnam;
- my $courselevelr=
- $ENV{'request.course.id'}.'.'.$symbparm;
- my $courselevelm=
- $ENV{'request.course.id'}.'.'.$mapparm;
-
- my $storeunder='';
- if (($snum==9) || ($snum==3)) { $storeunder=$courselevel; }
- if (($snum==8) || ($snum==2)) { $storeunder=$courselevelm; }
- if (($snum==7) || ($snum==1)) { $storeunder=$courselevelr; }
- if ($snum==6) { $storeunder=$seclevel; }
- if ($snum==5) { $storeunder=$seclevelm; }
- if ($snum==4) { $storeunder=$seclevelr; }
- $storeunder=&Apache::lonnet::escape($storeunder);
-
- my $storecontent=
- $storeunder.'='.&Apache::lonnet::escape($ENV{'form.pres_value'}).'&'.
- $storeunder.'.type='.&Apache::lonnet::escape($ENV{'form.pres_type'});
+ my $seclevel=$ENV{'request.course.id'}.'.['.$csec.'].'.$spnam;
+ my $seclevelr=$ENV{'request.course.id'}.'.['.$csec.'].'.$symbparm;
+ my $seclevelm=$ENV{'request.course.id'}.'.['.$csec.'].'.$mapparm;
+
+ my $courselevel=$ENV{'request.course.id'}.'.'.$spnam;
+ my $courselevelr=$ENV{'request.course.id'}.'.'.$symbparm;
+ my $courselevelm=$ENV{'request.course.id'}.'.'.$mapparm;
+
+ my $storeunder='';
+ if (($snum==9) || ($snum==3)) { $storeunder=$courselevel; }
+ if (($snum==8) || ($snum==2)) { $storeunder=$courselevelm; }
+ if (($snum==7) || ($snum==1)) { $storeunder=$courselevelr; }
+ if ($snum==6) { $storeunder=$seclevel; }
+ if ($snum==5) { $storeunder=$seclevelm; }
+ if ($snum==4) { $storeunder=$seclevelr; }
+ $storeunder=&Apache::lonnet::escape($storeunder);
+
+ my $storecontent=
+ $storeunder.'='.
+ &Apache::lonnet::escape($ENV{'form.pres_value'}).'&'.
+ $storeunder.'.type='.
+ &Apache::lonnet::escape($ENV{'form.pres_type'});
- my $reply='';
- if ($snum>3) {
+ my $reply='';
+ if ($snum>3) {
# ---------------------------------------------------------------- Store Course
#
# Expire sheets
- &Apache::lonnet::expirespread('','','studentcalc');
- if (($snum==7) || ($snum==4)) {
- &Apache::lonnet::expirespread('','','assesscalc',$symbp{$sresid});
- } elsif (($snum==8) || ($snum==5)) {
- &Apache::lonnet::expirespread('','','assesscalc',$mapp{$sresid});
- } else {
- &Apache::lonnet::expirespread('','','assesscalc');
- }
+ &Apache::lonnet::expirespread('','','studentcalc');
+ if (($snum==7) || ($snum==4)) {
+ &Apache::lonnet::expirespread('','','assesscalc',$symbp{$sresid});
+ } elsif (($snum==8) || ($snum==5)) {
+ &Apache::lonnet::expirespread('','','assesscalc',$mapp{$sresid});
+ } else {
+ &Apache::lonnet::expirespread('','','assesscalc');
+ }
# Store parameter
- $reply=&Apache::lonnet::critical('put:'.
- $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
- $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata:'.
- $storecontent,
- $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
- } else {
+ $reply=&Apache::lonnet::critical('put:'.
+ $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
+ $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata:'.
+ $storecontent,
+ $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
+ } else {
# ------------------------------------------------------------------ Store User
#
# Expire sheets
- &Apache::lonnet::expirespread($uname,$udom,'studentcalc');
- if ($snum==1) {
- &Apache::lonnet::expirespread
- ($uname,$udom,'assesscalc',$symbp{$sresid});
- } elsif ($snum==2) {
- &Apache::lonnet::expirespread
- ($uname,$udom,'assesscalc',$mapp{$sresid});
- } else {
- &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
- }
-
+ &Apache::lonnet::expirespread($uname,$udom,'studentcalc');
+ if ($snum==1) {
+ &Apache::lonnet::expirespread
+ ($uname,$udom,'assesscalc',$symbp{$sresid});
+ } elsif ($snum==2) {
+ &Apache::lonnet::expirespread
+ ($uname,$udom,'assesscalc',$mapp{$sresid});
+ } else {
+ &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
+ }
+
# Store parameter
- $reply=
- &Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'.
- $storecontent,$uhome);
+ $reply=
+ &Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'.
+ $storecontent,$uhome);
}
- if ($reply=~/^error\:(.*)/) {
- $message.="Write Error: $1";
- }
+ if ($reply=~/^error\:(.*)/) {
+ $message.="Write Error: $1";
+ }
# ---------------------------------------------------------------- Done storing
}
# -------------------------------------------------------------- Get coursedata
my $reply=&Apache::lonnet::reply('dump:'.
- $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
- $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',
- $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
+ $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
+ $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.':resourcedata',
+ $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
if ($reply!~/^error\:/) {
- map {
- my ($name,$value)=split(/\=/,$_);
- $courseopt{&Apache::lonnet::unescape($name)}=
- &Apache::lonnet::unescape($value);
- } split(/\&/,$reply);
+ foreach (split(/\&/,$reply)) {
+ my ($name,$value)=split(/\=/,$_);
+ $courseopt{&Apache::lonnet::unescape($name)}=
+ &Apache::lonnet::unescape($value);
+ }
}
# --------------------------------------------------- Get userdata (if present)
if ($uname) {
- my $reply=
- &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);
- if ($reply!~/^error\:/) {
- map {
- my ($name,$value)=split(/\=/,$_);
- $useropt{&Apache::lonnet::unescape($name)}=
- &Apache::lonnet::unescape($value);
- } split(/\&/,$reply);
- }
+ my $reply=
+ &Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);
+ if ($reply!~/^error\:/) {
+ foreach (split(/\&/,$reply)) {
+ my ($name,$value)=split(/\=/,$_);
+ $useropt{&Apache::lonnet::unescape($name)}=
+ &Apache::lonnet::unescape($value);
+ }
+ }
}
# ------------------------------------------------------------------- Sort this
- @ids=sort {
- if ($fcat eq '') {
- $a<=>$b;
- } else {
- 1*$outpar[&parmval($fcat,$a,$defp{$a})]<=>
- 1*$outpar[&parmval($fcat,$b,$defp{$b})];
- }
- } @ids;
+ @ids=sort {
+ if ($fcat eq '') {
+ $a<=>$b;
+ } else {
+ 1*$outpar[&parmval($fcat,$a,$defp{$a})]<=>
+ 1*$outpar[&parmval($fcat,$b,$defp{$b})];
+ }
+ } @ids;
# ------------------------------------------------------------------ Start page
- $r->content_type('text/html');
- $r->send_http_header;
+ $r->content_type('text/html');
+ $r->send_http_header;
$r->print(< '.
- $bighash{'title_'.$rid});
- if ($thistitle) {
- $r->print(' ('.$thistitle.')');
- }
- $r->print(' '.
+ $bighash{'title_'.$rid});
+ if ($thistitle) {
+ $r->print(' ('.$thistitle.')');
+ }
+ $r->print(''.$message.'
Sort list by ');
$r->print(' Select Enclosing Map Select Enclosing Map Select Parameter Select Parameter
'
- );
- if (($pscat) || ($pschp) || ($pssymb)) {
+ }
+ $r->print('
');
+ if (($pscat) || ($pschp) || ($pssymb)) {
# ----------------------------------------------------------------- Start Table
- my $catmarker='parameter_'.$pscat;
- $catmarker=~s/\./\_/g;
- my $coursespan=$csec?8:5;
- my $csuname=$ENV{'user.name'};
- my $csudom=$ENV{'user.domain'};
- $r->print(<
');
- }
+ }
+ }
+ $r->print('');
+ }
$r->print('
Any User
ENDTABLEHEAD
- if ($uname) {
- $r->print("User $uname at Domain $udom ");
- }
- $r->print(<User $uname at Domain $udom ");
+ }
+ $r->print(<Current Session Value
($csuname at $csudom) ');
+ my $defbgone='';
+ my $defbgtwo='';
+ foreach (@ids) {
+ my $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"';
- } else {
- $defbgone='"E0E099"';
- }
- if ($defbgtwo eq '"FFFF99"') {
- $defbgtwo='"FFFFDD"';
- } else {
- $defbgtwo='"FFFF99"';
- }
- @outpar=();
- my $thistitle='';
- my %name= ();
- undef %name;
- my %part= ();
- my %display=();
- my %type= ();
- my %default=();
- my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
-
- map {
- if (($_ eq $catmarker) || ($pscat eq 'all')) {
- $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
- $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
- $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
- unless ($display{$_}) { $display{$_}=''; }
- $display{$_}.=' ('.$name{$_}.')';
- $default{$_}=&Apache::lonnet::metadata($uri,$_);
- $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
- $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
- }
- } split(/\,/,$keyp{$rid});
-
- my $totalparms=scalar keys %name;
- if ($totalparms>0) {
- my $firstrow=1;
- $r->print('
Resource Level
in Course
ENDTABLETWO
- if ($csec) {
- $r->print("in Section/Group $csec ");
- }
- $r->print(<in Section/Group $csec ");
+ }
+ $r->print(< ');
- my $defbgone='';
- my $defbgtwo='';
- map {
- my $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}))) {
+ if ($csec) {
+ $r->print('Assessment URL and Title Type
Enclosing Map Part No. Parameter Name
default from Enclosing Map
general for Enclosing Map for Resource
ENDTABLEHEADFOUR
- if ($csec) {
- $r->print('general for Enclosing Map for Resource ');
- }
- if ($uname) {
- $r->print('general for Enclosing Map for Resource ');
- }
- $r->print('general for Enclosing Map for Resource ');
+ }
+ if ($uname) {
+ $r->print('general for Enclosing Map for Resource ');
+ }
+ $r->print(''.
- join(' / ',split(/\//,$uri)).
- ' ');
- $r->print(''.$typep{$rid}.' ');
- $r->print(''.
- join(' / ',split(/\//,$mapp{$rid})).' ');
- map {
- my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
- unless ($firstrow) {
- $r->print('');
- } else {
- $firstrow=0;
- }
- $r->print(" ");
- } sort keys %name;
- }
+ if ($defbgone eq '"E0E099"') {
+ $defbgone='"E0E0DD"';
+ } else {
+ $defbgone='"E0E099"';
+ }
+ if ($defbgtwo eq '"FFFF99"') {
+ $defbgtwo='"FFFFDD"';
+ } else {
+ $defbgtwo='"FFFF99"';
+ }
+ @outpar=();
+ my $thistitle='';
+ my %name= ();
+ undef %name;
+ my %part= ();
+ my %display=();
+ my %type= ();
+ my %default=();
+ my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
+
+ foreach (split(/\,/,$keyp{$rid})) {
+ if (($_ eq $catmarker) || ($pscat eq 'all')) {
+ $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
+ $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
+ $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
+ unless ($display{$_}) { $display{$_}=''; }
+ $display{$_}.=' ('.$name{$_}.')';
+ $default{$_}=&Apache::lonnet::metadata($uri,$_);
+ $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
+ $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
+ }
+ }
+ my $totalparms=scalar keys %name;
+ if ($totalparms>0) {
+ my $firstrow=1;
+ $r->print('$part{$_} $display{$_} ");
- my $thismarker=$_;
- $thismarker=~s/^parameter\_//;
- my $mprefix=$rid.'&'.$thismarker.'&';
-
- $r->print(''.
- &valout($outpar[11],$type{$_}).' ');
- $r->print(''.
- &valout($outpar[10],$type{$_}).' ');
-
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
- 'parmform.pres','psub').' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
- 'parmform.pres','psub').' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
- 'parmform.pres','psub').' ');
-
- if ($csec) {
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
- 'parmform.pres','psub').' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
- 'parmform.pres','psub').' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
- 'parmform.pres','psub').' ');
- }
-
- if ($uname) {
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
- 'parmform.pres','psub').' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
- 'parmform.pres','psub').' ');
- $r->print(''.
- &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
- 'parmform.pres','psub').' ');
- }
- $r->print(
- ''.&valout($outpar[$result],$type{$_}).' ');
- my $sessionval=&Apache::lonnet::EXT('resource.'.$part{$_}.
- '.'.$name{$_},$mapp{$rid}.'___'.$inmapid.'___'.$uri);
- if (($type{$_}=~/^date/) && ($sessionval))
- { $sessionval=localtime($sessionval); }
- $r->print(
- ''.$sessionval.' '.
- ' ');
- $r->print("'.
+ join(' / ',split(/\//,$uri)).
+ ' ');
+ $r->print(''.$typep{$rid}.' ');
+ $r->print(''.
+ join(' / ',split(/\//,$mapp{$rid})).' ');
+ foreach (sort keys %name) {
+ my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
+ unless ($firstrow) {
+ $r->print('');
+ } else {
+ $firstrow=0;
+ }
+ $r->print(" ");
+ }
+ }
# -------------------------------------------------- End entry for one resource
- }
- } @ids;
- $r->print('$part{$_} $display{$_} ");
+ my $thismarker=$_;
+ $thismarker=~s/^parameter\_//;
+ my $mprefix=$rid.'&'.$thismarker.'&';
+
+ $r->print(''.
+ &valout($outpar[11],$type{$_}).' ');
+ $r->print(''.
+ &valout($outpar[10],$type{$_}).' ');
+
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[9],$mprefix.'9',
+ 'parmform.pres','psub').' ');
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[8],$mprefix.'8',
+ 'parmform.pres','psub').' ');
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[7],$mprefix.'7',
+ 'parmform.pres','psub').' ');
+
+ if ($csec) {
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[6],$mprefix.'6',
+ 'parmform.pres','psub').' ');
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[5],$mprefix.'5',
+ 'parmform.pres','psub').' ');
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[4],$mprefix.'4',
+ 'parmform.pres','psub').' ');
+ }
+
+ if ($uname) {
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[3],$mprefix.'3',
+ 'parmform.pres','psub').' ');
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[2],$mprefix.'2',
+ 'parmform.pres','psub').' ');
+ $r->print(''.
+ &plink($type{$_},$display{$_},$outpar[1],$mprefix.'1',
+ 'parmform.pres','psub').' ');
+ }
+ $r->print(''.&valout($outpar[$result],$type{$_}).' ');
+ my $sessionval=&Apache::lonnet::EXT('resource.'.$part{$_}.
+ '.'.$name{$_},$mapp{$rid}.'___'.$inmapid.'___'.$uri);
+ if (($type{$_}=~/^date/) && ($sessionval))
+ { $sessionval=localtime($sessionval); }
+ $r->print(''.$sessionval.' '.
+ ' ');
+ $r->print("