X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fpart_svc.cgi;h=2ec0242694a01498ada1ccdb74a36a5558abfe71;hb=d4cdc4db87f1b6a373398b7ab33e791bd0527dda;hp=cc9145f45a29d22bbc6f4494eebb9328b116842a;hpb=c84d872fdca241d798cc988b44c63d5ac0ea8ead;p=freeside.git
diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index cc9145f45..2ec024269 100755
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -1,471 +1,239 @@
-%
-%my $part_svc;
-%my $clone = '';
-%if ( $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";
-% $part_svc=qsearchs('part_svc', { 'svcpart'=>$1 } )
-% or die "unknown svcpart: $1";
-%} else { #adding
-% $part_svc = new FS::part_svc {};
-%}
-%
-%my $action = $part_svc->svcpart ? 'Edit' : 'Add';
-%my $hashref = $part_svc->hashref;
-%# my $p_svcdb = $part_svc->svcdb || 'svc_acct';
-%
-%
-% #" onLoad=\"visualize()\""
-%
+<& /elements/header.html, "$action Service Definition" &>
+<& /elements/menubar.html,
+ 'View all service definitions' => "${p}browse/part_svc.cgi"
+ #" onLoad=\"visualize()\""
+&>
-<% include("/elements/header.html","$action Service Definition",
- menubar( 'Main Menu' => $p,
- 'View all service definitions' => "${p}browse/part_svc.cgi"
- ),
- )
-%>
+<& /elements/init_overlib.html &>
+
+
+
+
+