X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fpart_svc.cgi;h=4ccb770fba95c93cdac3030c4300c9a97369d1da;hb=551e695713ce31e4608a0a608a3941eaa7cdd64b;hp=29778567e9cd72e6afc9923382e707d5e08ecb81;hpb=a6d3e4dc73803cffad96fd4b6270b2fb5f4b0568;p=freeside.git
diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index 29778567e..4ccb770fb 100755
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -1,10 +1,17 @@
-
+
<%
my $part_svc;
+ my $clone = '';
if ( $cgi->param('error') ) { #error
$part_svc = new FS::part_svc ( {
map { $_, scalar($cgi->param($_)) } fields('part_svc')
} );
+ } elsif ( $cgi->param('clone') && $cgi->param('clone') =~ /^(\d+)$/ ) {#clone
+ #$cgi->param('clone') =~ /^(\d+)$/ or die "malformed query: $query";
+ $part_svc = qsearchs('part_svc', { 'svcpart'=>$1 } )
+ or die "unknown svcpart: $1";
+ $clone = $part_svc->svcpart;
+ $part_svc->svcpart('');
} elsif ( $cgi->keywords ) { #edit
my($query) = $cgi->keywords;
$query =~ /^(\d+)$/ or die "malformed query: $query";
@@ -15,25 +22,16 @@
}
my $action = $part_svc->svcpart ? 'Edit' : 'Add';
my $hashref = $part_svc->hashref;
- my $p_svcdb = $part_svc->svcdb || 'svc_acct';
+# my $p_svcdb = $part_svc->svcdb || 'svc_acct';
-%>
-
+ #" onLoad=\"visualize()\""
+%>
<%= header("$action Service Definition",
menubar( 'Main Menu' => $p,
'View all service definitions' => "${p}browse/part_svc.cgi"
),
- " onLoad=\"visualize()\""
)
%>
@@ -45,12 +43,14 @@ function visualize(what) {
Service Part #<%= $part_svc->svcpart ? $part_svc->svcpart : "(NEW)" %>
-Service
-
+Service
+Disable new orders {disabled} eq 'Y' ? ' CHECKED' : '' %>>
+
+
Services are items you offer to your customers.