|
Lines 202-209
sub ModBranch {
Link Here
|
| 202 |
(branchcode,branchname,branchaddress1, |
202 |
(branchcode,branchname,branchaddress1, |
| 203 |
branchaddress2,branchaddress3,branchzip,branchcity,branchstate, |
203 |
branchaddress2,branchaddress3,branchzip,branchcity,branchstate, |
| 204 |
branchcountry,branchphone,branchfax,branchemail, |
204 |
branchcountry,branchphone,branchfax,branchemail, |
| 205 |
branchurl,branchip,branchprinter,branchnotes,opac_info) |
205 |
branchurl,branchip,branchprinter,branchnotes,opac_info, |
| 206 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
206 |
branchreplyto, branchreturnpath) |
|
|
207 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) |
| 207 |
"; |
208 |
"; |
| 208 |
my $sth = $dbh->prepare($query); |
209 |
my $sth = $dbh->prepare($query); |
| 209 |
$sth->execute( |
210 |
$sth->execute( |
|
Lines 216-221
sub ModBranch {
Link Here
|
| 216 |
$data->{'branchemail'}, $data->{'branchurl'}, |
217 |
$data->{'branchemail'}, $data->{'branchurl'}, |
| 217 |
$data->{'branchip'}, $data->{'branchprinter'}, |
218 |
$data->{'branchip'}, $data->{'branchprinter'}, |
| 218 |
$data->{'branchnotes'}, $data->{opac_info}, |
219 |
$data->{'branchnotes'}, $data->{opac_info}, |
|
|
220 |
$data->{'branchreplyto'}, $data->{'branchreturnpath'} |
| 219 |
); |
221 |
); |
| 220 |
return 1 if $dbh->err; |
222 |
return 1 if $dbh->err; |
| 221 |
} else { |
223 |
} else { |
|
Lines 225-231
sub ModBranch {
Link Here
|
| 225 |
branchaddress2=?,branchaddress3=?,branchzip=?, |
227 |
branchaddress2=?,branchaddress3=?,branchzip=?, |
| 226 |
branchcity=?,branchstate=?,branchcountry=?,branchphone=?, |
228 |
branchcity=?,branchstate=?,branchcountry=?,branchphone=?, |
| 227 |
branchfax=?,branchemail=?,branchurl=?,branchip=?, |
229 |
branchfax=?,branchemail=?,branchurl=?,branchip=?, |
| 228 |
branchprinter=?,branchnotes=?,opac_info=? |
230 |
branchprinter=?,branchnotes=?,opac_info=?, |
|
|
231 |
branchreplyto=?, branchreturnpath=? |
| 229 |
WHERE branchcode=? |
232 |
WHERE branchcode=? |
| 230 |
"; |
233 |
"; |
| 231 |
my $sth = $dbh->prepare($query); |
234 |
my $sth = $dbh->prepare($query); |
|
Lines 239-244
sub ModBranch {
Link Here
|
| 239 |
$data->{'branchemail'}, $data->{'branchurl'}, |
242 |
$data->{'branchemail'}, $data->{'branchurl'}, |
| 240 |
$data->{'branchip'}, $data->{'branchprinter'}, |
243 |
$data->{'branchip'}, $data->{'branchprinter'}, |
| 241 |
$data->{'branchnotes'}, $data->{opac_info}, |
244 |
$data->{'branchnotes'}, $data->{opac_info}, |
|
|
245 |
$data->{'branchreplyto'}, $data->{'branchreturnpath'}, |
| 242 |
$data->{'branchcode'}, |
246 |
$data->{'branchcode'}, |
| 243 |
); |
247 |
); |
| 244 |
} |
248 |
} |