--- loncom/interface/lonparmset.pm 2001/03/24 15:36:47 1.27
+++ loncom/interface/lonparmset.pm 2001/05/10 01:06:06 1.29
@@ -11,7 +11,7 @@
#
# 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 Gerd Kortemeyer
package Apache::lonparmset;
@@ -186,7 +186,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];
@@ -401,10 +415,11 @@ 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;
@@ -472,8 +487,12 @@ at Domain
-
+
ENDHEAD
+ if ($ENV{'form.url'}) {
+ $r->print('');
+ }
map {
$r->print('');
@@ -493,7 +512,8 @@ ENDHEAD
$r->print('');
map {
$r->print('');
} keys %allmaps;
$r->print(
@@ -505,8 +525,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;
@@ -544,7 +565,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"';