œ Jul 1, 2001 (Sun) 15:38 - ‚΂® #~~~~ # ‚UŒŽ‚Q‚R“ú‚Ì‚ª‰½ŒÌ‚©‚VŒŽ‚É“ü‚Á‚Ä‚Ü‚·‚ªA‚±‚¤‚¢‚¤Œ»Û‚̃Rƒg‚Á‚·‚©H ‚¦‚¥C‚»‚ê‚Å‚·D ƒ\[ƒX‚Ì DispDayList ‚Ì while ƒ‹[ƒv‚Ì‚Æ‚±‚ë‚ðC ˆÈ‰º‚̂悤‚ÉC³‚·‚é‚Æ’¼‚è‚Ü‚·D iif(!ref($month))‚Ì•”•ª‚ðã‚Ì•û‚Ɉړ®j while($data = $sth->fetchrow_hashref) { if(!ref($month) or ($month->[0] ne $data->{createmonthname}) or ($month->[1] ne $data->{createyear})) { if(ref($month)) { $t->node('kako')->node('month') ->add({ MONTH => $month->[0], YEAR => $month->[1], }); } $month = [$data->{createmonthname}, $data->{createyear}]; } $t->node('kako')->node('month')->node('day') ->add({ DAY => $TL->newString($data->{createday})->h2z->get, LINK => $TL->newForm->set( Command => 'DispDay', Keydate => $data->{keydate}, )->toLink, NUM => $data->{num}, }); } |
|