← Back to branch summary

~bestpractical/rt/master

« back to all changes in this revision

Viewing changes to share/html/Helpers/CalPopup.html

  • Committer: sunnavy
  • Date: 2008-05-14 13:22:46 UTC
  • Revision ID: git-v1:0f0c8baef62a06a13d6fb54683d6c7d75d5f1283
source layout change! html now lives in share/html

git-svn-id: svn+ssh://svn.bestpractical.com/svn/bps-public/rt/branches/3.8-TESTING@12308 e417ac7c-1bcc-0310-8ffa-8f5827389a85

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/html/Helpers/CalPopup.html
 
1
%# BEGIN BPS TAGGED BLOCK {{{
 
2
%# 
 
3
%# COPYRIGHT:
 
4
%#  
 
5
%# This software is Copyright (c) 1996-2008 Best Practical Solutions, LLC 
 
6
%#                                          <jesse@bestpractical.com>
 
7
%# 
 
8
%# (Except where explicitly superseded by other copyright notices)
 
9
%# 
 
10
%# 
 
11
%# LICENSE:
 
12
%# 
 
13
%# This work is made available to you under the terms of Version 2 of
 
14
%# the GNU General Public License. A copy of that license should have
 
15
%# been provided with this software, but in any event can be snarfed
 
16
%# from www.gnu.org.
 
17
%# 
 
18
%# This work is distributed in the hope that it will be useful, but
 
19
%# WITHOUT ANY WARRANTY; without even the implied warranty of
 
20
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
21
%# General Public License for more details.
 
22
%# 
 
23
%# You should have received a copy of the GNU General Public License
 
24
%# along with this program; if not, write to the Free Software
 
25
%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 
26
%# 02110-1301 or visit their web page on the internet at
 
27
%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
 
28
%# 
 
29
%# 
 
30
%# CONTRIBUTION SUBMISSION POLICY:
 
31
%# 
 
32
%# (The following paragraph is not intended to limit the rights granted
 
33
%# to you to modify and distribute this software under the terms of
 
34
%# the GNU General Public License and is only of importance to you if
 
35
%# you choose to contribute your changes and enhancements to the
 
36
%# community by submitting them to Best Practical Solutions, LLC.)
 
37
%# 
 
38
%# By intentionally submitting any modifications, corrections or
 
39
%# derivatives to this work, or any other work intended for use with
 
40
%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
 
41
%# you are the copyright holder for those contributions and you grant
 
42
%# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
 
43
%# royalty-free, perpetual, license to use, copy, create derivative
 
44
%# works based on those contributions, and sublicense and distribute
 
45
%# those contributions and any derivatives thereof.
 
46
%# 
 
47
%# END BPS TAGGED BLOCK }}}
 
48
<& /Elements/Header, ShowBar => 0 &>
 
49
%# From /Elements/Header
 
50
</div>
 
51
<div id="body" class="calpopup">
 
52
 
 
53
<a href="#" onclick="window.close(); return false;"><&|/l&>Close window</&></a>
 
54
 
 
55
<div class="calendar">
 
56
  <table>
 
57
    <caption>
 
58
      <a class="prev" href="CalPopup.html?DisplayedMonth=<%$prev_month%>&DisplayedYear=<%$prev_year%>&field=<%$field%>"><&|/l&>Prev</&></a>
 
59
      <span class="month"><% $months[$DisplayedMonth-1] %> <% $DisplayedYear %></span>
 
60
      <a class="next" href="CalPopup.html?DisplayedMonth=<%$next_month%>&DisplayedYear=<%$next_year%>&field=<%$field%>"><&|/l&>Next</&></a>
 
61
    </caption>
 
62
    <tr>
 
63
% foreach my $wday (@weekdays) {
 
64
      <th><%$wday%></th>
 
65
% }
 
66
    </tr>
 
67
% foreach my $week (@cal) {
 
68
    <tr>
 
69
%     foreach my $day (@{$week}) {
 
70
      <td>
 
71
%         if ($day) {
 
72
%             my $datestr = sprintf('%04d-%02d-%02d', $DisplayedYear, $DisplayedMonth, $day);
 
73
        <a href="#" onclick="updateParentField('<% $field %>','<% $datestr %>'); return false;"><% $day %></a>
 
74
%         } else {
 
75
        &nbsp;
 
76
%         }
 
77
      </td>
 
78
%     } #foreach $day
 
79
    </tr>
 
80
% } # foreach $week
 
81
  </table>
 
82
</div>
 
83
</div>
 
84
</body>
 
85
</html>
 
86
% $m->abort();
 
87
 
 
88
<%init>
 
89
use Calendar::Simple;
 
90
my @today = localtime(time());
 
91
 
 
92
my @weekdays;
 
93
push @weekdays, loc($_)
 
94
  for qw(Sun Mon Tue Wed Thu Fri Sat);
 
95
 
 
96
my @months;
 
97
push @months, loc($_)
 
98
  for qw(January February March April May June July August
 
99
         September October November December);
 
100
 
 
101
unless ($DisplayedYear) {
 
102
    $DisplayedMonth = $today[4] + 1;
 
103
    $DisplayedYear  = ($today[5] + 1900);
 
104
}
 
105
 
 
106
my ($prev_year, $next_year, $prev_month, $next_month);
 
107
$prev_month = $next_month = $DisplayedMonth;
 
108
$prev_year  = $next_year  = $DisplayedYear;
 
109
 
 
110
$next_month++;
 
111
$prev_month--;
 
112
 
 
113
if ($DisplayedMonth == 12) {
 
114
    $next_year++;
 
115
    $next_month = 1;
 
116
}
 
117
elsif ($DisplayedMonth == 1) {
 
118
    $prev_month = 12;
 
119
    $prev_year--;
 
120
}
 
121
 
 
122
my @cal = calendar($DisplayedMonth, $DisplayedYear);
 
123
</%init>
 
124
 
 
125
<%args>
 
126
$field => 'none'
 
127
$DisplayedMonth => undef
 
128
$DisplayedYear => undef
 
129
</%args>