検索フォームの作り方。

<form class="form-horizontal" method="post"> <div class="form-group"> <label for="number" class="control-label col-xs-4">年月</label> <div class="col-xs-3"> <select class="form-control" id="number" name="yyyymm"> <option value="">選択してください</option> <option value="201805">201805</option> </select></div></div></form>

2018-06-14

エントリを使う処理の書き方

sub capture_entry :Chained('/') :PathPart('') :CaptureArgs(1) { my ( $self, $c, $entry_id ) = @_; if (my $entry = $c->model('DB::Hoge')->find($entry_id)) { $c->stash->{entry} = $entry; } else { $c->stash->{template} = 'not_found.tt'; } } s…

2018-06-13

Bootstrap

Bootstrapを使うときのおまじない。 <html lang="ja"> <head> <meta charset="utf-8"> <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"> </meta></meta></head></html>

2018-06-12

参照について

このあたりの基礎がまだまだ定着していないと痛感。参照とデータ構造

2018-06-11

2018/06/11

Caught exception in Hoge::Controller::Root->signup "Can't open '' for input: ãã®ã‚ˆã†ãªãƒ•ã‚¡ã‚¤ãƒ«ã‚„ãƒ‡ã‚£ãƒ¬ã‚¯ãƒˆãƒªã¯ã‚ã‚Šã¾ã›ã‚“ at /usr/local/lib64/perl5/YAML/XS.pm line 46."上記エラーの原因が判明。 __PACKAGE__->config( "Plugin::Con…

2018-06-08

Can't locate Catalyst/Plugin/FormValidator/Simple.pm in @INC (@INC contains: /home/xxx/xxxxxx/script/../lib /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share…

2018-06-07

検索機能を実装する際のコードの書き方について

検索機能を実装した当初、年月・部署・名前を全て指定しないと正常に検索結果が表示されなかった。いずれかの項目が入力されなかった場合でも、条件一致するテーブルを表示させるために下記のようなコードを書いた。 sub kikaito :Local { my ( $self, $c )…

2018-06-06

プルダウンと返り値

<form> 月: <select name="month"> <option value="選択してください">選択してください</option> <option value="2018/05">2018/05</option> <option value="2018/06">2018/06</option> <option value="2018/07">2018/07</option> <option value="2018/08">2018/08</option> <option value="2018/09">2018/09</option> </select></form>

2018-06-05

日本語文字化けに関して

ブラウザを通してデータベースに入力される日本語文字列が文字化けを起こしている。ucwd.jp 上記サイトを参考にして、character_set_database、character_set_server がデフォルトでutf8になるように変更した。 +--------------------------+---------------…

2018-06-04

DBIx::Classについて

package DBIx::Class; use strict; #Perlの文法を厳密にチェック use warnings; #詳細な警告を出力 #バージョンナンバーを格納するグローバル変数の宣言。 our $VERSION; #"0.082841"という数値を$VERSIONに格納。 $VERSION = '0.082841'; #もし$VERSIONに"_…

2018-06-02

package DBIx::Classについて