--- loncom/interface/lonparmset.pm 2001/03/26 22:28:37 1.28
+++ 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,03/24,03/26 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];
@@ -473,8 +487,12 @@ at Domain
-
+
ENDHEAD
+ if ($ENV{'form.url'}) {
+ $r->print('');
+ }
map {
$r->print('');
@@ -494,7 +512,8 @@ ENDHEAD
$r->print('');
map {
$r->print('');
} keys %allmaps;
$r->print(
@@ -506,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;
@@ -545,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"';