Changeset 16772 for lang/actionscript

Timestamp:

07/28/08 22:36:18 (4 months ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• .actionScriptProperties (modified) (1 diff)
• TodoShare.as (modified) (1 diff)
• core/JsonScript.as (added)
• core/JsonScriptAction.as (added)
• perl/Obj.pm (modified) (4 diffs)
• perl/Session.pm (modified) (1 diff)

lang/actionscript/todoshare/.actionScriptProperties

@@ -6 +6 @@
 <libraryPathEntry kind="4" path="">
 <excludedEntries>
+<libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/automation.swc" useDefaultLinkType="false"/>
 <libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/automation_agent.swc" useDefaultLinkType="false"/>
-<libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/automation.swc" useDefaultLinkType="false"/>
 <libraryPathEntry kind="1" linkType="1" path="${PROJECT_FRAMEWORKS}/locale/{locale}"/>
 <libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/automation_flashflexkit.swc" useDefaultLinkType="false"/>
 <libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/qtp.swc" useDefaultLinkType="false"/>
+<libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/rpc.swc" useDefaultLinkType="false"/>
 <libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/charts.swc" useDefaultLinkType="false"/>
-<libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/rpc.swc" useDefaultLinkType="false"/>
+<libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/datavisualization.swc" useDefaultLinkType="false"/>
 <libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/automation_charts.swc" useDefaultLinkType="false"/>
-<libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/datavisualization.swc" useDefaultLinkType="false"/>
 <libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/automation_dmv.swc" useDefaultLinkType="false"/>
 <libraryPathEntry kind="3" linkType="1" path="${PROJECT_FRAMEWORKS}/libs/framework.swc" useDefaultLinkType="false"/>

lang/actionscript/todoshare/TodoShare.as

@@ -63 +63 @@
                                    }
                         ); 
+                        var f:Function=function() {
+                                var a:Array=arguments;
+                                
+                                return this;
+                        }
                         load();
                         //throw new Error(JSON.decode('{"a":"3", "b":"5"}'));

lang/actionscript/todoshare/perl/Obj.pm

@@ -229 +229 @@
                    &escapeSymbol($_).".name=".&escapeLiteral($_)
                 );
+                push @{$wheres}, &whereElem ("$_.role",&Session::getRole);             
               }
            }
@@ -238 +239 @@
               }
            }
-           
            $query .= "\n where ";
            $query .= join " and \n", @{$wheres}   ;
@@ -292 +292 @@
                  &escapeSymbol($_).".name=".&escapeLiteral($_)
               );
+              push @{$wheres}, &whereElem ("$_.role",&Session::getRole);               
            }
            while (my ($k,$v)=each %{$tmpl}) {
@@ -360 +361 @@
             $where->{name}= $cmd->[2] if ($cmd->[2] and not &isAny($cmd->[2]));
             $where->{val} = $cmd->[3] if ($cmd->[3] and not &isAny($cmd->[3]));
+            $where->{role}=&Session::getRole;
             return &exe(["GET", {
                     from=> $relName,

lang/actionscript/todoshare/perl/Session.pm

@@ -10 +10 @@
        localtime ( time )  ;
    $year-=100; 
+   $mon++;
    sprintf("%02d%02d%02d-%02d%02d%02d",$year,$mon,$mday , $hour,$min,$sec );   
 }