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 |
- |
|
|