X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fpart_svc.cgi;h=7a47f1550f1e0707ce0a062e68dbfb757e5a6400;hp=befd9b24a47c3913e3783489437878f258ce846f;hb=ad3bcb39580173f0ac1b6357cb49515d48af7ddf;hpb=b8cfd0780aa40bb07f3215bf9cb58011f5e32a35
diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index befd9b24a..7a47f1550 100755
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -1,52 +1,206 @@
-<%
-my $part_svc;
-my $clone = '';
-my $error = '';
-if ( $cgi->param('magic') eq 'process' ) {
+<& /elements/header.html, "$action Service Definition" &>
+<& /elements/menubar.html,
+ 'View all service definitions' => "${p}browse/part_svc.cgi"
+ #" onLoad=\"visualize()\""
+&>
- my $svcpart = $cgi->param('svcpart');
- my $old = qsearchs('part_svc', { 'svcpart' => $svcpart }) if $svcpart;
-
- $cgi->param( 'svc_acct__usergroup',
- join(',', $cgi->param('svc_acct__usergroup') ) );
-
- my $new = new FS::part_svc ( {
- map {
- $_, scalar($cgi->param($_));
- # } qw(svcpart svc svcdb)
- } ( fields('part_svc'),
- map { my $svcdb = $_;
- my @fields = fields($svcdb);
- push @fields, 'usergroup' if $svcdb eq 'svc_acct'; #kludge
- map { ( $svcdb.'__'.$_, $svcdb.'__'.$_.'_flag' ) } @fields;
- } grep defined( $FS::Record::dbdef->table($_) ),
- qw( svc_acct svc_domain svc_forward svc_www svc_broadband )
- )
- } );
-
- my %exportnums =
- map { $_->exportnum => ( $cgi->param('exportnum'.$_->exportnum) || '') }
- qsearch('part_export', {} );
+<& /elements/init_overlib.html &>
+
+
+
+
+
+
+