Changeset 18455 for gsdl/trunk/perllib/classify/AZSectionList.pm
- Timestamp:
- 2009-02-03T09:46:33+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/AZSectionList.pm
r17209 r18455 71 71 sub classify { 72 72 my $self = shift (@_); 73 my ($doc_obj ) = @_;73 my ($doc_obj,$edit_mode) = @_; 74 74 75 75 my $doc_OID = $doc_obj->get_OID(); … … 77 77 78 78 while (defined $thissection) { 79 $self->classify_section ($thissection, $doc_obj );79 $self->classify_section ($thissection, $doc_obj, $edit_mode); 80 80 $thissection = $doc_obj->get_next_section ($thissection); 81 81 } … … 84 84 sub classify_section { 85 85 my $self = shift (@_); 86 my ($section, $doc_obj ) = @_;86 my ($section, $doc_obj, $edit_mode) = @_; 87 87 88 88 my $doc_OID = $doc_obj->get_OID(); 89 90 if ($edit_mode eq "delete") { 91 $self->oid_hash_delete("$doc_OID$section",'list'); 92 return; 93 } 89 94 90 95 my $metavalue;
Note:
See TracChangeset
for help on using the changeset viewer.