blob: ffce0438ffe738259e9f3fc07d4210def1e5b275 (
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
|
<!-- mason kludge -->
<%
#if ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) {
# $cgi->param('clone', $1);
#} else {
# $cgi->param('clone', '');
#}
#if ( $cgi->param('svcpart') && $cgi->param('svcpart') =~ /^(\d+)$/ ) {
# $cgi->param('svcpart', $1);
#} else {
# $cgi->param('svcpart', '');
#}
my($query) = $cgi->keywords;
my $action = '';
my $part_export = '';
my $options = {};
if ( $cgi->param('error') ) {
$part_export = new FS::part_export ( {
map { $_, scalar($cgi->param($_)) } fields('part_export')
} );
}
warn "***$query***";
if ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) {
$action = 'Add';
my $old_part_export = qsearchs('part_export', { 'exportnum' => $1 } );
unless ( $part_export ) {
($part_export, $options) = $old_part_export->clone;
}
} elsif ( $cgi->param('new_with_svcpart')
&& $cgi->param('new_with_svcpart') =~ /^(\d+)$/ ) {
$part_export ||= new FS::part_export ( { 'svcpart' => $1 } );
} elsif ( $query =~ /^(\d+)$/ ) {
$part_export ||= qsearchs('part_export', { 'exportnum' => $1 } );
}
$action ||= $part_export->exportnum ? 'Edit' : 'Add';
my @types = qw(shell bsdshell textradius sqlradius cp);
%>
<%= header("$action Export", menubar(
'Main Menu' => popurl(2),
), ' onLoad="visualize()"')
%>
<% if ( $cgi->param('error') ) { %>
<FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
<% } %>
<FORM ACTION="<%= popurl(1) %>process/part_export.cgi" METHOD=POST>
<% #print '<FORM NAME="dummy">'; %>
<%= ntable("#cccccc",2) %>
<TR>
<TD ALIGN="right">Service</TD>
<TD BGCOLOR="#ffffff">
<%= $part_export->svcpart %> - <%= $part_export->part_svc->svc %>
</TD>
</TR>
<TR>
<TD ALIGN="right">Export</TD>
<TD><SELECT NAME="exporttype"><OPTION></OPTION>
<% foreach my $type ( @types ) { %>
<OPTION><%= $type %></OPTION>
<% } %>
</SELECT></TD>
</TR>
<TR>
<TD ALIGN="right">Export host</TD>
<TD>
<INPUT TYPE="text" NAME="machine" VALUE="<%= $part_export->machine %>">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>
|