summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2001-10-22 15:59:31 +0000
committerfukachan <fukachan>2001-10-22 15:59:31 +0000
commitff39065b415cf1f664f2d80789039b0b9bdfd88d (patch)
treebf6ea9e5fa86b05e45b6570167fdbff96a9cd73f
parenta3afe5363dc7357d31cc3580cdbdb82489b25244 (diff)
downloadfml8-ff39065b415cf1f664f2d80789039b0b9bdfd88d.tar.gz
fml8-ff39065b415cf1f664f2d80789039b0b9bdfd88d.tar.bz2
fml8-ff39065b415cf1f664f2d80789039b0b9bdfd88d.zip
oops back to 1.22 (save $id info in PCB) in some sense:
$self->_pcb_set_id($curproc, $id) -> $pcb->set('article', 'id', $id)
-rw-r--r--fml/lib/FML/Ticket/Model/minimal_states.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/fml/lib/FML/Ticket/Model/minimal_states.pm b/fml/lib/FML/Ticket/Model/minimal_states.pm
index 162a9a43..f6cc96c9 100644
--- a/fml/lib/FML/Ticket/Model/minimal_states.pm
+++ b/fml/lib/FML/Ticket/Model/minimal_states.pm
@@ -128,6 +128,7 @@ sub assign
my $config = $curproc->{ config };
my $header = $curproc->{ incoming_message }->{ header };
my $subject = $header->get('subject');
+ my $pcb = $curproc->{ pcb };
use FML::Header::Subject;
my $is_reply = FML::Header::Subject->is_reply( $subject );
@@ -179,6 +180,8 @@ sub assign
# O.K. rewrite Subject: of the article to distribute
unless ($self->error) {
my $header = $curproc->{ article }->{ header };
+
+ $pcb->set('article', 'id', $id); # save $id info in PCB
$self->_rewrite_header($header, $config, $id);
$self->_set_status_info("newly assigned");
}