sub getBase {local($To,$nom,$val,$OUT) = @_; 
 local($k); 
 @wwEnr = (); &resLire("User");
  local %T1 = (); local($x1); 
  local $In = ''; if (&wsFile("read","Ctc","","Num",\$In)!=0) {return 100}; local $x = $In; 
 while($x ne "") {
  $x = substr($x,1); $x1 = "ws".substr($x,0,index($x,",")); $x = substr($x,index($x,"/"));
  if (!(defined $T1{$x1})) {$T1{$x1} = 0}; $T1{$x1}++;
 } 
 for($k=0;$k<scalar(@wwEnr);$k++) {
  if (defined $T1{"ws".$wwEnr[$k]{"resOwner"}}) {$wwEnr[$k]{"resCtc"} = (($T1{"ws".$wwEnr[$k]{"resOwner"}}<4)?$T1{"ws".$wwEnr[$k]{"resOwner"}}.'':"4")} else {$wwEnr[$k]{"resCtc"} = "0"}
 }
  $$OUT .= "var tR=[]; var iR=0;\n";
 for($k=0;$k<scalar(@wwEnr);$k++) {
 if ($wwEnr[$k]{"resVData"} ne "") {
  $$OUT .= "tR[iR++]=\"".$wwEnr[$k]{"resCtc"};
  $$OUT .= $wwEnr[$k]{"resOwner"}.((length($wwEnr[$k]{"resOwner"})==4)?" ":"");
  $$OUT .= $wwEnr[$k]{"resError"};
  $$OUT .= (($wwEnr[$k]{"resVDate"} eq "")?substr($wwEnr[$k]{"/#T"},2):$wwEnr[$k]{"resVDate"}).$wwEnr[$k]{"resVData"}."";
  if ( (index((($To eq "Admin")?"345":"4"),$wwEnr[$k]{"resError"})!=-1) && (index($wwNum,","."User".$wwEnr[$k]{"resOwner"}.",")!=-1) ) {$$OUT .= ";".$wwEnr[$k]{"resVMail"}};
  $$OUT .= "\";\n";
 }}
 if ($val eq "") {
  $$OUT .= "window.parent.charge.tR = tR;\n";
  $$OUT .= "window.parent.de.Ltexte.ctInit0 = 1;\n";
 }
 return 0;
}

function getBase(To,nom,val,OUT) { 
 var k; 
 wwEnr = Array(); resLire("User");
  var T1 = []; var x1; 
  var In = Array(''); if (wsFile("read","Ctc","","Num",In)!=0) {return 100}; var x = In[0]; 
 while(x!="") {
  x = x.substr(1); x1 = "ws"+x.substr(0,x.indexOf(",")); x = x.substr(x.indexOf("/"));
  if (typeof(T1[x1])=="undefined") {T1[x1] = 0}; T1[x1]++;
 } 
 for(k=0;k<wwEnr.length;k++) {
  if (typeof(T1["ws"+wwEnr[k]["resOwner"]])!="undefined") {wwEnr[k]["resCtc"] = ((T1["ws"+wwEnr[k]["resOwner"]]<4)?T1["ws"+wwEnr[k]["resOwner"]].toString():"4")} else {wwEnr[k]["resCtc"] = "0"}
 }
  OUT[0] += "var tR=[]; var iR=0;\n";
 for(k=0;k<wwEnr.length;k++) {
 if (wwEnr[k]["resVData"]!="") {
  OUT[0] += "tR[iR++]=\""+wwEnr[k]["resCtc"];
  OUT[0] += wwEnr[k]["resOwner"]+((wwEnr[k]["resOwner"].length==4)?" ":"");
  OUT[0] += wwEnr[k]["resError"];
  OUT[0] += ((wwEnr[k]["resVDate"]=="")?wwEnr[k]["/#T"].substr(2):wwEnr[k]["resVDate"])+wwEnr[k]["resVData"]+"";
  if ( (((To=="Admin")?"345":"4").indexOf(wwEnr[k]["resError"])!=-1) && (wwNum[0].indexOf(","+"User"+wwEnr[k]["resOwner"]+",")!=-1) ) {OUT[0] += ";"+wwEnr[k]["resVMail"]};
  OUT[0] += "\";\n";
 }}
 if (val=="") {
  OUT[0] += "window.parent.charge.tR = tR;\n";
  OUT[0] += "window.parent.de.Ltexte.ctInit0 = 1;\n";
 }
 return 0;
}