Package: libdate-calc-perl
Version: 5.4-5
Severity: wishlist
File: /usr/lib/perl5/Date/Calendar/Year.pm
There doesn't seem to be any way to make Saturday and/or Sunday into a
work day. It'd be nice if the workdays were customizable; not everyone's
work week is Monday–Friday.
This look in Year.pm seems to be where that's done:
$dow = 6 - Day_of_Week($year,1,1); # Mon 1 => 5, ... , Fri 5 => 1, Sat 6 =>
0, Sun 7 => -1
while ($dow < $days)
{
${$self}{'FULL'}->Bit_On( $dow ) unless ($dow < 0); # Saturday
${$self}{'FULL'}->Bit_On( $dow ) if (++$dow < $days); # Sunday
$dow += 6;
}
-- System Information:
Debian Release: 4.0
APT prefers stable
APT policy: (500, 'stable'), (101, 'testing'), (100, 'unstable')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/bash
Kernel: Linux 2.6.25-2-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8)
Versions of packages libdate-calc-perl depends on:
ii libbit-vector-perl 6.4-5 Perl and C library for bit vectors
ii libc6 2.3.6.ds1-13etch7 GNU C Library: Shared libraries
ii perl 5.8.8-7etch3 Larry Wall's Practical Extraction
ii perl-base [perlapi-5.8 5.8.8-7etch3 The Pathologically Eclectic Rubbis
libdate-calc-perl recommends no packages.
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
