|
Lines 36-41
BEGIN {
Link Here
|
| 36 |
|
36 |
|
| 37 |
Koha::Borrower::Files - Module for managing borrower files |
37 |
Koha::Borrower::Files - Module for managing borrower files |
| 38 |
|
38 |
|
|
|
39 |
=head1 METHODS |
| 40 |
|
| 41 |
=over |
| 42 |
|
| 39 |
=cut |
43 |
=cut |
| 40 |
|
44 |
|
| 41 |
sub new { |
45 |
sub new { |
|
Lines 75-82
sub GetFilesInfo {
Link Here
|
| 75 |
} |
79 |
} |
| 76 |
|
80 |
|
| 77 |
=item AddFile() |
81 |
=item AddFile() |
|
|
82 |
|
| 78 |
my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber ); |
83 |
my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber ); |
| 79 |
$bh->AddFile( name => $filename, type => $mimetype, description => $description, content => $content ); |
84 |
$bh->AddFile( name => $filename, type => $mimetype, |
|
|
85 |
description => $description, content => $content ); |
| 86 |
|
| 80 |
=cut |
87 |
=cut |
| 81 |
|
88 |
|
| 82 |
sub AddFile { |
89 |
sub AddFile { |
|
Lines 100-107
sub AddFile {
Link Here
|
| 100 |
} |
107 |
} |
| 101 |
|
108 |
|
| 102 |
=item GetFile() |
109 |
=item GetFile() |
|
|
110 |
|
| 103 |
my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber ); |
111 |
my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber ); |
| 104 |
my $file = $bh->GetFile( file_id => $file_id ); |
112 |
my $file = $bh->GetFile( file_id => $file_id ); |
|
|
113 |
|
| 105 |
=cut |
114 |
=cut |
| 106 |
|
115 |
|
| 107 |
sub GetFile { |
116 |
sub GetFile { |
|
Lines 119-126
sub GetFile {
Link Here
|
| 119 |
} |
128 |
} |
| 120 |
|
129 |
|
| 121 |
=item DelFile() |
130 |
=item DelFile() |
|
|
131 |
|
| 122 |
my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber ); |
132 |
my $bf = Koha::Borrower::Files->new( borrowernumber => $borrowernumber ); |
| 123 |
$bh->DelFile( file_id => $file_id ); |
133 |
$bh->DelFile( file_id => $file_id ); |
|
|
134 |
|
| 124 |
=cut |
135 |
=cut |
| 125 |
|
136 |
|
| 126 |
sub DelFile { |
137 |
sub DelFile { |
| 127 |
- |
|
|