Changeset 16774 for lang/actionscript

Timestamp:

07/28/08 22:39:13 (4 months ago)

Author:

hoge1e3

Message:

 

Location:

lang/actionscript/todoshare

Files:

• perl/Session.pm (modified) (1 diff)
• todo.cgi (modified) (2 diffs)

lang/actionscript/todoshare/perl/Session.pm

@@ -25 +25 @@
 }
 sub getRole {$role;}
+sub setRole {$role=$_[0];}
 1;
 

lang/actionscript/todoshare/todo.cgi

@@ -10 +10 @@
 use HtmlTag;
 use JSON;
+use Session;
 use CGI::Carp qw(fatalsToBrowser);
 
@@ -18 +19 @@
 my $in=&ReadParse;
 my $str_js=$in->{cmd};
+my $role=$in->{role};
+if ($role) { &Session::setRole($role); }
 my $br=["br","\n"];
 my $script="todo.cgi";