use strict;
use FS::Record qw( qsearch dbh );
+use FS::cust_event;
=head1 NAME
Delete this record from the database.
+=cut
+
+sub delete {
+ my $self = shift;
+
+ my $oldAutoCommit = $FS::UID::AutoCommit;
+ local $FS::UID::AutoCommit = 0;
+ my $dbh = dbh;
+
+ my $cust_bill_pkg = $self->cust_bill_pkg;
+ if ( $cust_bill_pkg ) {
+ my $error = $cust_bill_pkg->delete;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+ }
+
+ my $error = $self->SUPER::delete;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+
+ $dbh->commit or die $dbh->errstr if $oldAutoCommit;
+
+ '';
+
+}
+
=item replace OLD_RECORD
Replaces the OLD_RECORD with this one in the database. If there is an error,
}
}
+=item search_sql_where
+
+=cut
+
+sub search_sql_where {
+ my($class, $param) = @_;
+
+ my $where = FS::cust_event->search_sql_where( $param );
+
+ if ( $param->{'billpkgnum'} eq 'NULL' ) {
+ $where .= ' AND billpkgnum IS NULL';
+ } elsif ( $param->{'billpkgnum'} eq 'NOT NULL' ) {
+ $where .= ' AND billpkgnum IS NOT NULL';
+ }
+
+ $where;
+
+}
+
+=item join_sql
+
+=cut
+
+sub join_sql {
+ #my $class = shift;
+
+ ' LEFT JOIN cust_event USING (eventnum)
+ LEFT JOIN cust_bill_pkg USING (billpkgnum)
+ LEFT JOIN cust_bill AS fee_cust_bill USING (invnum)
+ LEFT JOIN part_fee ON (cust_event_fee.feepart = part_fee.feepart )
+ '. FS::cust_event->join_sql();
+
+}
+
=back
+=head1 SUBROUTINES
+
+=over 4
+
+=item process_delete
+
=cut
+sub process_delete {
+ my( $job, $param ) = @_;
+
+ my $search_sql = FS::cust_event_fee->search_sql_where($param);
+ my $where = $search_sql ? " WHERE $search_sql" : '';
+
+ my @cust_event_fee = qsearch({
+ 'table' => 'cust_event_fee',
+ 'addl_from' => FS::cust_event_fee->join_sql(),
+ 'hashref' => {},
+ 'extra_sql' => $where,
+ });
+
+ my( $num, $last, $min_sec ) = (0, time, 5); #progresbar foo
+ foreach my $cust_event_fee ( @cust_event_fee ) {
+
+ my $error = $cust_event_fee->delete;
+ die $error if $error;
+
+ if ( $job ) { #progressbar foo
+ $num++;
+ if ( time - $min_sec > $last ) {
+ my $error = $job->update_statustext(
+ int( 100 * $num / scalar(@cust_event_fee) )
+ );
+ die $error if $error;
+ $last = time;
+ }
+ }
+
+ }
+
+}
+
sub _upgrade_schema {
my ($class, %opts) = @_;
</%once>
<%shared>
my @scalars = qw(); #qw( agentnum status custnum invnum pkgnum failed );
-my @lists = qw( eventpart );
+my @lists = qw( eventpart billpkgnum );
my %search;
</%shared>
<%init>
$search{'beginning'} = $beginning;
$search{'ending'} = $ending;
-my $where = ' WHERE '. FS::cust_event->search_sql_where( \%search );
+my $where = ' WHERE '. FS::cust_event_fee->search_sql_where( \%search );
-if ( $cgi->param('billpkgnum') eq 'NULL' ) {
- $where .= ' AND billpkgnum IS NULL';
-} elsif ( $cgi->param('billpkgnum') eq 'NOT NULL' ) {
- $where .= ' AND billpkgnum IS NOT NULL';
-}
-
-my $join = '
- LEFT JOIN cust_event USING (eventnum)
- LEFT JOIN cust_bill_pkg USING (billpkgnum)
- LEFT JOIN cust_bill AS fee_cust_bill USING (invnum)
- LEFT JOIN part_fee ON (cust_event_fee.feepart = part_fee.feepart )
- '. FS::cust_event->join_sql();
+my $join = FS::cust_event_fee->join_sql();
my $sql_query = {
'table' => 'cust_event_fee',
};
my $count_sql = "SELECT COUNT(*) FROM cust_event_fee $join $where";
-warn join(',', FS::UI::Web::cust_sql_fields() );
my $conf = new FS::Conf;
my $menubar = [];
-
-if ( $curuser->access_right('Delete fees') ) {
-
-#XXX delete fee link
-
-# push @$menubar, 'Re-print these events' =>
-# "javascript:confirm_print_process()",
-# 'Re-email these events' =>
-# "javascript:confirm_email_process()",
-# ;
-#
-# push @$menubar, 'Re-fax these events' =>
-# "javascript:confirm_fax_process()"
-# if $conf->exists('hylafax');
-
-}
+push @$menubar, 'Delete these fees' => "javascript:confirm_delete_fees()"
+ if $curuser->access_right('Delete fees');
</%init>
<%def .init>
-% # action is part of the target URL, don't need to pass it as a param
-% foreach my $action (qw(print email fax)) {
<& /elements/progress-init.html,
- $action.'_form',
+ 'delete_fees_form',
[ @scalars, @lists, 'beginning', 'ending' ],
- "../misc/${action}_events.cgi",
- { 'message' => "Invoices re-${action}ed" }, #would be nice to show the number of them, but...
- $action.'_', #key
+ "../misc/delete_fees.cgi",
+ { 'message' => 'Fees deleted', #would be nice to show the number of them...
+ #what we were just displaying is gone, so where to go?
+ # woudl be nice to not keep displaying the deleted data
+ #'url' =>
+ },
&>
-<FORM NAME="<% $action %>_form">
+<FORM NAME="delete_fees_form">
% foreach my $param (@scalars, 'beginning', 'ending') {
<INPUT TYPE="hidden" NAME="<% $param %>" VALUE="<% $search{$param} |h %>">
% }
% }
% }
</FORM>
-% } # foreach $action
<SCRIPT TYPE="text/javascript">
-function confirm_print_process() {
- if ( ! confirm("Are you sure you want to reprint these invoices?") ) {
+function confirm_delete_fees() {
+ if ( ! confirm("Are you sure you want to delete these fees?") ) {
return;
}
- print_process();
-}
-function confirm_email_process() {
- if ( ! confirm("Are you sure you want to re-email these invoices?") ) {
- return;
- }
- email_process();
-}
-function confirm_fax_process() {
- if ( ! confirm("Are you sure you want to re-fax these invoices?") ) {
- return;
- }
- fax_process();
+ process();
}
+
</SCRIPT>
</%def>
projects / freeside.git / commitdiff