|
Lines 467-475
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 467 |
$sth->execute($biblionumber); |
467 |
$sth->execute($biblionumber); |
| 468 |
my @res; |
468 |
my @res; |
| 469 |
while ( my $subs = $sth->fetchrow_hashref ) { |
469 |
while ( my $subs = $sth->fetchrow_hashref ) { |
| 470 |
$subs->{startdate} = output_pref( { dt => dt_from_string( $subs->{startdate}), dateonly => 1 } ); |
470 |
$subs->{startdate} = output_pref( { dt => dt_from_string( $subs->{startdate}), dateonly => 1 } ); |
| 471 |
$subs->{histstartdate} = output_pref( { dt => dt_from_string( $subs->{startdate}), dateonly => 1 } ); |
471 |
$subs->{histstartdate} = output_pref( { dt => dt_from_string( $subs->{startdate}), dateonly => 1 } ); |
| 472 |
$subs->{histenddate} = output_pref( { dt => dt_from_string( $subs->{startdate}), dateonly => 1 } ); |
472 |
$subs->{histenddate} = output_pref( { dt => dt_from_string( $subs->{startdate}), dateonly => 1 } ); |
| 473 |
$subs->{opacnote} =~ s/\n/\<br\/\>/g; |
473 |
$subs->{opacnote} =~ s/\n/\<br\/\>/g; |
| 474 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
474 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
| 475 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
475 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
|
Lines 1631-1638
sub ItemizeSerials {
Link Here
|
| 1631 |
$sth->execute( $data->{'biblionumber'} ); |
1631 |
$sth->execute( $data->{'biblionumber'} ); |
| 1632 |
my $biblioitem = $sth->fetchrow_hashref; |
1632 |
my $biblioitem = $sth->fetchrow_hashref; |
| 1633 |
$biblioitem->{'volumedate'} = $data->{planneddate}; |
1633 |
$biblioitem->{'volumedate'} = $data->{planneddate}; |
| 1634 |
my $tmpPlannedDate = output_pref( { dt => dt_from_string( $data->{planneddate} ), dateonly => 1 } ); |
1634 |
$biblioitem->{'volumeddesc'} = $data->{serialseq} . ' (' . output_pref( { dt => dt_from_string( $data->{planneddate} ), dateonly => 1 } ) . ')'; |
| 1635 |
$biblioitem->{'volumeddesc'} = $data->{serialseq} . ' (' . $tmpPlannedDate. ')'; |
|
|
| 1636 |
$biblioitem->{'dewey'} = $info->{itemcallnumber}; |
1635 |
$biblioitem->{'dewey'} = $info->{itemcallnumber}; |
| 1637 |
} |
1636 |
} |
| 1638 |
} |
1637 |
} |