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

(-)a/Koha/UploadedFile.pm (-1 / +37 lines)
Lines 154-159 sub httpheaders { Link Here
154
    }
154
    }
155
}
155
}
156
156
157
=head3 url
158
159
    my $url = $uploaded_file->url;
160
161
Return the URL of the file, proxied by opac-retrieve-file.pl
162
The syspref OPACBaseURL is used to generate this link.
163
164
=cut
165
157
sub url {
166
sub url {
158
    my ($self) = @_;
167
    my ($self) = @_;
159
    my $OPACBaseURL = C4::Context->preference('OPACBaseURL');
168
    my $OPACBaseURL = C4::Context->preference('OPACBaseURL');
Lines 161-166 sub url { Link Here
161
    return "$OPACBaseURL/cgi-bin/koha/opac-retrieve-file.pl?id=" . $self->hashvalue;
170
    return "$OPACBaseURL/cgi-bin/koha/opac-retrieve-file.pl?id=" . $self->hashvalue;
162
}
171
}
163
172
173
=head3 local_public_path
174
175
    my $local_public_path = $uploaded_file->local_public_path
176
177
Return the local public path for the uploaded file.
178
It is generated using the upload_public_path config entry.
179
Return If this config entry does not exist.
180
181
=cut
182
164
sub local_public_path {
183
sub local_public_path {
165
    my ($self) = @_;
184
    my ($self) = @_;
166
    my $upload_public_path = C4::Context->config('upload_public_path');
185
    my $upload_public_path = C4::Context->config('upload_public_path');
Lines 170-181 sub local_public_path { Link Here
170
    return $filepath;
189
    return $filepath;
171
}
190
}
172
191
192
193
=head3 has_local_public_path
194
195
    my $local_public_path = $uploaded_file->local_public_path
196
197
Return the local public path for the uploaded file, if exists.
198
199
=cut
200
173
sub has_local_public_path {
201
sub has_local_public_path {
174
    my ($self) = @_;
202
    my ($self) = @_;
175
    my $filepath = $self->local_public_path;
203
    my $filepath = $self->local_public_path;
176
    return $filepath if -e $filepath;
204
    return $filepath if -e $filepath;
177
}
205
}
178
206
207
=head3 direct_url
208
209
    my $direct_url = $uploaded_file->direct_url
210
211
Return the direct url of the file, ie. without using opac-retrieve-file.pl
212
The config entry upload_public_url must be defined.
213
214
=cut
215
179
sub direct_url {
216
sub direct_url {
180
    my ( $self ) = @_;
217
    my ( $self ) = @_;
181
    # TODO It could start with '/' and we prefix with OPACBaseURL
218
    # TODO It could start with '/' and we prefix with OPACBaseURL
182
- 

Return to bug 22508