V.S.A. III

@@ -124,8 +124,11 @@
 
 #left {
        float: left;
-       width: 200px;
+       width: 198px;
+       margin-left: 2px;
        overflow: hidden;
+       color: #000000;
+       background-color: #ccffff;
 }
 
 #center {
@@ -137,8 +140,11 @@
 
 #right {
        float: right;
-       width: 200px;
+       width: 198px;
+       margin-right: 2px;
        overflow: hidden;
+       color: #000000;
+       background-color: #ccffff;
 }
 
 .indent {

@@ -1,4 +1,11 @@
 <div id="listuser_center">
+[% IF resultmessage -%]
+<div id="resultmessage">
+<h1>結果</h1>
+<div id="resultmessage_contents">[% resultmessage %]</div>
+<hr />
+</div>
+[% END -%]
 <h1>ユーザリスト</h1>
 
 <button id="searchuser_button">検索</button>

@@ -18,6 +18,8 @@
                StackTrace
                /;
 
+use Digest::SHA;
+
 our $VERSION = '0.01';
 
 #

sub registuser : Local {
(...略...)
        # form からのパラメータの取得
        foreach my $k ( qw/user_email user_name user_surname/ ){
                $data{$k} = $c->req->param( $k );
        }

        $data{'user_password'} = 
            Digest::SHA::sha1_hex( $c->req->param( 'user_password' ) );

       $data{user_email} =~ tr/A-Z/a-z/;

(...略...)
        if( $dg = $c->model('SecureSBMDB::Role')
                                  ->find( {role_name => $defaultgroup} ) ){

                $dg = $c->model('SecureSBMDB::Role')
                                 ->find_or_create( {role_name => 'public'} );
(...略...)

                if( $c->model('SecureSBMDB::User')
                                  ->find({user_email => $useremail}) ){
                # 新規であれば登録 (create)
                }elsif( $user = $c->model('SecureSBMDB::User')
                                     ->create(\%data) ){

                        if( $c->model('SecureSBMDB::UserRole')
                                   ->create(\%user_roles) ){
                        成功
                       }else{
                         失敗
                       }

                # 登録失敗
                }else{
                        $resultmessage .= "<p>ユーザ(E-mail)["
                                . $useremail
                                . "]の登録に失敗しました．</p>";
                }
        }

        $c->stash->{resultmessage} = $resultmessage;

        $c->forward('listusers');

} # end of registuser()