Lines 483-489
sub GetSubscriptionsFromBiblionumber {
Link Here
|
483 |
$subs->{startdate} = format_date( $subs->{startdate} ); |
483 |
$subs->{startdate} = format_date( $subs->{startdate} ); |
484 |
$subs->{histstartdate} = format_date( $subs->{histstartdate} ); |
484 |
$subs->{histstartdate} = format_date( $subs->{histstartdate} ); |
485 |
$subs->{histenddate} = format_date( $subs->{histenddate} ); |
485 |
$subs->{histenddate} = format_date( $subs->{histenddate} ); |
486 |
$subs->{opacnote} =~ s/\n/\<br\/\>/g; |
486 |
$subs->{opacnote} . q{} =~ s/\n/\<br\/\>/g; |
487 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
487 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
488 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
488 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
489 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
489 |
$subs->{ "periodicity" . $subs->{periodicity} } = 1; |
Lines 1087-1095
sub ModSubscriptionHistory {
Link Here
|
1087 |
WHERE subscriptionid=? |
1087 |
WHERE subscriptionid=? |
1088 |
"; |
1088 |
"; |
1089 |
my $sth = $dbh->prepare($query); |
1089 |
my $sth = $dbh->prepare($query); |
1090 |
$recievedlist =~ s/^; //; |
1090 |
$recievedlist =~ s/^; //; |
1091 |
$missinglist =~ s/^; //; |
1091 |
$missinglist =~ s/^; //; |
1092 |
$opacnote =~ s/^; //; |
1092 |
$opacnote . q{} =~ s/^; //; |
1093 |
$sth->execute( $histstartdate, $enddate, $recievedlist, $missinglist, $opacnote, $librariannote, $subscriptionid ); |
1093 |
$sth->execute( $histstartdate, $enddate, $recievedlist, $missinglist, $opacnote, $librariannote, $subscriptionid ); |
1094 |
return $sth->rows; |
1094 |
return $sth->rows; |
1095 |
} |
1095 |
} |