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

Revision 19985, 1.9 kB (checked in by hoge1e3, 6 years ago)

初期インポート。

Line 
1package view;
2
3use strict;
4use Obj;
5use HtmlTag;
6use Tmpl;
7use JSON2;
8
9my $id=&Arguments::getURLArgs;
10if (not $id) {$id="desktop";}
11&disp($id);
12sub disp {
13  my $res=&Obj::exe(["FINDREL",$id,"category",any]);
14  for (@{$res}) {
15     my $cat=$_->{val};
16         if ($cat eq 'html') {
17                &Html::header;
18                my $c=&Obj::exe(["FINDREL",$id,"content",any]);
19                if (@{$c}>0) {
20                        print $c->[0]->{val};
21                        exit;
22                }
23         }
24  }
25  my $scr=<<'EOF';
26JsonScript.registerAction("DELREL",function (obj,name,val,td,table) {
27      $(table).firstChild/*tbody*/.removeChild($(td));
28      var id=""+new Date();
29    try{ 
30      elem( $(table).firstChild,
31         ["tr",
32           ["td",
33             ["input",{type:"text", id:id+"name", value:name}]
34           ],
35           ["td",
36             ["input",{type:"text", id:id+"val", value:val}]
37           ],
38           ["td",
39             ["button",{
40                id:id+"button",
41                onclick:function () {
42                    print (
43                       (id+"name")+
44                       (id+"val") );
45                }
46             },"Add"]
47           ]
48         ]
49      ); } catch(e) {alert(e);}
50//   });
51});
52EOF
53  &Html::header;
54  &Tmpl::page({title=>$id,script=>$scr},[span(id=>"top"),
55     [strong(id=>"head"),img(src=>"img/obj.png"),"$id"],
56     [table(id=>$id),sub {
57       my $p=shift;
58       my $res=&Obj::exe(["FINDREL",$id,any,any]);       
59       for (@$res) {
60          my $action=toJSON(
61             ["DELREL", $_->{obj},$_->{name},$_->{val}, $_->{t},$id ]
62          );
63          my $kms=toJSON(["KMS",$_->{obj}]);
64          $p->p([&tr(id=>$_->{t}),
65                [td,$_->{name}] ,
66                [td,&Tmpl::link2obj($_->{val})],
67                [td,
68                   [button(
69                           onClick=>qq(JsonScript.exec($action))
70                          ) ,"Forget"],
71                   [button(onClick=>qq(JsonScript.exec($kms)) ),"View"]
72                ]
73             ]);
74       }
75     }]
76   ]);
77}
781;
Note: See TracBrowser for help on using the browser.