Lines 483-488
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} ||= q{}; |
486 |
$subs->{opacnote} =~ s/\n/\<br\/\>/g; |
487 |
$subs->{opacnote} =~ s/\n/\<br\/\>/g; |
487 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
488 |
$subs->{missinglist} =~ s/\n/\<br\/\>/g; |
488 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
489 |
$subs->{recievedlist} =~ s/\n/\<br\/\>/g; |
Lines 1081-1086
returns the number of rows affected
Link Here
|
1081 |
|
1082 |
|
1082 |
sub ModSubscriptionHistory { |
1083 |
sub ModSubscriptionHistory { |
1083 |
my ( $subscriptionid, $histstartdate, $enddate, $recievedlist, $missinglist, $opacnote, $librariannote ) = @_; |
1084 |
my ( $subscriptionid, $histstartdate, $enddate, $recievedlist, $missinglist, $opacnote, $librariannote ) = @_; |
|
|
1085 |
|
1086 |
$recievedlist ||= q{}; |
1087 |
$missinglist ||= q{}; |
1088 |
$opacnote ||= q{}; |
1089 |
|
1084 |
my $dbh = C4::Context->dbh; |
1090 |
my $dbh = C4::Context->dbh; |
1085 |
my $query = "UPDATE subscriptionhistory |
1091 |
my $query = "UPDATE subscriptionhistory |
1086 |
SET histstartdate=?,histenddate=?,recievedlist=?,missinglist=?,opacnote=?,librariannote=? |
1092 |
SET histstartdate=?,histenddate=?,recievedlist=?,missinglist=?,opacnote=?,librariannote=? |