View | Details | Raw Unified | Return to bug 13392
Collapse All | Expand All

(-)a/C4/Suggestions.pm (+7 lines)
Lines 489-494 sub ModSuggestion { Link Here
489
            or $suggestion->{$field} eq '' );
489
            or $suggestion->{$field} eq '' );
490
    }
490
    }
491
491
492
    if ($suggestion->{STATUS} and $suggestion->{STATUS} eq 'ORDERED') {
493
        $suggestion->{ordereddate} = dt_from_string;
494
        if (C4::Context->userenv) {
495
            $suggestion->{orderedby} = C4::Context->userenv->{number};
496
        }
497
    }
498
492
    my $rs = Koha::Database->new->schema->resultset('Suggestion')->find($suggestion->{suggestionid});
499
    my $rs = Koha::Database->new->schema->resultset('Suggestion')->find($suggestion->{suggestionid});
493
    my $status_update_table = 1;
500
    my $status_update_table = 1;
494
    eval {
501
    eval {
(-)a/installer/data/mysql/atomicupdate/Bug-13392-add-suggestions-ordereddate-and-suggestions-orderedby.sql (+4 lines)
Line 0 Link Here
1
ALTER TABLE suggestions
2
ADD COLUMN orderedby INT(11) NULL DEFAULT NULL AFTER rejecteddate,
3
ADD COLUMN ordereddate DATE NULL DEFAULT NULL AFTER orderedby,
4
ADD CONSTRAINT suggestions_orderedby_fk FOREIGN KEY (orderedby) REFERENCES borrowers (borrowernumber) ON DELETE SET NULL ON UPDATE CASCADE;
(-)a/installer/data/mysql/kohastructure.sql (+3 lines)
Lines 2210-2215 CREATE TABLE `suggestions` ( -- purchase suggestions Link Here
2210
   accepteddate date default NULL, -- date the suggestion was marked as accepted
2210
   accepteddate date default NULL, -- date the suggestion was marked as accepted
2211
   rejectedby INT(11) default NULL, -- borrowernumber for the librarian who rejected the suggestion, foreign key linking to the borrowers table
2211
   rejectedby INT(11) default NULL, -- borrowernumber for the librarian who rejected the suggestion, foreign key linking to the borrowers table
2212
   rejecteddate date default NULL, -- date the suggestion was marked as rejected
2212
   rejecteddate date default NULL, -- date the suggestion was marked as rejected
2213
   orderedby INT(11) NULL DEFAULT NULL, -- borrowernumber for the librarian who ordered the suggestion
2214
   ordereddate DATE NULL DEFAULT NULL, -- date the suggestion was marked as ordered
2213
  `STATUS` varchar(10) NOT NULL default '', -- suggestion status (ASKED, CHECKED, ACCEPTED, or REJECTED)
2215
  `STATUS` varchar(10) NOT NULL default '', -- suggestion status (ASKED, CHECKED, ACCEPTED, or REJECTED)
2214
  `note` mediumtext, -- note entered on the suggestion
2216
  `note` mediumtext, -- note entered on the suggestion
2215
  `author` varchar(80) default NULL, -- author of the suggested item
2217
  `author` varchar(80) default NULL, -- author of the suggested item
Lines 2239-2244 CREATE TABLE `suggestions` ( -- purchase suggestions Link Here
2239
  KEY `biblionumber` (`biblionumber`),
2241
  KEY `biblionumber` (`biblionumber`),
2240
  KEY `branchcode` (`branchcode`),
2242
  KEY `branchcode` (`branchcode`),
2241
  CONSTRAINT `suggestions_budget_id_fk` FOREIGN KEY (`budgetid`) REFERENCES `aqbudgets` (`budget_id`) ON DELETE SET NULL ON UPDATE CASCADE
2243
  CONSTRAINT `suggestions_budget_id_fk` FOREIGN KEY (`budgetid`) REFERENCES `aqbudgets` (`budget_id`) ON DELETE SET NULL ON UPDATE CASCADE
2244
  CONSTRAINT suggestions_orderedby_fk FOREIGN KEY (orderedby) REFERENCES borrowers (borrowernumber) ON DELETE SET NULL ON UPDATE CASCADE
2242
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
2245
) ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci;
2243
2246
2244
--
2247
--
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/suggestion/suggestion.tt (+5 lines)
Lines 272-277 h4.local_collapse a { font-size : 80%; text-decoration: none; } fieldset.brief o Link Here
272
                <td>[% accepteddate | $KohaDates %]</td>
272
                <td>[% accepteddate | $KohaDates %]</td>
273
                <td>[% IF ( acceptedby_borrowernumber ) %]<a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% acceptedby_borrowernumber %]">[% acceptedby_surname %], [% acceptedby_firstname %]</a> [% Branches.GetName( acceptedby_branchcode ) %] ([% acceptedby_description %])[% END %]</td>
273
                <td>[% IF ( acceptedby_borrowernumber ) %]<a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% acceptedby_borrowernumber %]">[% acceptedby_surname %], [% acceptedby_firstname %]</a> [% Branches.GetName( acceptedby_branchcode ) %] ([% acceptedby_description %])[% END %]</td>
274
            </tr>
274
            </tr>
275
            <tr>
276
                <th><span class="label">Suggestion ordered</span></th>
277
                <td>[% ordereddate | $KohaDates %]</td>
278
                <td>[% IF ( orderedby_borrowernumber ) %]<a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% orderedby_borrowernumber %]">[% orderedby_surname %], [% orderedby_firstname %]</a> [% Branches.GetName( orderedby_branchcode ) %] ([% orderedby_description %])[% END %]</td>
279
            </tr>
275
            </tbody>
280
            </tbody>
276
        </table></li></ol>
281
        </table></li></ol>
277
    </fieldset>
282
    </fieldset>
(-)a/suggestion/suggestion.pl (-2 / +1 lines)
Lines 272-278 if ($op=~/else/) { Link Here
272
    );
272
    );
273
}
273
}
274
274
275
foreach my $element ( qw(managedby suggestedby acceptedby) ) {
275
foreach my $element ( qw(managedby suggestedby acceptedby orderedby) ) {
276
#    $debug || warn $$suggestion_ref{$element};
276
#    $debug || warn $$suggestion_ref{$element};
277
    if ($$suggestion_ref{$element}){
277
    if ($$suggestion_ref{$element}){
278
        my $member=GetMember(borrowernumber=>$$suggestion_ref{$element});
278
        my $member=GetMember(borrowernumber=>$$suggestion_ref{$element});
279
- 

Return to bug 13392