for( my $day = 1; $day <= $lastday; $day++ ){
my $ymd = sprintf('%04d%02d%02d', $data{year}, $data{month}, $day);
# ブックマークの存在確認
my $exists = 0;
if( $action =~ /^personal$/ ){
$exists = SecureSBM::Controller::Personal::personal(
$self, $c, 1, $ymd );
}elsif( $action =~ /^searchbookmark$/ ){
$exists = SecureSBM::Controller::Personal::searchBookmark(
$self, $c, 1, $ymd, $tag, $searchword );
}else{
# /bookmark etc.
$exists = SecureSBM::Controller::Noauth::Bookmark::bookmark(
$self, $c, undef, 1, $ymd );
}
if( $exists ){
$link[$day] = "'" . $url . '?' . $urlarg . $amp . "date="
. $ymd
. "'";
$monthlink = 1;
}else{
$link[$day] = '0';
}
}
これをメニューのカレンダーから表示します.
<div class="sidemenu-box">
<h1>カレンダー</h1>
<div id="calendar"></div><script type="text/javascript">
<!--
var today = new Date();
var curyear = today.getFullYear();
var curmonth = today.getMonth() + 1;
[% IF dispyear && dispmonth %]
var dispyear = [% dispyear %];
var dispmonth = [% dispmonth %];
[% ELSE %]
var dispyear = curyear;
var dispmonth = curmonth;
[% END %]
[% IF linkurl %]
var linkurl = encodeURI('[% linkurl %]');
[% ELSE %]
var linkurl = encodeURI('/bookmark');
[% END %]
rewriteCal(dispyear,dispmonth,curyear,curmonth,linkurl);
// -->
</script>function rewriteCal( year, month, curyear, curmonth, linkurl ){
var cal = make_calendar( year, month, curyear, curmonth );
_getElementById("calendar").innerHTML = cal;/* 表示中の月のリンク array を確認 */
if( ! _isDefined( "ym_" + year + month ) ){
// 同期して Array を読み込み
setupCalendarDispMonth( year, month, linkurl );
}
setupCalendarLinkDispMonth( year, month );/* 前後の月のリンク array を確認 */
var lastmonth = month - 1;
var nextmonth = month + 1;
var lastyear = year;
var nextyear = year;
if( lastmonth == 0 ){
lastmonth = 12;
lastyear--;
}
if ( nextmonth == 13 ) {
nextmonth = 1;
nextyear++;
}
// lastyear + lastmonth
if( ! _isDefined( "ym_" + lastyear + lastmonth ) ){
// Ajax で Array を読み込み
setupCalendarLastMonth( lastyear, lastmonth, linkurl );
}
// nextyear + nextmonth
if( ! _isDefined( "ym_" + nextyear + nextmonth ) ){
// Ajax で Array を読み込み
setupCalendarNextMonth( nextyear, nextmonth, linkurl );
}
} // end of rewriteCal()
Keyword: Perl Catalyst Secure-SBM SSBM セキュア・ソーシャル・ブックマーク オープンソース
タグ:Secure-SBM
いかちょー (2007-08-02 13:03) | コメント(0)| トラックバック(2)
トラックバックURL:
Lamictal. - Lamictal side effects. (2010年11月27日 01:14)
Lamictal research in teens. Lamictal and weight gain. Lamictal. Lamictal drug... 続きを読む
Order oxycontin online without a prescription. - Online oxycontin. (2010年12月 5日 07:02)
Order oxycontin online without a prescription. Oxycontin 20mg online pharmacy... 続きを読む
月別アーカイブ
Copyright (C) 2004-2011 Nihon Unisys, Ltd. All Rights Reserved.
Powered by Movable Type Open Source