=cut
sub cust_fields {
- my $svc_x = shift;
- warn "FS::UI::Web::cust_fields called for $svc_x ".
+ my $record = shift;
+ warn "FS::UI::Web::cust_fields called for $record ".
"(cust_fields: @cust_fields)"
if $DEBUG > 1;
my $seen_unlinked = 0;
map {
- if ( $svc_x->custnum ) {
- warn " $svc_x -> $_"
+ if ( $record->custnum ) {
+ warn " $record -> $_"
if $DEBUG > 1;
- $svc_x->$_(@_);
+ $record->$_(@_);
} else {
- warn " ($svc_x unlinked)"
+ warn " ($record unlinked)"
if $DEBUG > 1;
$seen_unlinked++ ? '' : '(unlinked)';
}
# _upgrade_data
#
# Used by FS::Upgrade to migrate to a new database.
-#
-#
use FS::UID qw( driver_name dbh );
# '';
#}
+#false laziness w/part_pkg & cdr
foreach my $INC ( @INC ) {
foreach my $file ( glob("$INC/FS/part_export/*.pm") ) {
warn "attempting to load export info from $file\n" if $DEBUG;
=cut
+#false laziness w/part_export & cdr
my %info;
foreach my $INC ( @INC ) {
warn "globbing $INC/FS/part_pkg/*.pm\n" if $DEBUG;
next;
}
unless ( keys %$info ) {
- warn "no %info hash found in FS::part_pkg::$mod, skipping\n"
- unless $mod =~ /^(passwdfile|null)$/; #hack but what the heck
+ warn "no %info hash found in FS::part_pkg::$mod, skipping\n";
next;
}
warn "got plan info from FS::part_pkg::$mod: $info\n" if $DEBUG;
}
tie %plans, 'Tie::IxHash',
- map { $_ => $info{$_} }
+ map { $_ => $info{$_} }
sort { $info{$a}->{'weight'} <=> $info{$b}->{'weight'} }
keys %info;
$recref->{_password} = $1.$2;
} else {
- return 'Illegal (crypt-encoded) password';
+ return 'Illegal (crypt-encoded) password: '. $recref->{_password};
}
} elsif ( $recref->{_password_encoding} eq 'plain' ) {