diff options
author | ivan <ivan> | 2002-10-04 12:56:36 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-10-04 12:56:36 +0000 |
commit | 86f41071c9f7a088e89998b87b65822ca32d3bcd (patch) | |
tree | 2208746a35ed3c78cbc5bced0934e00e96be0739 /FS | |
parent | e98319438189ccb880db60393f0f8d63c0739e14 (diff) |
working on the road:
- easier "change package" link for changing one package to another
- sqlradius export now compatible with Pg
- indices on phone numbers
- install instructions specify Pg 7.1 (at least until ILIKE thing is changed)
- searching on phone number fragments
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_export/sqlradius.pm | 6 | ||||
-rw-r--r-- | FS/FS/type_pkgs.pm | 15 |
2 files changed, 17 insertions, 4 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm index 3c781c0..265f00c 100644 --- a/FS/FS/part_export/sqlradius.pm +++ b/FS/FS/part_export/sqlradius.pm @@ -187,8 +187,8 @@ sub sqlradius_insert { #subroutine, not method } else { my $i_sth = $dbh->prepare( - "INSERT INTO rad$table ( id, UserName, Attribute, Value ) ". - "VALUES ( ?, ?, ?, ? )" + "INSERT INTO rad$table ( UserName, Attribute, Value ) ". + "VALUES ( ?, ?, ? )" ) or die $dbh->errstr; $i_sth->execute( '', $username, $attribute, $attributes{$attribute} ) or die $i_sth->errstr; @@ -204,7 +204,7 @@ sub sqlradius_usergroup_insert { #subroutine, not method my( $username, @groups ) = @_; my $sth = $dbh->prepare( - "INSERT INTO usergroup ( id, UserName, GroupName ) VALUES ( ?, ?, ? )" + "INSERT INTO usergroup ( UserName, GroupName ) VALUES ( ?, ? )" ) or die $dbh->errstr; foreach my $group ( @groups ) { $sth->execute( '', $username, $group ) diff --git a/FS/FS/type_pkgs.pm b/FS/FS/type_pkgs.pm index 8e0d4ef..99a79b9 100644 --- a/FS/FS/type_pkgs.pm +++ b/FS/FS/type_pkgs.pm @@ -94,11 +94,24 @@ sub check { ''; #no error } +=item part_pkg + +Returns the FS::part_pkg object associated with this record. + +=cut + +sub part_pkg { + my $self = shift; + qsearchs( 'part_pkg', { 'pkgpart' => $self->pkgpart } ); +} + +=cut + =back =head1 VERSION -$Id: type_pkgs.pm,v 1.1 1999-08-04 09:03:53 ivan Exp $ +$Id: type_pkgs.pm,v 1.1.14.1 2002-10-04 12:56:35 ivan Exp $ =head1 BUGS |