ようこそゲストさん

海野英俊

改造

adiary::改造

2007年10月21日 2000年以前の日付も

なぜだか2000年以前の日付を扱わないようになっているけど、昔のデータをマージしたいのでこの制限を外す。秋分春分や祝日なんかについてはとりあえず気にしないことに。

 *** old/lib/Satsuki/Diary.pm       2007-10-11 20:48:57.000000000 +0900
 --- new/lib/Satsuki/Diary.pm        2007-10-21 09:18:03.000000000 +0900
 ***************
 *** 938,944 ****
        my $now_yyyymm = $now->{year}*100 + $now->{mon};
        $self->{this_yyyymm} = $cur_yyyymm;
        if ($self->{exsits_daybook}) {
!               if ($cur_yyyymm > 200001) {
                        if ($mon == 1) {
                                $calendar{prev_year} = $year -1;
                                $calendar{prev_mon}  = 12;
 --- 938,944 ----
        my $now_yyyymm = $now->{year}*100 + $now->{mon};
        $self->{this_yyyymm} = $cur_yyyymm;
        if ($self->{exsits_daybook}) {
!               if (1 || $cur_yyyymm > 200001) {
                        if ($mon == 1) {
                                $calendar{prev_year} = $year -1;
                                $calendar{prev_mon}  = 12;
 ***************
 *** 1212,1218 ****
  #------------------------------------------------------------------------------
  sub check_date {
        my ($self, $year, $mon, $day) = @_;
!       if ($year < 2000) { return 'It cannot specify before 2000'; }
        if ($mon < 1 || 12 < $mon) { return 'Illegal month'; }
        if ($day > 0) {
                my $days = $self->get_mdays($year, $mon);
 --- 1212,1218 ----
  #------------------------------------------------------------------------------
  sub check_date {
        my ($self, $year, $mon, $day) = @_;
!       # if ($year < 2000) { return 'It cannot specify before 2000'; }
        if ($mon < 1 || 12 < $mon) { return 'Illegal month'; }
        if ($day > 0) {
                my $days = $self->get_mdays($year, $mon);

2007年10月20日 au W21CA

auのW21CAで読もうとすると「日記が存在しない」などとなってしまう。REQUEST_URIの「/~uno/」の部分が「/%7Euno/」などとなることが原因みたい。
 *** old/lib/Satsuki/Base.pm        2007-09-26 15:13:44.000000000 +0900
 --- new/lib/Satsuki/Base.pm 2007-10-19 21:08:57.000000000 +0900
 ***************
 *** 27,32 ****
 --- 27,35 ----
        my $self  = {};
        bless($self, $class);   # $self をこのクラスと関連付ける

 +       # auの端末で「~」がURLエンコードされる問題への対応(by uno@unno.co.jp)
 +       $ENV{REQUEST_URI} =~ s/^\/%7E/\/~/;
 +
        # 初期設定
        $self->{ROBJ}    = $self;       # root object is self
        $self->{VERSION} = $VERSION;

名前:  非公開コメント   

  • TB-URL  http://www.unno.co.jp/~uno/adiary/015/tb/