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 } ); |
457 |
- |
|
|