summaryrefslogtreecommitdiff
path: root/htdocs/edit
diff options
context:
space:
mode:
Diffstat (limited to 'htdocs/edit')
-rwxr-xr-xhtdocs/edit/cust_main_county-expand.cgi49
-rwxr-xr-xhtdocs/edit/cust_main_county.cgi66
-rwxr-xr-xhtdocs/edit/part_referral.cgi66
-rwxr-xr-xhtdocs/edit/process/agent.cgi53
-rwxr-xr-xhtdocs/edit/process/agent_type.cgi83
-rwxr-xr-xhtdocs/edit/process/cust_main_county-expand.cgi71
-rwxr-xr-xhtdocs/edit/process/cust_main_county.cgi38
-rwxr-xr-xhtdocs/edit/process/part_pkg.cgi79
-rwxr-xr-xhtdocs/edit/process/part_referral.cgi45
-rwxr-xr-xhtdocs/edit/process/part_svc.cgi47
-rwxr-xr-xhtdocs/edit/process/svc_acct_pop.cgi43
-rwxr-xr-xhtdocs/edit/svc_acct_pop.cgi67
12 files changed, 707 insertions, 0 deletions
diff --git a/htdocs/edit/cust_main_county-expand.cgi b/htdocs/edit/cust_main_county-expand.cgi
new file mode 100755
index 000000000..59ff7043a
--- /dev/null
+++ b/htdocs/edit/cust_main_county-expand.cgi
@@ -0,0 +1,49 @@
+#!/usr/bin/perl -Tw
+#
+# cust_main_county-expand.cgi: Expand a state into counties (output form)
+#
+# ivan@sisd.com 97-dec-16
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Base;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::CGI qw(header menubar);
+
+my($cgi) = new CGI::Base;
+$cgi->get;
+
+&cgisuidsetup($cgi);
+
+SendHeaders(); # one guess.
+
+$cgi->var('QUERY_STRING') =~ /^(\d+)$/
+ or die "Illegal taxnum!";
+my($taxnum)=$1;
+
+my($cust_main_county)=qsearchs('cust_main_county',{'taxnum'=>$taxnum});
+die "Can't expand entry!" if $cust_main_county->getfield('county');
+
+print header("Tax Rate (expand state)", menubar(
+ 'Main Menu' => '../',
+)), <<END;
+ <FORM ACTION="process/cust_main_county-expand.cgi" METHOD=POST>
+ <INPUT TYPE="hidden" NAME="taxnum" VALUE="$taxnum">
+ Separate counties by
+ <INPUT TYPE="radio" NAME="delim" VALUE="n" CHECKED>line
+ (rumor has it broken on some browsers) or
+ <INPUT TYPE="radio" NAME="delim" VALUE="s">whitespace.
+ <BR><INPUT TYPE="submit" VALUE="Submit">
+ <BR><TEXTAREA NAME="counties" ROWS=100></TEXTAREA>
+ </FORM>
+ </CENTER>
+ </BODY>
+</HTML>
+END
+
diff --git a/htdocs/edit/cust_main_county.cgi b/htdocs/edit/cust_main_county.cgi
new file mode 100755
index 000000000..904d58346
--- /dev/null
+++ b/htdocs/edit/cust_main_county.cgi
@@ -0,0 +1,66 @@
+#!/usr/bin/perl -Tw
+#
+# cust_main_county.cgi: Edit tax rates (output form)
+#
+# ivan@sisd.com 97-dec-13-16
+#
+# Changes to allow page to work at a relative position in server
+# Changed tax field to accept 6 chars (MO uses 6.1%)
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Base;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::CGI qw(header menubar);
+
+my($cgi) = new CGI::Base;
+$cgi->get;
+
+&cgisuidsetup($cgi);
+
+SendHeaders(); # one guess.
+
+print header("Edit tax rates", menubar(
+ 'Main Menu' => '../',
+)),<<END;
+ <FORM ACTION="process/cust_main_county.cgi" METHOD=POST>
+ <TABLE BORDER>
+ <TR>
+ <TH><FONT SIZE=-1>State</FONT></TH>
+ <TH>County</TH>
+ <TH><FONT SIZE=-1>Tax</FONT></TH>
+ </TR>
+END
+
+my($cust_main_county);
+foreach $cust_main_county ( qsearch('cust_main_county',{}) ) {
+ my($hashref)=$cust_main_county->hashref;
+ print <<END;
+ <TR>
+ <TD>$hashref->{state}</TD>
+END
+
+ print "<TD>", $hashref->{county}
+ ? $hashref->{county}
+ : '(ALL)'
+ , "</TD>";
+
+ print qq!<TD><INPUT TYPE="text" NAME="tax!, $hashref->{taxnum},
+ qq!" VALUE="!, $hashref->{tax}, qq!" SIZE=6 MAXLENGTH=6>%</TD></TR>!;
+END
+
+}
+
+print <<END;
+ </TABLE>
+ <INPUT TYPE="submit" VALUE="Apply changes">
+ </FORM>
+ </CENTER>
+ </BODY>
+</HTML>
+END
+
diff --git a/htdocs/edit/part_referral.cgi b/htdocs/edit/part_referral.cgi
new file mode 100755
index 000000000..f29802239
--- /dev/null
+++ b/htdocs/edit/part_referral.cgi
@@ -0,0 +1,66 @@
+#!/usr/bin/perl -Tw
+#
+# agent.cgi: Add/Edit referral (output form)
+#
+# ivan@sisd.com 98-feb-23
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# confisuing typo on submit button ivan@sisd.com 98-jun-14
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Base;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::part_referral;
+use FS::CGI qw(header menubar);
+
+my($cgi) = new CGI::Base;
+$cgi->get;
+
+&cgisuidsetup($cgi);
+
+SendHeaders(); # one guess.
+
+my($part_referral,$action);
+if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing
+ $part_referral=qsearchs('part_referral',{'refnum'=>$1});
+ $action='Edit';
+} else { #adding
+ $part_referral=create FS::part_referral {};
+ $action='Add';
+}
+my($hashref)=$part_referral->hashref;
+
+print header("$action Referral", menubar(
+ 'Main Menu' => '../',
+ 'View all referrals' => "../browse/part_referral.cgi",
+)), <<END;
+ <FORM ACTION="process/part_referral.cgi" METHOD=POST>
+END
+
+#display
+
+print qq!<INPUT TYPE="hidden" NAME="refnum" VALUE="$hashref->{refnum}">!,
+ "Referral #", $hashref->{refnum} ? $hashref->{refnum} : "(NEW)";
+
+print <<END;
+<PRE>
+Referral <INPUT TYPE="text" NAME="referral" SIZE=32 VALUE="$hashref->{referral}">
+</PRE>
+END
+
+print qq!<BR><INPUT TYPE="submit" VALUE="!,
+ $hashref->{refnum} ? "Apply changes" : "Add referral",
+ qq!">!;
+
+print <<END;
+ </FORM>
+ </BODY>
+</HTML>
+END
+
diff --git a/htdocs/edit/process/agent.cgi b/htdocs/edit/process/agent.cgi
new file mode 100755
index 000000000..5d1ce3232
--- /dev/null
+++ b/htdocs/edit/process/agent.cgi
@@ -0,0 +1,53 @@
+#!/usr/bin/perl -Tw
+#
+# process/agent.cgi: Edit agent (process form)
+#
+# ivan@sisd.com 97-dec-12
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::agent qw(fields);
+use FS::CGI qw(idiot);
+
+my($req)=new CGI::Request; # create form object
+
+&cgisuidsetup($req->cgi);
+
+my($agentnum)=$req->param('agentnum');
+
+my($old)=qsearchs('agent',{'agentnum'=>$agentnum}) if $agentnum;
+
+#unmunge typenum
+$req->param('typenum') =~ /^(\d+)(:.*)?$/;
+$req->param('typenum',$1);
+
+my($new)=create FS::agent ( {
+ map {
+ $_, $req->param($_);
+ } fields('agent')
+} );
+
+my($error);
+if ( $agentnum ) {
+ $error=$new->replace($old);
+} else {
+ $error=$new->insert;
+ $agentnum=$new->getfield('agentnum');
+}
+
+if ( $error ) {
+ &idiot($error);
+} else {
+ #$req->cgi->redirect("../../view/agent.cgi?$agentnum");
+ #$req->cgi->redirect("../../edit/agent.cgi?$agentnum");
+ $req->cgi->redirect("../../browse/agent.cgi");
+}
+
diff --git a/htdocs/edit/process/agent_type.cgi b/htdocs/edit/process/agent_type.cgi
new file mode 100755
index 000000000..43f129fd5
--- /dev/null
+++ b/htdocs/edit/process/agent_type.cgi
@@ -0,0 +1,83 @@
+#!/usr/bin/perl -Tw
+#
+# process/agent_type.cgi: Edit agent type (process form)
+#
+# ivan@sisd.com 97-dec-11
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::agent_type qw(fields);
+use FS::type_pkgs;
+use FS::CGI qw(idiot);
+
+my($req)=new CGI::Request;
+&cgisuidsetup($req->cgi);
+
+my($typenum)=$req->param('typenum');
+my($old)=qsearchs('agent_type',{'typenum'=>$typenum}) if $typenum;
+
+my($new)=create FS::agent_type ( {
+ map {
+ $_, $req->param($_);
+ } fields('agent_type')
+} );
+
+my($error);
+if ( $typenum ) {
+ $error=$new->replace($old);
+} else {
+ $error=$new->insert;
+ $typenum=$new->getfield('typenum');
+}
+
+if ( $error ) {
+ idiot($error);
+ exit;
+}
+
+my($part_pkg);
+foreach $part_pkg (qsearch('part_pkg',{})) {
+ my($pkgpart)=$part_pkg->getfield('pkgpart');
+
+ my($type_pkgs)=qsearchs('type_pkgs',{
+ 'typenum' => $typenum,
+ 'pkgpart' => $pkgpart,
+ });
+ if ( $type_pkgs && ! $req->param("pkgpart$pkgpart") ) {
+ my($d_type_pkgs)=$type_pkgs; #need to save $type_pkgs for below.
+ $error=$d_type_pkgs->del; #FS::Record not FS::type_pkgs,
+ #so ->del not ->delete. hmm. hmm.
+ if ( $error ) {
+ idiot($error);
+ exit;
+ }
+
+ } elsif ( $req->param("pkgpart$pkgpart")
+ && ! $type_pkgs
+ ) {
+ #ok to clobber it now (but bad form nonetheless?)
+ $type_pkgs=create FS::type_pkgs ({
+ 'typenum' => $typenum,
+ 'pkgpart' => $pkgpart,
+ });
+ $error= $type_pkgs->insert;
+ if ( $error ) {
+ idiot($error);
+ exit;
+ }
+ }
+
+}
+
+#$req->cgi->redirect("../../view/agent_type.cgi?$typenum");
+#$req->cgi->redirect("../../edit/agent_type.cgi?$typenum");
+$req->cgi->redirect("../../browse/agent_type.cgi");
+
diff --git a/htdocs/edit/process/cust_main_county-expand.cgi b/htdocs/edit/process/cust_main_county-expand.cgi
new file mode 100755
index 000000000..a821560c6
--- /dev/null
+++ b/htdocs/edit/process/cust_main_county-expand.cgi
@@ -0,0 +1,71 @@
+#!/usr/bin/perl -Tw
+#
+# process/cust_main_county-expand.cgi: Expand counties (process form)
+#
+# ivan@sisd.com 97-dec-16
+#
+# Changes to allow page to work at a relative position in server
+# Added import of datasrc from UID.pm for Pg6.3
+# Default tax to 0.0 if using Pg6.3
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI
+# undo default tax to 0.0 if using Pg6.3: comes from pre-expanded record
+# for that state
+#ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup datasrc);
+use FS::Record qw(qsearch qsearchs);
+use FS::cust_main_county;
+use FS::CGI qw(eidiot);
+
+my($req)=new CGI::Request; # create form object
+
+&cgisuidsetup($req->cgi);
+
+$req->param('taxnum') =~ /^(\d+)$/ or die "Illegal taxnum!";
+my($taxnum)=$1;
+my($cust_main_county)=qsearchs('cust_main_county',{'taxnum'=>$taxnum})
+ or die ("Unknown taxnum!");
+
+my(@counties);
+if ( $req->param('delim') eq 'n' ) {
+ @counties=split(/\n/,$req->param('counties'));
+} elsif ( $req->param('delim') eq 's' ) {
+ @counties=split(/\s+/,$req->param('counties'));
+} else {
+ die "Illegal delim!";
+}
+
+@counties=map {
+ /^\s*([\w\- ]+)\s*$/ or eidiot("Illegal county");
+ $1;
+} @counties;
+
+my($county);
+foreach ( @counties) {
+ my(%hash)=$cust_main_county->hash;
+ my($new)=create FS::cust_main_county \%hash;
+ $new->setfield('taxnum','');
+ $new->setfield('county',$_);
+ #if (datasrc =~ m/Pg/)
+ #{
+ # $new->setfield('tax',0.0);
+ #}
+ my($error)=$new->insert;
+ die $error if $error;
+}
+
+unless ( qsearch('cust_main',{
+ 'state' => $cust_main_county->getfield('state'),
+ 'county' => $cust_main_county->getfield('county'),
+} ) ) {
+ my($error)=($cust_main_county->delete);
+ die $error if $error;
+}
+
+$req->cgi->redirect("../../edit/cust_main_county.cgi");
+
diff --git a/htdocs/edit/process/cust_main_county.cgi b/htdocs/edit/process/cust_main_county.cgi
new file mode 100755
index 000000000..58eaa63ce
--- /dev/null
+++ b/htdocs/edit/process/cust_main_county.cgi
@@ -0,0 +1,38 @@
+#!/usr/bin/perl -Tw
+#
+# process/agent.cgi: Edit cust_main_county (process form)
+#
+# ivan@sisd.com 97-dec-16
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::cust_main_county;
+use FS::CGI qw(eidiot);
+
+my($req)=new CGI::Request; # create form object
+
+&cgisuidsetup($req->cgi);
+
+foreach ( $req->params ) {
+ /^tax(\d+)$/ or die "Illegal form $_!";
+ my($taxnum)=$1;
+ my($old)=qsearchs('cust_main_county',{'taxnum'=>$taxnum})
+ or die "Couldn't find taxnum $taxnum!";
+ next unless $old->getfield('tax') ne $req->param("tax$taxnum");
+ my(%hash)=$old->hash;
+ $hash{tax}=$req->param("tax$taxnum");
+ my($new)=create FS::cust_main_county \%hash;
+ my($error)=$new->replace($old);
+ eidiot($error) if $error;
+}
+
+$req->cgi->redirect("../../browse/cust_main_county.cgi");
+
diff --git a/htdocs/edit/process/part_pkg.cgi b/htdocs/edit/process/part_pkg.cgi
new file mode 100755
index 000000000..7d787819a
--- /dev/null
+++ b/htdocs/edit/process/part_pkg.cgi
@@ -0,0 +1,79 @@
+#!/usr/bin/perl -Tw
+#
+# process/part_pkg.cgi: Edit package definitions (process form)
+#
+# ivan@sisd.com 97-dec-10
+#
+# don't update non-changing records in part_svc (causing harmless but annoying
+# "Records identical" errors). ivan@sisd.com 98-feb-19
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# Added `|| 0 ' when getting quantity off web page ivan@sisd.com 98-jun-4
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::part_pkg qw(fields);
+use FS::pkg_svc;
+use FS::CGI qw(eidiot);
+
+my($req)=new CGI::Request; # create form object
+
+&cgisuidsetup($req->cgi);
+
+my($pkgpart)=$req->param('pkgpart');
+
+my($old)=qsearchs('part_pkg',{'pkgpart'=>$pkgpart}) if $pkgpart;
+
+my($new)=create FS::part_pkg ( {
+ map {
+ $_, $req->param($_);
+ } fields('part_pkg')
+} );
+
+if ( $pkgpart ) {
+ my($error)=$new->replace($old);
+ eidiot($error) if $error;
+} else {
+ my($error)=$new->insert;
+ eidiot($error) if $error;
+ $pkgpart=$new->getfield('pkgpart');
+}
+
+my($part_svc);
+foreach $part_svc (qsearch('part_svc',{})) {
+# don't update non-changing records in part_svc (causing harmless but annoying
+# "Records identical" errors). ivan@sisd.com 98-jan-19
+ #my($quantity)=$req->param('pkg_svc'. $part_svc->getfield('svcpart')),
+ my($quantity)=$req->param('pkg_svc'. $part_svc->svcpart) || 0,
+ my($old_pkg_svc)=qsearchs('pkg_svc',{
+ 'pkgpart' => $pkgpart,
+ 'svcpart' => $part_svc->getfield('svcpart'),
+ });
+ my($old_quantity)=$old_pkg_svc ? $old_pkg_svc->quantity : 0;
+ next unless $old_quantity != $quantity; #!here
+ my($new_pkg_svc)=create FS::pkg_svc({
+ 'pkgpart' => $pkgpart,
+ 'svcpart' => $part_svc->getfield('svcpart'),
+ #'quantity' => $req->param('pkg_svc'. $part_svc->getfield('svcpart')),
+ 'quantity' => $quantity,
+ });
+ if ($old_pkg_svc) {
+ my($error)=$new_pkg_svc->replace($old_pkg_svc);
+ eidiot($error) if $error;
+ } else {
+ my($error)=$new_pkg_svc->insert;
+ eidiot($error) if $error;
+ }
+}
+
+#$req->cgi->redirect("../../view/part_pkg.cgi?$pkgpart");
+#$req->cgi->redirect("../../edit/part_pkg.cgi?$pkgpart");
+$req->cgi->redirect("../../browse/part_pkg.cgi");
+
diff --git a/htdocs/edit/process/part_referral.cgi b/htdocs/edit/process/part_referral.cgi
new file mode 100755
index 000000000..08a4c01d0
--- /dev/null
+++ b/htdocs/edit/process/part_referral.cgi
@@ -0,0 +1,45 @@
+#!/usr/bin/perl -Tw
+#
+# process/part_referral.cgi: Edit referrals (process form)
+#
+# ivan@sisd.com 98-feb-23
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearchs);
+use FS::part_referral qw(fields);
+use FS::CGI qw(eidiot);
+use FS::CGI qw(eidiot);
+
+my($req)=new CGI::Request; # create form object
+
+&cgisuidsetup($req->cgi);
+
+my($refnum)=$req->param('refnum');
+
+my($new)=create FS::part_referral ( {
+ map {
+ $_, $req->param($_);
+ } fields('part_referral')
+} );
+
+if ( $refnum ) {
+ my($old)=qsearchs('part_referral',{'refnum'=>$refnum});
+ eidiot("(Old) Record not found!") unless $old;
+ my($error)=$new->replace($old);
+ eidiot($error) if $error;
+} else {
+ my($error)=$new->insert;
+ eidiot($error) if $error;
+}
+
+$refnum=$new->getfield('refnum');
+$req->cgi->redirect("../../browse/part_referral.cgi");
+
diff --git a/htdocs/edit/process/part_svc.cgi b/htdocs/edit/process/part_svc.cgi
new file mode 100755
index 000000000..0f0fbc6e8
--- /dev/null
+++ b/htdocs/edit/process/part_svc.cgi
@@ -0,0 +1,47 @@
+#!/usr/bin/perl -Tw
+#
+# process/part_svc.cgi: Edit service definitions (process form)
+#
+# ivan@sisd.com 97-nov-14
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearchs);
+use FS::part_svc qw(fields);
+use FS::CGI qw(eidiot);
+
+my($req)=new CGI::Request; # create form object
+
+&cgisuidsetup($req->cgi);
+
+my($svcpart)=$req->param('svcpart');
+
+my($old)=qsearchs('part_svc',{'svcpart'=>$svcpart}) if $svcpart;
+
+my($new)=create FS::part_svc ( {
+ map {
+ $_, $req->param($_);
+# } qw(svcpart svc svcdb)
+ } fields('part_svc')
+} );
+
+if ( $svcpart ) {
+ my($error)=$new->replace($old);
+ eidiot($error) if $error;
+} else {
+ my($error)=$new->insert;
+ eidiot($error) if $error;
+ $svcpart=$new->getfield('svcpart');
+}
+
+#$req->cgi->redirect("../../view/part_svc.cgi?$svcpart");
+#$req->cgi->redirect("../../edit/part_svc.cgi?$svcpart");
+$req->cgi->redirect("../../browse/part_svc.cgi");
+
diff --git a/htdocs/edit/process/svc_acct_pop.cgi b/htdocs/edit/process/svc_acct_pop.cgi
new file mode 100755
index 000000000..18d7940b4
--- /dev/null
+++ b/htdocs/edit/process/svc_acct_pop.cgi
@@ -0,0 +1,43 @@
+#!/usr/bin/perl -Tw
+#
+# process/svc_acct_pop.cgi: Edit POP (process form)
+#
+# ivan@sisd.com 98-mar-8
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Request;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::svc_acct_pop qw(fields);
+use FS::CGI qw(eidiot);
+
+my($req)=new CGI::Request; # create form object
+
+&cgisuidsetup($req->cgi);
+
+my($popnum)=$req->param('popnum');
+
+my($old)=qsearchs('svc_acct_pop',{'popnum'=>$popnum}) if $popnum;
+
+my($new)=create FS::svc_acct_pop ( {
+ map {
+ $_, $req->param($_);
+ } fields('svc_acct_pop')
+} );
+
+if ( $popnum ) {
+ my($error)=$new->replace($old);
+ eidiot($error) if $error;
+} else {
+ my($error)=$new->insert;
+ eidiot($error) if $error;
+ $popnum=$new->getfield('popnum');
+}
+$req->cgi->redirect("../../browse/svc_acct_pop.cgi");
+
diff --git a/htdocs/edit/svc_acct_pop.cgi b/htdocs/edit/svc_acct_pop.cgi
new file mode 100755
index 000000000..46d803f07
--- /dev/null
+++ b/htdocs/edit/svc_acct_pop.cgi
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -Tw
+#
+# svc_acct_pop.cgi: Add/Edit pop (output form)
+#
+# ivan@sisd.com 98-mar-8
+#
+# Changes to allow page to work at a relative position in server
+# bmccane@maxbaud.net 98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+
+use strict;
+use CGI::Base;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs);
+use FS::svc_acct_pop;
+use FS::CGI qw(header menubar);
+
+my($cgi) = new CGI::Base;
+$cgi->get;
+
+&cgisuidsetup($cgi);
+
+SendHeaders(); # one guess.
+
+my($svc_acct_pop,$action);
+if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing
+ $svc_acct_pop=qsearchs('svc_acct_pop',{'popnum'=>$1});
+ $action='Edit';
+} else { #adding
+ $svc_acct_pop=create FS::svc_acct_pop {};
+ $action='Add';
+}
+my($hashref)=$svc_acct_pop->hashref;
+
+print header("$action POP", menubar(
+ 'Main Menu' => '../',
+ 'View all POPs' => "../browse/svc_acct_pop.cgi",
+)), <<END;
+ <FORM ACTION="process/svc_acct_pop.cgi" METHOD=POST>
+END
+
+#display
+
+print qq!<INPUT TYPE="hidden" NAME="popnum" VALUE="$hashref->{popnum}">!,
+ "POP #", $hashref->{popnum} ? $hashref->{popnum} : "(NEW)";
+
+print <<END;
+<PRE>
+City <INPUT TYPE="text" NAME="city" SIZE=32 VALUE="$hashref->{city}">
+State <INPUT TYPE="text" NAME="state" SIZE=3 MAXLENGTH=2 VALUE="$hashref->{state}">
+Area Code <INPUT TYPE="text" NAME="ac" SIZE=4 MAXLENGTH=3 VALUE="$hashref->{ac}">
+Exchange <INPUT TYPE="text" NAME="exch" SIZE=4 MAXLENGTH=3 VALUE="$hashref->{exch}">
+</PRE>
+END
+
+print qq!<BR><INPUT TYPE="submit" VALUE="!,
+ $hashref->{popnum} ? "Apply changes" : "Add POP",
+ qq!">!;
+
+print <<END;
+ </FORM>
+ </BODY>
+</HTML>
+END
+
generated by cgit v1.2.1 (git 2.18.0) at 2024-10-05 06:15:46 +0000