=cut
+#false laziness w/part_export.pm
sub insert {
my $self = shift;
|| $self->ut_enum('status',['', qw( new locked failed )])
|| $self->ut_textn('statustext')
|| $self->ut_numbern('svcnum')
- || $self->ut_foreign_keyn('svcnum', 'cust_svc', 'svcnum')
;
return $error if $error;
+ $error = $self->ut_foreign_keyn('svcnum', 'cust_svc', 'svcnum');
+ $self->svcnum('') if $error;
+
$self->status('new') unless $self->status;
$self->_date(time) unless $self->_date;
$status .= ': '. $queue->statustext if $queue->statustext;
if ( ! $noactions && $status =~ /^failed/ || $status =~ /^locked/ ) {
$status .=
- qq! ( <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
- qq! <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=del">remove </A> )!;
+ qq! ( <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=new">retry</A> |!.
+ qq! <A HREF="$p/misc/queue.cgi?jobnum=$jobnum&action=del">remove</A> )!;
}
my $cust_svc = $queue->cust_svc;
my $account;
=head1 VERSION
-$Id: queue.pm,v 1.4 2002-02-20 01:03:09 ivan Exp $
+$Id: queue.pm,v 1.7 2002-03-07 14:10:10 ivan Exp $
=head1 BUGS