- Timestamp:
- 2010-10-12T13:55:07+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/AZSectionList.pm
r18455 r23116 71 71 sub classify { 72 72 my $self = shift (@_); 73 my ($doc_obj ,$edit_mode) = @_;73 my ($doc_obj) = @_; 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 , $edit_mode);79 $self->classify_section ($thissection, $doc_obj); 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 , $edit_mode) = @_;86 my ($section, $doc_obj) = @_; 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 }94 89 95 90 my $metavalue;
Note:
See TracChangeset
for help on using the changeset viewer.