blob: d71c82f07d0dc5185b67097a31cdd57f54d37f2f (
plain)
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
<%doc>
#Example:
include( 'elements/svc_devices.html',
#required
'svc_x' => $svc_phone, #or $svc_dsl
'table' => 'phone_device', #or dsl_device
#optional
'no_edit' => 0, #set true to turn off edit link
)
</%doc>
<% $devices %>
<%init>
my %opt = @_;
my $table = $opt{'table'}; #part_device, dsl_device
my $svc_x = $opt{'svc_x'};
my $devices = '';
my $num_part_device = 0;
if ( $table eq 'phone_device' ) {
my $sth = dbh->prepare("SELECT COUNT(*) FROM part_device")
#WHERE disabled = '' OR disabled IS NULL;");
or die dbh->errstr;
$sth->execute or die $sth->errstr;
$num_part_device = $sth->fetchrow_arrayref->[0];
}
my @devices = $svc_x->$table();
#should move the below to proper mason code above instead of making $devices
if ( @devices || $num_part_device || $table eq 'dsl_device' ) {
my $svcnum = $svc_x->svcnum;
$devices .=
qq[Devices (<A HREF="${p}edit/$table.html?svcnum=$svcnum">Add device</A>)<BR>];
if ( @devices ) {
$devices .= qq!
<SCRIPT>
function areyousure(href) {
if (confirm("Are you sure you want to delete this device?") == true)
window.location.href = href;
}
</SCRIPT>
!;
$devices .=
include('/elements/table-grid.html').
'<TR>';
$devices .=
'<TH CLASS="grid" BGCOLOR="#cccccc">Type</TH>'
if $table eq 'phone_device';
$devices .=
'<TH CLASS="grid" BGCOLOR="#cccccc">MAC Addr</TH>'.
'<TH CLASS="grid" BGCOLOR="#cccccc"></TH>'.
'<TH CLASS="grid" BGCOLOR="#cccccc"></TH>'.
'</TR>';
my $bgcolor1 = '#eeeeee';
my $bgcolor2 = '#ffffff';
my $bgcolor = '';
foreach my $device ( @devices ) {
if ( $bgcolor eq $bgcolor1 ) {
$bgcolor = $bgcolor2;
} else {
$bgcolor = $bgcolor1;
}
my $td = qq(<TD CLASS="grid" BGCOLOR="$bgcolor">);
my $devicenum = $device->devicenum;
my $export_links = join( '<BR>', @{ $device->export_links } )
if $device->can('export_links');
$devices .= '<TR>';
$devices .= $td. $device->part_device->devicename. '</TD>'
if $table eq 'phone_device'; #$devices->can('part_device');
$devices .= $td. $device->mac_addr. '</TD>'.
$td. $export_links. '</TD>'.
"$td( ";
$devices .= qq(<A HREF="${p}edit/$table.html?$devicenum">edit</A> | )
unless $opt{'no_edit'};
$devices .= qq(<A HREF="javascript:areyousure('${p}misc/delete-$table.html?$devicenum')">delete</A>).
' )</TD>'.
'</TR>';
}
$devices .= '</TABLE><BR>';
}
$devices .= '<BR>';
}
</%init>
|
