diff options
author | ivan <ivan> | 1998-09-03 02:00:49 +0000 |
---|---|---|
committer | ivan <ivan> | 1998-09-03 02:00:49 +0000 |
commit | 3c86cf59beb26bd3f8269a93ae1f641d88be53d1 (patch) | |
tree | 59a42cad3d5821d2bc9d9aa65569003478457f08 /htdocs/browse | |
parent | c2f38666a7aa746c560efcf64f72261ff8a1d2f2 (diff) |
Initial revision
Diffstat (limited to 'htdocs/browse')
-rwxr-xr-x | htdocs/browse/agent.cgi | 72 | ||||
-rwxr-xr-x | htdocs/browse/agent_type.cgi | 81 | ||||
-rwxr-xr-x | htdocs/browse/cust_main_county.cgi | 65 | ||||
-rwxr-xr-x | htdocs/browse/part_pkg.cgi | 81 | ||||
-rwxr-xr-x | htdocs/browse/part_referral.cgi | 57 | ||||
-rwxr-xr-x | htdocs/browse/part_svc.cgi | 81 | ||||
-rwxr-xr-x | htdocs/browse/svc_acct_pop.cgi | 63 |
7 files changed, 500 insertions, 0 deletions
diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi new file mode 100755 index 000000000..cf5f2281f --- /dev/null +++ b/htdocs/browse/agent.cgi @@ -0,0 +1,72 @@ +#!/usr/bin/perl -Tw +# +# agent.cgi: browse agent +# +# ivan@sisd.com 97-dec-12 +# +# changes to allow pages to load from a relative location in the web tree. +# bmccane@maxbaud.net 98-mar-25 +# +# changed 'type' to 'atype' because type is reserved word in Pg6.3 +# bmccane@maxbaud.net 98-apr-3 +# +# agent type was linking to wrong cgi ivan@sisd.com 98-jul-18 +# +# lose background, FS::CGI ivan@sisd.com 98-sep-2 + +use strict; +use CGI::Base; +use FS::UID qw(cgisuidsetup swapuid); +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('Agent Listing', menubar( + 'Main Menu' => '../', + 'Add new agent' => '../edit/agent.cgi' +)), <<END; + <BR> + Click on agent number to edit. + <TABLE BORDER> + <TR> + <TH><FONT SIZE=-1>Agent #</FONT></TH> + <TH>Agent</TH> + <TH>Type</TH> + <TH><FONT SIZE=-1>Freq. (unimp.)</FONT></TH> + <TH><FONT SIZE=-1>Prog. (unimp.)</FONT></TH> + </TR> +END + +my($agent); +foreach $agent ( sort { + $a->getfield('agentnum') <=> $b->getfield('agentnum') +} qsearch('agent',{}) ) { + my($hashref)=$agent->hashref; + my($typenum)=$hashref->{typenum}; + my($agent_type)=qsearchs('agent_type',{'typenum'=>$typenum}); + my($atype)=$agent_type->getfield('atype'); + print <<END; + <TR> + <TD><A HREF="../edit/agent.cgi?$hashref->{agentnum}"> + $hashref->{agentnum}</A></TD> + <TD>$hashref->{agent}</TD> + <TD><A HREF="../edit/agent_type.cgi?$typenum">$atype</A></TD> + <TD>$hashref->{freq}</TD> + <TD>$hashref->{prog}</TD> + </TR> +END + +} + +print <<END; + </TABLE> + </CENTER> + </BODY> +</HTML> +END + diff --git a/htdocs/browse/agent_type.cgi b/htdocs/browse/agent_type.cgi new file mode 100755 index 000000000..5f05bd514 --- /dev/null +++ b/htdocs/browse/agent_type.cgi @@ -0,0 +1,81 @@ +#!/usr/bin/perl -Tw +# +# agent_type.cgi: browse agent_type +# +# ivan@sisd.com 97-dec-10 +# +# Changes to allow page to work at a relative position in server +# Changes to make "Packages" display 2-wide in table (old way was too vertical) +# bmccane@maxbaud.net 98-apr-3 +# +# lose background, FS::CGI ivan@sisd.com 98-sep-2 + +use strict; +use CGI::Base; +use FS::UID qw(cgisuidsetup swapuid); +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("Agent Type Listing", menubar( + 'Main Menu' => '../', + 'Add new agent type' => "../edit/agent_type.cgi", +)), <<END; + <BR>Click on agent type number to edit. + <TABLE BORDER> + <TR> + <TH><FONT SIZE=-1>Type #</FONT></TH> + <TH>Type</TH> + <TH colspan="2">Packages</TH> + </TR> +END + +my($agent_type); +foreach $agent_type ( sort { + $a->getfield('typenum') <=> $b->getfield('typenum') +} qsearch('agent_type',{}) ) { + my($hashref)=$agent_type->hashref; + my(@type_pkgs)=qsearch('type_pkgs',{'typenum'=> $hashref->{typenum} }); + my($rowspan)=scalar(@type_pkgs); + $rowspan = int($rowspan/2+0.5) ; + print <<END; + <TR> + <TD ROWSPAN=$rowspan><A HREF="../edit/agent_type.cgi?$hashref->{typenum}"> + $hashref->{typenum} + </A></TD> + <TD ROWSPAN=$rowspan>$hashref->{atype}</TD> +END + + my($type_pkgs); + my($tdcount) = -1 ; + foreach $type_pkgs ( @type_pkgs ) { + my($pkgpart)=$type_pkgs->getfield('pkgpart'); + my($part_pkg) = qsearchs('part_pkg',{'pkgpart'=> $pkgpart }); + print qq!<TR>! if ($tdcount == 0) ; + $tdcount = 0 if ($tdcount == -1) ; + print qq!<TD><A HREF="../edit/part_pkg.cgi?$pkgpart">!, + $part_pkg->getfield('pkg'),"</A></TD>"; + $tdcount ++ ; + if ($tdcount == 2) + { + print qq!</TR>\n! ; + $tdcount = 0 ; + } + } + + print "</TR>"; +} + +print <<END; + </TR></TABLE> + </CENTER> + </BODY> +</HTML> +END + diff --git a/htdocs/browse/cust_main_county.cgi b/htdocs/browse/cust_main_county.cgi new file mode 100755 index 000000000..d615198c9 --- /dev/null +++ b/htdocs/browse/cust_main_county.cgi @@ -0,0 +1,65 @@ +#!/usr/bin/perl -Tw +# +# cust_main_county.cgi: browse cust_main_county +# +# ivan@sisd.com 97-dec-13 +# +# 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 FS::UID qw(cgisuidsetup swapuid); +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("Tax Rate Listing", menubar( + 'Main Menu' => '../', + 'Edit tax rates' => "../edit/cust_main_county.cgi", +)),<<END; + <BR>Click on <u>expand</u> to specify tax rates by county. + <P><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} + : qq!(ALL) <FONT SIZE=-1>!. + qq!<A HREF="../edit/cust_main_county-expand.cgi?!. $hashref->{taxnum}. + qq!">expand</A></FONT>! + , "</TD>"; + + print <<END; + <TD>$hashref->{tax}%</TD> + </TR> +END + +} + +print <<END; + </TABLE> + </CENTER> + </BODY> +</HTML> +END + diff --git a/htdocs/browse/part_pkg.cgi b/htdocs/browse/part_pkg.cgi new file mode 100755 index 000000000..e5ff31e9e --- /dev/null +++ b/htdocs/browse/part_pkg.cgi @@ -0,0 +1,81 @@ +#!/usr/bin/perl -Tw +# +# part_svc.cgi: browse part_pkg +# +# ivan@sisd.com 97-dec-5,9 +# +# 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 FS::UID qw(cgisuidsetup swapuid); +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("Package Part Listing",menubar( + 'Main Menu' => '../', + 'Add new package' => "../edit/part_pkg.cgi", +)), <<END; + <BR>Click on package part number to edit. + <TABLE BORDER> + <TR> + <TH><FONT SIZE=-1>Part #</FONT></TH> + <TH>Package</TH> + <TH>Comment</TH> + <TH><FONT SIZE=-1>Setup Fee</FONT></TH> + <TH><FONT SIZE=-1>Freq.</FONT></TH> + <TH><FONT SIZE=-1>Recur. Fee</FONT></TH> + <TH>Service</TH> + <TH><FONT SIZE=-1>Quan.</FONT></TH> + </TR> +END + +my($part_pkg); +foreach $part_pkg ( sort { + $a->getfield('pkgpart') <=> $b->getfield('pkgpart') +} qsearch('part_pkg',{}) ) { + my($hashref)=$part_pkg->hashref; + my(@pkg_svc)=grep $_->getfield('quantity'), + qsearch('pkg_svc',{'pkgpart'=> $hashref->{pkgpart} }); + my($rowspan)=scalar(@pkg_svc); + print <<END; + <TR> + <TD ROWSPAN=$rowspan><A HREF="../edit/part_pkg.cgi?$hashref->{pkgpart}"> + $hashref->{pkgpart} + </A></TD> + <TD ROWSPAN=$rowspan>$hashref->{pkg}</TD> + <TD ROWSPAN=$rowspan>$hashref->{comment}</TD> + <TD ROWSPAN=$rowspan>$hashref->{setup}</TD> + <TD ROWSPAN=$rowspan>$hashref->{freq}</TD> + <TD ROWSPAN=$rowspan>$hashref->{recur}</TD> +END + + my($pkg_svc); + foreach $pkg_svc ( @pkg_svc ) { + my($svcpart)=$pkg_svc->getfield('svcpart'); + my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart }); + print qq!<TD><A HREF="../edit/part_svc.cgi?$svcpart">!, + $part_svc->getfield('svc'),"</A></TD><TD>", + $pkg_svc->getfield('quantity'),"</TD></TR><TR>\n"; + } + + print "</TR>"; +} + +print <<END; + </TR></TABLE> + </CENTER> + </BODY> +</HTML> +END + diff --git a/htdocs/browse/part_referral.cgi b/htdocs/browse/part_referral.cgi new file mode 100755 index 000000000..b16fa896d --- /dev/null +++ b/htdocs/browse/part_referral.cgi @@ -0,0 +1,57 @@ +#!/usr/bin/perl -Tw +# +# part_referral.cgi: Browse part_referral +# +# 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::Base; +use FS::UID qw(cgisuidsetup swapuid); +use FS::Record qw(qsearch); +use FS::CGI qw(header menubar); + +my($cgi) = new CGI::Base; +$cgi->get; + +&cgisuidsetup($cgi); + +SendHeaders(); # one guess. +print header("Referral Listing", menubar( + 'Main Menu' => '../', + 'Add new referral' => "../edit/part_referral.cgi", +)), <<END; + <BR>Click on referral number to edit. + <TABLE BORDER> + <TR> + <TH><FONT SIZE=-1>Referral #</FONT></TH> + <TH>Referral</TH> + </TR> +END + +my($part_referral); +foreach $part_referral ( sort { + $a->getfield('refnum') <=> $b->getfield('refnum') +} qsearch('part_referral',{}) ) { + my($hashref)=$part_referral->hashref; + print <<END; + <TR> + <TD><A HREF="../edit/part_referral.cgi?$hashref->{refnum}"> + $hashref->{refnum}</A></TD> + <TD>$hashref->{referral}</TD> + </TR> +END + +} + +print <<END; + </TABLE> + </CENTER> + </BODY> +</HTML> +END + diff --git a/htdocs/browse/part_svc.cgi b/htdocs/browse/part_svc.cgi new file mode 100755 index 000000000..71a556421 --- /dev/null +++ b/htdocs/browse/part_svc.cgi @@ -0,0 +1,81 @@ +#!/usr/bin/perl -Tw +# +# part_svc.cgi: browse part_svc +# +# ivan@sisd.com 97-nov-14, 97-dec-9 +# +# 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 FS::UID qw(cgisuidsetup swapuid); +use FS::Record qw(qsearch); +use FS::part_svc qw(fields); +use FS::CGI qw(header menubar); + +my($cgi) = new CGI::Base; +$cgi->get; + +&cgisuidsetup($cgi); + +SendHeaders(); # one guess. +print header('Service Part Listing', menubar( + 'Main Menu' => '../', + 'Add new service' => "../edit/part_svc.cgi", +)),<<END; + <BR>Click on service part number to edit. + <TABLE BORDER> + <TR> + <TH>Part #</TH> + <TH>Service</TH> + <TH>Table</TH> + <TH>Field</TH> + <TH>Action</TH> + <TH>Value</TH> + </TR> +END + +my($part_svc); +foreach $part_svc ( sort { + $a->getfield('svcpart') <=> $b->getfield('svcpart') +} qsearch('part_svc',{}) ) { + my($hashref)=$part_svc->hashref; + my($svcdb)=$hashref->{svcdb}; + my(@rows)= + grep $hashref->{${svcdb}.'__'.$_.'_flag'}, + map { /^${svcdb}__(.*)$/; $1 } + grep ! /_flag$/, + grep /^${svcdb}__/, + fields('part_svc') + ; + my($rowspan)=scalar(@rows); + print <<END; + <TR> + <TD ROWSPAN=$rowspan><A HREF="../edit/part_svc.cgi?$hashref->{svcpart}"> + $hashref->{svcpart} + </A></TD> + <TD ROWSPAN=$rowspan>$hashref->{svc}</TD> + <TD ROWSPAN=$rowspan>$hashref->{svcdb}</TD> +END + my($row); + foreach $row ( @rows ) { + my($flag)=$part_svc->getfield($svcdb.'__'.$row.'_flag'); + print "<TD>$row</TD><TD>"; + if ( $flag eq "D" ) { print "Default"; } + elsif ( $flag eq "F" ) { print "Fixed"; } + else { print "(Unknown!)"; } + print "</TD><TD>",$part_svc->getfield($svcdb."__".$row),"</TD></TR><TR>"; + } +print "</TR>"; +} + +print <<END; + </TABLE> + </CENTER> + </BODY> +</HTML> +END + diff --git a/htdocs/browse/svc_acct_pop.cgi b/htdocs/browse/svc_acct_pop.cgi new file mode 100755 index 000000000..a8a3a9224 --- /dev/null +++ b/htdocs/browse/svc_acct_pop.cgi @@ -0,0 +1,63 @@ +#!/usr/bin/perl -Tw +# +# svc_acct_pop.cgi: browse pops +# +# 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 FS::UID qw(cgisuidsetup swapuid); +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('POP Listing', menubar( + 'Main Menu' => '../', + 'Add new POP' => "../edit/svc_acct_pop.cgi", +)), <<END; + <BR>Click on pop number to edit. + <TABLE BORDER> + <TR> + <TH><FONT SIZE=-1>POP #</FONT></TH> + <TH>City</TH> + <TH>State</TH> + <TH>Area code</TH> + <TH>Exchange</TH> + </TR> +END + +my($svc_acct_pop); +foreach $svc_acct_pop ( sort { + $a->getfield('popnum') <=> $b->getfield('popnum') +} qsearch('svc_acct_pop',{}) ) { + my($hashref)=$svc_acct_pop->hashref; + print <<END; + <TR> + <TD><A HREF="../edit/svc_acct_pop.cgi?$hashref->{popnum}"> + $hashref->{popnum}</A></TD> + <TD>$hashref->{city}</TD> + <TD>$hashref->{state}</TD> + <TD>$hashref->{ac}</TD> + <TD>$hashref->{exch}</TD> + </TR> +END + +} + +print <<END; + </TABLE> + </CENTER> + </BODY> +</HTML> +END + |