Lines 211-220
sub delete {
Link Here
|
211 |
return @res; |
211 |
return @res; |
212 |
} |
212 |
} |
213 |
|
213 |
|
214 |
sub DESTROY { |
214 |
=head1 CLASS METHODS |
215 |
} |
|
|
216 |
|
217 |
# ************** HELPER ROUTINES / CLASS METHODS ****************************** |
218 |
|
215 |
|
219 |
=head2 getCategories |
216 |
=head2 getCategories |
220 |
|
217 |
|
Lines 243-249
sub httpheaders {
Link Here
|
243 |
); |
240 |
); |
244 |
} |
241 |
} |
245 |
|
242 |
|
246 |
# ************** INTERNAL ROUTINES ******************************************** |
243 |
=head1 INTERNAL ROUTINES |
|
|
244 |
|
245 |
=cut |
247 |
|
246 |
|
248 |
sub _init { |
247 |
sub _init { |
249 |
my ( $self, $params ) = @_; |
248 |
my ( $self, $params ) = @_; |
Lines 310-318
sub _full_fname {
Link Here
|
310 |
my ( $self, $rec ) = @_; |
309 |
my ( $self, $rec ) = @_; |
311 |
my $p; |
310 |
my $p; |
312 |
if( ref $rec ) { |
311 |
if( ref $rec ) { |
313 |
$p= $rec->{permanent}? $self->{rootdir}: $self->{tmpdir}; |
312 |
$p = File::Spec->catfile( |
314 |
$p.= '/'; |
313 |
$rec->{permanent}? $self->{rootdir}: $self->{tmpdir}, |
315 |
$p.= $rec->{dir}. '/'. $rec->{hashvalue}. '_'. $rec->{filename}; |
314 |
$rec->{dir}, |
|
|
315 |
$rec->{hashvalue}. '_'. $rec->{filename} |
316 |
); |
316 |
} |
317 |
} |
317 |
return $p; |
318 |
return $p; |
318 |
} |
319 |
} |