--- loncom/interface/lonparmset.pm	2000/11/27 15:12:42	1.14
+++ loncom/interface/lonparmset.pm	2000/11/28 02:53:40	1.16
@@ -17,7 +17,6 @@ use strict;
 use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);
 use GDBM_File;
-use Apache::lonmeta;
 
 
 my %courseopt;
@@ -31,6 +30,9 @@ my @ids;
 my %symbp;
 my %mapp;
 my %typep;
+my %keyp;
+
+my %allkeys;
 
 my $uname;
 my $udom;
@@ -127,7 +129,7 @@ sub bycat {
     if ($fcat eq '') {
         $a<=>$b;
     } else {
-        &parmval('0.'.$fcat,$a)<=>&parmval('0.'.$fcat,$b);
+        &parmval($fcat,$a)<=>&parmval($fcat,$b);
     }
 }
 
@@ -229,25 +231,50 @@ sub handler {
            $ENV{'request.course.fn'}.'_parms.db',&GDBM_READER,0640))) {
 
 # --------------------------------------------------------- Get all assessments
+	%allkeys=();
+
         map {
 	    if ($_=~/^src\_(\d+)\.(\d+)$/) {
 	       my $mapid=$1;
                my $resid=$2;
                my $id=$mapid.'.'.$resid;
-               if ($bighash{$_}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+               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;
+                          my $display=
+			      &Apache::lonnet::metadata($srcf,$key.'.display');
+                          unless ($display) {
+                              $display=
+			         &Apache::lonnet::metadata($srcf,$key.'.name');
+                          }
+                          $allkeys{$allkey}=$display;
+                          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});
                    $symbp{$id}=$mapp{$id}.
 			'___'.$resid.'___'.
-			    &Apache::lonnet::declutter($bighash{$_});
+			    &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/\_/\./;
+# ---------------------------------------------------------- Construct prefixes
 
        my $symbparm=$symbp{$sresid}.'.'.$spnam;
        my $mapparm=$mapp{$sresid}.'___(all).'.$spnam;
@@ -276,19 +303,32 @@ sub handler {
        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'});
 
-
-           $message.="<h1>Storing $ENV{'form.pres_value'} type $ENV{'form.pres_type'} under $ENV{'form.pres_marker'} in $storeunder</h1>";
-
-
-# ---------------------------------------------------------- Construct prefixes
+       my $reply='';
            if ($snum>3) {
 # ---------------------------------------------------------------- Store Course
+            $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
-           } 
-        }
+            $reply=
+            &Apache::lonnet::critical('put:'.$udom.':'.$uname.':resourcedata:'.
+             $storecontent,$uhome);
+           }
 
+         if ($reply=~/^error\:(.*)/) {
+	     $message.="<h3><font color=red>Write Error: $1</font></h3>";
+	 }
+# ---------------------------------------------------------------- Done storing
+   }
 # -------------------------------------------------------------- Get coursedata
         my $reply=&Apache::lonnet::reply('dump:'.
               $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.':'.
@@ -297,7 +337,8 @@ sub handler {
         if ($reply!~/^error\:/) {
            map {
              my ($name,$value)=split(/\=/,$_);
-             $courseopt{unescape($name)}=unescape($value);  
+             $courseopt{&Apache::lonnet::unescape($name)}=
+                        &Apache::lonnet::unescape($value);  
            } split(/\&/,$reply);
         }
 # --------------------------------------------------- Get userdata (if present)
@@ -307,7 +348,8 @@ sub handler {
            if ($reply!~/^error\:/) {
               map {
                 my ($name,$value)=split(/\=/,$_);
-                $useropt{unescape($name)}=unescape($value);  
+                $useropt{&Apache::lonnet::unescape($name)}=
+                         &Apache::lonnet::unescape($value);
               } split(/\&/,$reply);
            }
         }
@@ -375,13 +417,12 @@ ENDHEAD
 	
         $r->print($message.'<p>Sort list by ');
 	$r->print('<select name="fcat" onChange="this.form.submit();">');
-        my $k;
-        my @sopt=('map','Map','name','Problem Name','deadline','Deadline');
-        for ($k=0;$k<$#sopt;$k=$k+2) {
-	    $r->print('<option value="'.$sopt[$k].'"');
-            if ($fcat eq $sopt[$k]) { $r->print(' selected'); }
-            $r->print('>'.$sopt[$k+1].'</option>');
-        }
+        $r->print('<option value="">Enclosing Map</option>');
+        map {
+	    $r->print('<option value="'.$_.'"');
+            if ($fcat eq $_) { $r->print(' selected'); }
+            $r->print('>'.$allkeys{$_}.'</option>');
+        } keys %allkeys;
         $r->print('</select>');
 # ----------------------------------------------------------------- Start Table
         my $coursespan=$csec?8:5;
@@ -419,34 +460,28 @@ ENDTABLEHEADFOUR
 	    @outpar=();
             my $rid=$_;
             my $thistitle='';
-            my %name=   ('0_deadline' => 'deadline');
-            my %part=   ('0_deadline' => '0');
-	    my %display=('0_deadline' => 'Deadline');
-	    my %type=   ('0_deadline' => 'date_end');
-            my %default=('0_deadline' => time);
-            my %metadata=&Apache::lonmeta::unpackagemeta(
-&Apache::lonnet::getfile('/home/httpd/html/'.$bighash{'src_'.$rid}.'.meta'),1);
+            my %name=   ();
+            my %part=   ();
+	    my %display=();
+	    my %type=   ();
+            my %default=();
+            my $uri=&Apache::lonnet::declutter($bighash{'src_'.$rid});
+
             map {
-                if ($_=~/^parameter\_(\d+)\_(\w+)$/) {
-                    my $hashid=$1.'_'.$2;
-		    $part{$hashid}=$1;
-                    $name{$hashid}=$2;
-                    my $tdef;
-                    ($tdef,$display{$hashid})=
-			split(/\_\_dis\_\_/,$metadata{$_});
-		    ($type{$hashid},$default{$hashid})=split(/\:/,$tdef);
-                    unless ($display{$hashid}) {
-                        $display{$hashid}=$name{$hashid};
-                    }
-                }
-                if ($_ eq 'title') {
-		    $thistitle=$metadata{$_};
-                }
-            } keys %metadata;
+		$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,$_.'.default');
+                $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
+                $thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
+            } split(/\,/,$keyp{$rid});
+
 	    my $totalparms=scalar keys %name;
             $r->print('<td rowspan='.$totalparms.'><tt><font size=-1>'.
-  join(' / ',split(/\//,&Apache::lonnet::declutter($bighash{'src_'.$rid}))).
-           '</font></tt><p><b>'.
+                join(' / ',split(/\//,$uri)).
+                '</font></tt><p><b>'.
                       $bighash{'title_'.$rid});
             if ($thistitle) {
 		$r->print(' ('.$thistitle.')');
@@ -459,8 +494,10 @@ ENDTABLEHEADFOUR
 
 	       my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
 
-               $r->print("<td>$part{$_}</td><td>$display{$_}</td>"); 
-               my $mprefix=$rid.'&'.$_.'&';
+               $r->print("<td>$part{$_}</td><td>$display{$_}</td>");
+               my $thismarker=$_;
+               $thismarker=~s/^parameter\_//; 
+               my $mprefix=$rid.'&'.$thismarker.'&';
 
                $r->print('<td'.(($result==11)?' bgcolor="#AAFFAA"':'').'>'.
              &valout($outpar[11],$type{$_}).'</td>');