|
Lines 442-448
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 442 |
while ( my $subs = $sth->fetchrow_hashref ) { |
442 |
while ( my $subs = $sth->fetchrow_hashref ) { |
| 443 |
$subs->{startdate} = output_pref( { dt => dt_from_string( $subs->{startdate} ), dateonly => 1 } ); |
443 |
$subs->{startdate} = output_pref( { dt => dt_from_string( $subs->{startdate} ), dateonly => 1 } ); |
| 444 |
$subs->{histstartdate} = output_pref( { dt => dt_from_string( $subs->{histstartdate} ), dateonly => 1 } ); |
444 |
$subs->{histstartdate} = output_pref( { dt => dt_from_string( $subs->{histstartdate} ), dateonly => 1 } ); |
| 445 |
$subs->{histenddate} = output_pref( { dt => dt_from_string( $subs->{histenddate} ), dateonly => 1 } ); |
445 |
if ( defined $subs->{histenddate} ) { |
|
|
446 |
$subs->{histenddate} = output_pref( { dt => dt_from_string( $subs->{histenddate} ), dateonly => 1 } ); |
| 447 |
} else { |
| 448 |
$subs->{histenddate} = ""; |
| 449 |
} |
| 446 |
$subs->{opacnote} =~ s/\n/\<br\/\>/g; |
450 |
$subs->{opacnote} =~ s/\n/\<br\/\>/g; |
| 447 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
451 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
| 448 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
452 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
|
Lines 450-456
sub GetSubscriptionsFromBiblionumber {
Link Here
|
| 450 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
454 |
$subs->{ "numberpattern" . $subs->{numberpattern} } = 1; |
| 451 |
$subs->{ "status" . $subs->{'status'} } = 1; |
455 |
$subs->{ "status" . $subs->{'status'} } = 1; |
| 452 |
|
456 |
|
| 453 |
if ( $subs->{enddate} eq '0000-00-00' ) { |
457 |
if (not defined $subs->{enddate} ) { |
| 454 |
$subs->{enddate} = ''; |
458 |
$subs->{enddate} = ''; |
| 455 |
} else { |
459 |
} else { |
| 456 |
$subs->{enddate} = output_pref( { dt => dt_from_string( $subs->{enddate}), dateonly => 1 } ); |
460 |
$subs->{enddate} = output_pref( { dt => dt_from_string( $subs->{enddate}), dateonly => 1 } ); |