|
Lines 250-255
sub AddBiblio {
Link Here
|
| 250 |
my $dbh = C4::Context->dbh; |
250 |
my $dbh = C4::Context->dbh; |
| 251 |
|
251 |
|
| 252 |
# transform the data into koha-table style data |
252 |
# transform the data into koha-table style data |
|
|
253 |
SetUTF8Flag($record); |
| 253 |
my $olddata = TransformMarcToKoha( $dbh, $record, $frameworkcode ); |
254 |
my $olddata = TransformMarcToKoha( $dbh, $record, $frameworkcode ); |
| 254 |
( $biblionumber, $error ) = _koha_add_biblio( $dbh, $olddata, $frameworkcode ); |
255 |
( $biblionumber, $error ) = _koha_add_biblio( $dbh, $olddata, $frameworkcode ); |
| 255 |
$olddata->{'biblionumber'} = $biblionumber; |
256 |
$olddata->{'biblionumber'} = $biblionumber; |
|
Lines 294-299
sub ModBiblio {
Link Here
|
| 294 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted ); |
295 |
logaction( "CATALOGUING", "MODIFY", $biblionumber, "BEFORE=>" . $newrecord->as_formatted ); |
| 295 |
} |
296 |
} |
| 296 |
|
297 |
|
|
|
298 |
SetUTF8Flag($record); |
| 297 |
my $dbh = C4::Context->dbh; |
299 |
my $dbh = C4::Context->dbh; |
| 298 |
|
300 |
|
| 299 |
$frameworkcode = "" unless $frameworkcode; |
301 |
$frameworkcode = "" unless $frameworkcode; |
| 300 |
- |
|
|