|
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 |
- |
|
|