From 6991d4986df7fb3a6c7c49b5ae1b3713e87a16c4 Mon Sep 17 00:00:00 2001 From: ivan Date: Tue, 29 Jan 2002 16:33:16 +0000 Subject: - web interface for hourly account charges! (FS::cust_pkg, FS::cust_svc and FS::svc_acct seconds_since methods) - Makefile target to regenerate HTML manpages on install - FS.pm doc update - $FS::Record::Debug now dumps all SQL - new FS::cust_main methods: ->cancel, ->invoicing_list_addpost - start of a billing event web interface - cust_pay::upgrade_replace doesn't error out if history includes overapplied payments --- httemplate/browse/part_bill_event.cgi | 64 +++++++++++++++++++++++++++++++++++ 1 file changed, 64 insertions(+) create mode 100755 httemplate/browse/part_bill_event.cgi (limited to 'httemplate/browse/part_bill_event.cgi') diff --git a/httemplate/browse/part_bill_event.cgi b/httemplate/browse/part_bill_event.cgi new file mode 100755 index 000000000..f33997666 --- /dev/null +++ b/httemplate/browse/part_bill_event.cgi @@ -0,0 +1,64 @@ + +<% + +my %search; +if ( $cgi->param('showdisabled') ) { + %search = (); +} else { + %search = ( 'disabled' => '' ); +} + +my @part_bill_event = qsearch('part_bill_event', \%search ); +my $total = scalar(@part_bill_event); + +%> +<%= header('Invoice Event Listing', menubar( 'Main Menu' => $p) ) %> + + Invoice events are actions taken on overdue invoices.

+<%= $total %> events +<%= $cgi->param('showdisabled') + ? do { $cgi->param('showdisabled', 0); + '( hide disabled events )'; } + : do { $cgi->param('showdisabled', 1); + '( show disabled events )'; } +%> + + + + + + + + +<% foreach my $part_bill_event ( sort { $a->payby cmp $b->payby + || $a->seconds <=> $b->seconds + || $a->eventpart <=> $b->eventpart + } @part_bill_event ) { + my $url = "${p}edit/part_bill_event.cgi?". $part_bill_event->eventpart; + use Time::Duration; + my $delay = duration_exact($hashref->{seconds}); +%> + + +<% unless ( $cgi->param('showdisabled') ) { %> + +<% } %> + + + + + +<% } %> + + + + +
param('showdisabled') ? 2 : 3 %>>EventPaybyAfterCode
+ <%= $part_bill_event->eventpart %> + <%= $part_bill_event->disabled ? 'DISABLED' : '' %> + <%= $part_bill_event->event %> + <%= $part_bill_event->payby %> + <%= $delay %> + <%= $part_bill_event->eventcode %>
Add a new billing event
+ + -- cgit v1.2.1 From 1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 30 Jan 2002 14:18:09 +0000 Subject: remove use Module; and $cgi = new CGI; &cgisuidsetup(); from all templates. should work better under Mason. --- httemplate/browse/part_bill_event.cgi | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'httemplate/browse/part_bill_event.cgi') diff --git a/httemplate/browse/part_bill_event.cgi b/httemplate/browse/part_bill_event.cgi index f33997666..cd90bc1da 100755 --- a/httemplate/browse/part_bill_event.cgi +++ b/httemplate/browse/part_bill_event.cgi @@ -1,4 +1,4 @@ - + <% my %search; @@ -22,7 +22,7 @@ my $total = scalar(@part_bill_event); : do { $cgi->param('showdisabled', 1); '( show disabled events )'; } %> - +<%= table() %> @@ -32,11 +32,12 @@ my $total = scalar(@part_bill_event); <% foreach my $part_bill_event ( sort { $a->payby cmp $b->payby || $a->seconds <=> $b->seconds + || $a->weight <=> $b->weight || $a->eventpart <=> $b->eventpart } @part_bill_event ) { my $url = "${p}edit/part_bill_event.cgi?". $part_bill_event->eventpart; use Time::Duration; - my $delay = duration_exact($hashref->{seconds}); + my $delay = duration_exact($part_bill_event->seconds); %> + + @@ -38,6 +40,8 @@ my $total = scalar(@part_bill_event); my $url = "${p}edit/part_bill_event.cgi?". $part_bill_event->eventpart; use Time::Duration; my $delay = duration_exact($part_bill_event->seconds); + my $plandata = $part_bill_event->plandata; + $plandata =~ s/\n/
/go; %> + <%= $part_bill_event->plan %> + + <% } %> - +
param('showdisabled') ? 2 : 3 %>>Event Payby
-- cgit v1.2.1 From c7ff9a58360788ce776022606c4ec3496062013b Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 30 Jan 2002 18:22:54 +0000 Subject: fully working invoice event web interface --- httemplate/browse/part_bill_event.cgi | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'httemplate/browse/part_bill_event.cgi') diff --git a/httemplate/browse/part_bill_event.cgi b/httemplate/browse/part_bill_event.cgi index cd90bc1da..7ec8a181a 100755 --- a/httemplate/browse/part_bill_event.cgi +++ b/httemplate/browse/part_bill_event.cgi @@ -1,4 +1,4 @@ - + <% my %search; @@ -27,6 +27,8 @@ my $total = scalar(@part_bill_event); param('showdisabled') ? 2 : 3 %>>Event Payby AfterActionOptions Code
@@ -53,12 +57,16 @@ my $total = scalar(@part_bill_event); <%= $delay %> - <%= $part_bill_event->eventcode %> + <%= $plandata %> + <%= $part_bill_event->eventcode %>
Add a new billing eventAdd a new billing event
-- cgit v1.2.1 From c828daa905491e65deb30a2ed34af609cdb96b99 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 02:16:47 +0000 Subject: pro-rating w/ web interface, tested (closes: Bug#313). view/cust_bill.cgi invoice view shows invoice events! fix bug where adding events with no name silently failed instead of giving an error add new comission plans --- httemplate/browse/part_bill_event.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'httemplate/browse/part_bill_event.cgi') diff --git a/httemplate/browse/part_bill_event.cgi b/httemplate/browse/part_bill_event.cgi index 7ec8a181a..81228f2ea 100755 --- a/httemplate/browse/part_bill_event.cgi +++ b/httemplate/browse/part_bill_event.cgi @@ -1,4 +1,4 @@ - + <% my %search; @@ -66,7 +66,7 @@ my $total = scalar(@part_bill_event); <% } %> - Add a new billing event + Add a new invoice event -- cgit v1.2.1 From 22a35047ecdffff80110e06cc08fc84f9ddba9b0 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 13:21:31 +0000 Subject: removed from all files to fix any redirects, whew Mason handler.pl overrides CGI::redirect fixed strict; problems in edit/part_pkg.cgi & edit/process/part_pkg.cgi --- httemplate/browse/part_bill_event.cgi | 1 - 1 file changed, 1 deletion(-) (limited to 'httemplate/browse/part_bill_event.cgi') diff --git a/httemplate/browse/part_bill_event.cgi b/httemplate/browse/part_bill_event.cgi index 81228f2ea..d850ae556 100755 --- a/httemplate/browse/part_bill_event.cgi +++ b/httemplate/browse/part_bill_event.cgi @@ -1,4 +1,3 @@ - <% my %search; -- cgit v1.2.1 From a4c96748eb6eab29a70f3a944c6520283a635c78 Mon Sep 17 00:00:00 2001 From: ivan Date: Sun, 10 Feb 2002 16:05:22 +0000 Subject: *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. *finally* seems to be working under Mason. sheesh. --- httemplate/browse/part_bill_event.cgi | 1 + 1 file changed, 1 insertion(+) (limited to 'httemplate/browse/part_bill_event.cgi') diff --git a/httemplate/browse/part_bill_event.cgi b/httemplate/browse/part_bill_event.cgi index d850ae556..1d674f749 100755 --- a/httemplate/browse/part_bill_event.cgi +++ b/httemplate/browse/part_bill_event.cgi @@ -1,3 +1,4 @@ + <% my %search; -- cgit v1.2.1 From 6d02e527490b2f0cf080f7b519443caeecd76357 Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 4 Jul 2002 10:35:43 +0000 Subject: move "add" links to the top --- httemplate/browse/part_bill_event.cgi | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'httemplate/browse/part_bill_event.cgi') diff --git a/httemplate/browse/part_bill_event.cgi b/httemplate/browse/part_bill_event.cgi index 1d674f749..670474d48 100755 --- a/httemplate/browse/part_bill_event.cgi +++ b/httemplate/browse/part_bill_event.cgi @@ -15,6 +15,8 @@ my $total = scalar(@part_bill_event); <%= header('Invoice Event Listing', menubar( 'Main Menu' => $p) ) %> Invoice events are actions taken on overdue invoices.

+Add a new invoice event +

<%= $total %> events <%= $cgi->param('showdisabled') ? do { $cgi->param('showdisabled', 0); @@ -64,10 +66,6 @@ my $total = scalar(@part_bill_event); <%= $part_bill_event->eventcode %> <% } %> - - - Add a new invoice event - -- cgit v1.2.1