# Copyright (c) 2008-2010 bivio Software, Inc.  All Rights Reserved.
#
# Visit http://www.bivio.biz for more info.
# 
# This library is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as
# published by the Free Software Foundation; either version 2.1 of the
# License, or (at your option) any later version.
# 
# This library is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this library;  If not, you may get a copy from:
# http://www.opensource.org/licenses/lgpl-license.html
# 
# $Id: MonthList.pm,v 2.6 2010/02/07 00:48:12 nagler Exp $
package Bivio::Biz::Model::MonthList;
use strict;
use Bivio::Base 'Biz.ListModel';

our($VERSION) = sprintf('%d.%02d', q$Revision: 2.6 $ =~ /\d+/g);
my($_T) = b_use('FacadeComponent.Text');
my($_CEMD) = b_use('Type.CalendarEventMonthDate');

sub internal_initialize {
    my($self) = @_;
    return {
	version => 1,
	$self->field_decl(
	    primary_key => [
                [qw(date Date)],
	    ],
	    order_by => [
		[qw(display_name String)],
	    ],
	),
	other_query_keys => ['b_month'],
    };
}

sub internal_load_rows {
    my($self, $query) = @_;
    my($now) = $_CEMD->now;
    my($date) = $now;
    if (my $bm = $query->unsafe_get('b_month')) {
	$bm = ($_CEMD->from_literal($bm))[0];
	$date = $bm
	    if $bm;
    }
    my($year) = $_CEMD->get_part($date, 'year');
    my($t) = $_T->get_from_source($self->req);
    return [
	{
	    # Need to make distinct value in list
	    date => $_CEMD->add_days($now, 1),
	    display_name => $t->get_value(
		$self->simple_package_name, 'this_month'),
	},
        map(+{
            date => $_,
            display_name => $t->get_value(
		$self->simple_package_name,
		$_CEMD->english_month3($_CEMD->get_part($_, 'month')),
	    ) . ' '
	    . $_CEMD->get_part($_, 'year'),
        }, map({
            my($year) = $_;
            map($_CEMD->date_from_parts(1, $_, $year), 1 .. 12);
        } ($year - 1 .. $year + 1))),
    ];
}

1;