View | Details | Raw Unified | Return to bug 15631
Collapse All | Expand All

(-)a/C4/Members.pm (-21 lines)
Lines 66-72 BEGIN { Link Here
66
        &GetPendingIssues
66
        &GetPendingIssues
67
        &GetAllIssues
67
        &GetAllIssues
68
68
69
        &getzipnamecity
70
        &getidcity
69
        &getidcity
71
70
72
        &GetFirstValidEmailAddress
71
        &GetFirstValidEmailAddress
Lines 1357-1381 sub get_cardnumber_length { Link Here
1357
    return ( $min, $max );
1356
    return ( $min, $max );
1358
}
1357
}
1359
1358
1360
=head2 getzipnamecity (OUEST-PROVENCE)
1361
1362
take all info from table city for the fields city and  zip
1363
check for the name and the zip code of the city selected
1364
1365
=cut
1366
1367
sub getzipnamecity {
1368
    my ($cityid) = @_;
1369
    my $dbh      = C4::Context->dbh;
1370
    my $sth      =
1371
      $dbh->prepare(
1372
        "select city_name,city_state,city_zipcode,city_country from cities where cityid=? ");
1373
    $sth->execute($cityid);
1374
    my @data = $sth->fetchrow;
1375
    return $data[0], $data[1], $data[2], $data[3];
1376
}
1377
1378
1379
=head2 getdcity (OUEST-PROVENCE)
1359
=head2 getdcity (OUEST-PROVENCE)
1380
1360
1381
recover cityid  with city_name condition
1361
recover cityid  with city_name condition
1382
- 

Return to bug 15631