1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
<& elements/edit.html,
'name_singular' => 'Installer schedule', #$sched_item_class->classname. ' schedule',
'table' => 'sched_item',
'viewall_dir' => 'browse',
'no_pkey_display' => 1,
'labels' => { 'name' => 'Name',
map { ( "sched_avail$_" => $dow[$_] ) } (0..6),
},
'fields' => [
{ 'field' => 'name',
'type' => 'fixed',
},
( map dow_factory($_), (0..6) ),
],
'edit_callback' => $edit_callback,
&>
<%init>
#XXX more specific AccessRight for scheduling
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
my @dow = qw( Sunday Monday Tuesday Wednesday Thursday Friday Saturday );
sub dow_factory {
my $wday = shift;
{ 'field' => 'sched_avail'. $wday,
'type' => 'select-avail-time-from_to',
'prefix' => 'sched_avail'. $wday. '_',
};
}
my $edit_callback = sub {
my( $cgi, $sched_item, $fields_listref, $opt_hashref ) = @_;
foreach my $sched_avail ( $sched_item->sched_avail ) {
if ( $sched_avail->override_date ) {
#XXX handle
} else {
my $param = 'sched_avail'. $sched_avail->wday;
$cgi->param($param, 'Y');
$cgi->param($param.'_stime', $sched_avail->stime);
$cgi->param($param.'_etime', $sched_avail->etime);
}
}
};
</%init>
|
