Changeset 18180 for lang/actionscript/todoshare/perl/Obj.pm

Timestamp:

08/24/08 18:17:29 (5 months ago)

Author:

hoge1e3

Message:

 

Files:

• lang/actionscript/todoshare/perl/Obj.pm (modified) (2 diffs)

lang/actionscript/todoshare/perl/Obj.pm

@@ -34 +34 @@
       $prefix=~ tr/A-Z/a-z/;
   } else {$prefix="";}
-  $prefix. time ;
+  $prefix. &now ;
+}
+sub now {
+   my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst )  = 
+       localtime ( time )  ;
+   $year-=100; 
+   $mon++;
+   sprintf("%02d%02d%02d_%02d%02d%02d",$year,$mon,$mday , $hour,$min,$sec );   
 }
 sub setUTF {
@@ -187 +194 @@
                    ]);
                 }
-                return ["OK"];
+                return ["OK",$properties->{$idNameOvr}];
             }
             # insert