Changeset 10254 for trunk/gsdl/perllib/plugins/BookPlug.pm
- Timestamp:
- 2005-07-19T16:27:51+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BookPlug.pm
r10218 r10254 55 55 use BasPlug; 56 56 use util; 57 use strict; 58 no strict 'refs'; # allow filehandles to be variables and viceversa 57 59 58 60 sub BEGIN { 59 @ ISA = ('BasPlug');61 @BookPlug::ISA = ('BasPlug'); 60 62 } 61 63 … … 197 199 198 200 sub replace_image_links { 201 my $self = shift (@_); 199 202 my ($dir, $doc_obj, $front, $link, $back) = @_; 200 203 my $outhandle = $self->{'outhandle'};
Note:
See TracChangeset
for help on using the changeset viewer.