<perl>
$my_db="options";
$my_url="http://klezocker.de/baseportal/opttest";

 put ["opt",$_put{opts}],$my_db;
}elsif ( $formcmd eq "send change" ){
 mod "Id==!$edit_id",["opt",$_put{opts}],$my_db;
 $formcmd="";
}elsif ( $formcmd eq "makefile" ){
 get "ref<>1 sort=Id",$my_db;
 $frec=1;
 while ( get_next ($my_db) ){
  $opt=~s/\n/;/g;
  unless ( $frec ){ out "\x0D\x0A"; }else{ $frec=0; }
  out "$Id|$opt";
 }
 $formcmd="nothing";
}

if ($formcmd eq "send" or $formcmd eq "new"){
 get "ref==1",$my_db;
 @options=split /\n/,$opt;
 out <<EOF;
 new entry:<br>
 <form action="$my_url?htx=$htx" method="post" enctype="multipart/form-data">
 <input type=hidden name="htx=" value="$htx">
EOF
 out "<select name='opts:=' size='".scalar(@options)."' multiple>";
 for $i (@options){
  out "<option>$i</option>";
 }
 out <<EOF;
 </select><br><br><input type="submit" name="formcmd=" value="send">&nbsp;&nbsp;&nbsp;<input type="submit" name="formcmd=" value="show records" onClick="self.location.href='$my_url?htx=$htx'">
 </form>
EOF
}elsif ( $formcmd eq "" or $formcmd eq "show records" ){
 get "ref<>1",$my_db;
 out "<table rules=all cellpadding=3>";
 while ( get_next ($my_db) ){
 $opt=~s/\n/; /g;
 out "<tr><td><a href='$my_url?htx=$htx&formcmd=edit&cid=$Id'>edit</a></td><td>$opt</td></tr>";
 }
 out "</table><br>";
 out "<input type='submit' name='formcmd=' value='new' onClick=\"self.location.href='$my_url?htx=$htx&formcmd=new'\">&nbsp;&nbsp;&nbsp;<input type='submit' name='formcmd=' value='make cmd-file' onClick=\"self.location.href='$my_url?htx=$htx&formcmd=makefile'\">";
}elsif ( $formcmd eq "edit" or $formcmd eq "send change" ){
 get "ref==1",$my_db;
 @options=split /\n/,$opt;
 get "Id==!$cid",$my_db;
 $opt.="\n";
 out <<EOF;
 edit record:<br>
 <form action="$my_url?htx=$htx" method="post" enctype="multipart/form-data">
 <input type=hidden name="htx=" value="$htx">
 <input type=hidden name="edit_id=" value="$Id">
EOF
 out "<select name='opts:=' size='".scalar(@options)."' multiple>";
 for $i (@options){
  if ( $opt=~/$i\n/ ){
   out "<option selected>$i</option>";
  }else{
   out "<option>$i</option>";
  }
 }
 out <<EOF;
 </select><br><br><input type="submit" name="formcmd=" value="send change">&nbsp;&nbsp;&nbsp;<input type="submit" name="formcmd=" value="show records" onClick="self.location.href='$my_url?htx=$htx'">
 </form>
EOF
}
</perl>
<h2>access over &ltdo action=all&gt :</h2>
<do action=all db=options>