Lines 48-59
BEGIN {
Link Here
|
48 |
&GetNotifyId |
48 |
&GetNotifyId |
49 |
&NumberNotifyId |
49 |
&NumberNotifyId |
50 |
&AmountNotify |
50 |
&AmountNotify |
51 |
&UpdateAccountLines |
|
|
52 |
&UpdateFine |
51 |
&UpdateFine |
53 |
&GetOverdueDelays |
52 |
&GetOverdueDelays |
54 |
&GetOverduerules |
53 |
&GetOverduerules |
55 |
&GetFine |
54 |
&GetFine |
56 |
&CreateItemAccountLine |
|
|
57 |
&ReplacementCost2 |
55 |
&ReplacementCost2 |
58 |
|
56 |
|
59 |
&CheckItemNotify |
57 |
&CheckItemNotify |
Lines 602-612
sub UpdateFine {
Link Here
|
602 |
my $nextaccntno = C4::Accounts::getnextacctno($borrowernumber); |
600 |
my $nextaccntno = C4::Accounts::getnextacctno($borrowernumber); |
603 |
my $desc = ($type ? "$type " : '') . "$title $due"; # FIXEDME, avoid whitespace prefix on empty $type |
601 |
my $desc = ($type ? "$type " : '') . "$title $due"; # FIXEDME, avoid whitespace prefix on empty $type |
604 |
my $query = "INSERT INTO accountlines |
602 |
my $query = "INSERT INTO accountlines |
605 |
(borrowernumber,itemnumber,date,amount,description,accounttype,amountoutstanding,lastincrement,accountno) |
603 |
(borrowernumber,itemnumber,date,amount,description,accounttype,amountoutstanding,lastincrement,accountno,branchcode) |
606 |
VALUES (?,?,now(),?,?,'FU',?,?,?)"; |
604 |
VALUES (?,?,now(),?,?,'FU',?,?,?,?)"; |
607 |
my $sth2 = $dbh->prepare($query); |
605 |
my $sth2 = $dbh->prepare($query); |
608 |
$debug and print STDERR "UpdateFine query: $query\nw/ args: $borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno\n"; |
606 |
$debug and print STDERR "UpdateFine query: $query\nw/ args: $borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno\n"; |
609 |
$sth2->execute($borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno); |
607 |
$sth2->execute($borrowernumber, $itemnum, $amount, $desc, $amount, $amount, $nextaccntno, C4::Context->userenv->{'branch'}); |
610 |
} |
608 |
} |
611 |
# logging action |
609 |
# logging action |
612 |
&logaction( |
610 |
&logaction( |
Lines 865-968
sub GetNotifyId {
Link Here
|
865 |
return ($notify_id); |
863 |
return ($notify_id); |
866 |
} |
864 |
} |
867 |
|
865 |
|
868 |
=head2 CreateItemAccountLine |
|
|
869 |
|
870 |
() = &CreateItemAccountLine($borrowernumber, $itemnumber, $date, $amount, |
871 |
$description, $accounttype, $amountoutstanding, |
872 |
$timestamp, $notify_id, $level); |
873 |
|
874 |
update the account lines with file number or with file level |
875 |
|
876 |
C<$items> is a reference-to-hash whose keys are all of the fields |
877 |
from the items tables of the Koha database. Thus, |
878 |
|
879 |
C<$itemnumber> contains the item number |
880 |
|
881 |
C<$borrowernumber> contains the borrower number |
882 |
|
883 |
C<$date> contains the date of the day |
884 |
|
885 |
C<$amount> contains item price |
886 |
|
887 |
C<$description> contains the descritpion of accounttype |
888 |
|
889 |
C<$accounttype> contains the account type |
890 |
|
891 |
C<$amountoutstanding> contains the $amountoutstanding |
892 |
|
893 |
C<$timestamp> contains the timestamp with time and the date of the day |
894 |
|
895 |
C<$notify_id> contains the file number |
896 |
|
897 |
C<$level> contains the file level |
898 |
|
899 |
=cut |
900 |
|
901 |
sub CreateItemAccountLine { |
902 |
my ( |
903 |
$borrowernumber, $itemnumber, $date, $amount, |
904 |
$description, $accounttype, $amountoutstanding, $timestamp, |
905 |
$notify_id, $level |
906 |
) = @_; |
907 |
my $dbh = C4::Context->dbh; |
908 |
my $nextaccntno = C4::Accounts::getnextacctno($borrowernumber); |
909 |
my $query = "INSERT into accountlines |
910 |
(borrowernumber,accountno,itemnumber,date,amount,description,accounttype,amountoutstanding,timestamp,notify_id,notify_level) |
911 |
VALUES |
912 |
(?,?,?,?,?,?,?,?,?,?,?)"; |
913 |
|
914 |
my $sth = $dbh->prepare($query); |
915 |
$sth->execute( |
916 |
$borrowernumber, $nextaccntno, $itemnumber, |
917 |
$date, $amount, $description, |
918 |
$accounttype, $amountoutstanding, $timestamp, |
919 |
$notify_id, $level |
920 |
); |
921 |
} |
922 |
|
923 |
=head2 UpdateAccountLines |
924 |
|
925 |
() = &UpdateAccountLines($notify_id,$notify_level,$borrowernumber,$itemnumber); |
926 |
|
927 |
update the account lines with file number or with file level |
928 |
|
929 |
C<$items> is a reference-to-hash whose keys are all of the fields |
930 |
from the items tables of the Koha database. Thus, |
931 |
|
932 |
C<$itemnumber> contains the item number |
933 |
|
934 |
C<$notify_id> contains the file number |
935 |
|
936 |
C<$notify_level> contains the file level |
937 |
|
938 |
C<$borrowernumber> contains the borrowernumber |
939 |
|
940 |
=cut |
941 |
|
942 |
sub UpdateAccountLines { |
943 |
my ( $notify_id, $notify_level, $borrowernumber, $itemnumber ) = @_; |
944 |
my $query; |
945 |
if ( $notify_id eq '' ) { |
946 |
$query = qq|UPDATE accountlines |
947 |
SET notify_level=? |
948 |
WHERE borrowernumber=? AND itemnumber=? |
949 |
AND (accounttype='FU' or accounttype='O')|; |
950 |
} else { |
951 |
$query = qq|UPDATE accountlines |
952 |
SET notify_id=?, notify_level=? |
953 |
WHERE borrowernumber=? |
954 |
AND itemnumber=? |
955 |
AND (accounttype='FU' or accounttype='O')|; |
956 |
} |
957 |
|
958 |
my $sth = C4::Context->dbh->prepare($query); |
959 |
if ( $notify_id eq '' ) { |
960 |
$sth->execute( $notify_level, $borrowernumber, $itemnumber ); |
961 |
} else { |
962 |
$sth->execute( $notify_id, $notify_level, $borrowernumber, $itemnumber ); |
963 |
} |
964 |
} |
965 |
|
966 |
=head2 GetItems |
866 |
=head2 GetItems |
967 |
|
867 |
|
968 |
($items) = &GetItems($itemnumber); |
868 |
($items) = &GetItems($itemnumber); |