Lines 2026-2033
sub addroutingmember {
Link Here
|
2026 |
my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" ); |
2026 |
my $sth = $dbh->prepare( "SELECT max(ranking) rank FROM subscriptionroutinglist WHERE subscriptionid = ?" ); |
2027 |
$sth->execute($subscriptionid); |
2027 |
$sth->execute($subscriptionid); |
2028 |
while ( my $line = $sth->fetchrow_hashref ) { |
2028 |
while ( my $line = $sth->fetchrow_hashref ) { |
2029 |
if ( $line->{'rank'} > 0 ) { |
2029 |
if ( defined $line->{rank} && $line->{rank} > 0 ) { |
2030 |
$rank = $line->{'rank'} + 1; |
2030 |
$rank = $line->{rank} + 1; |
2031 |
} else { |
2031 |
} else { |
2032 |
$rank = 1; |
2032 |
$rank = 1; |
2033 |
} |
2033 |
} |
2034 |
- |
|
|