root/lang/javascript/nohada/perl/view.pm @ 19985

package view;

use strict;
use Obj;
use HtmlTag;
use Tmpl;
use JSON2;

my $id=&Arguments::getURLArgs;
if (not $id) {$id="desktop";}
&disp($id);
sub disp {
  my $res=&Obj::exe(["FINDREL",$id,"category",any]);
  for (@{$res}) {
     my $cat=$_->{val};
         if ($cat eq 'html') {
                &Html::header;
                my $c=&Obj::exe(["FINDREL",$id,"content",any]);
                if (@{$c}>0) {
                        print $c->[0]->{val};
                        exit;
                }
         }
  }
  my $scr=<<'EOF';
JsonScript.registerAction("DELREL",function (obj,name,val,td,table) {
      $(table).firstChild/*tbody*/.removeChild($(td)); 
      var id=""+new Date(); 
    try{  
      elem( $(table).firstChild, 
         ["tr",
           ["td",
             ["input",{type:"text", id:id+"name", value:name}]
           ],
           ["td",
             ["input",{type:"text", id:id+"val", value:val}]
           ],
           ["td",
             ["button",{
                id:id+"button", 
                onclick:function () {
                    print (
                       (id+"name")+
                       (id+"val") );
                }
             },"Add"]
           ]
         ]
      ); } catch(e) {alert(e);}
//   });
});
EOF
  &Html::header;
  &Tmpl::page({title=>$id,script=>$scr},[span(id=>"top"),
     [strong(id=>"head"),img(src=>"img/obj.png"),"$id"],
     [table(id=>$id),sub {
       my $p=shift;
       my $res=&Obj::exe(["FINDREL",$id,any,any]);       
       for (@$res) {
          my $action=toJSON(
             ["DELREL", $_->{obj},$_->{name},$_->{val}, $_->{t},$id ]
          );
          my $kms=toJSON(["KMS",$_->{obj}]);
          $p->p([&tr(id=>$_->{t}),
                [td,$_->{name}] ,
                [td,&Tmpl::link2obj($_->{val})],
                [td,
                   [button(
                           onClick=>qq(JsonScript.exec($action)) 
                          ) ,"Forget"],
                   [button(onClick=>qq(JsonScript.exec($kms)) ),"View"]
                ]
             ]);
       }
     }]
   ]);
}
1;