Changeset 6767
- Timestamp:
- 2004-02-10T17:01:26+13:00 (20 years ago)
- Location:
- trunk/gsdl/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgbuildproc.pm
r6553 r6767 214 214 215 215 my $gsdlthistype = $doc_obj->get_metadata_element ($section, "gsdlthistype"); 216 if (defined $gsdlthistype && $gsdlthistype eq "Paged") { 217 $thistype = "Paged"; 218 $childtype = "Paged"; 219 return ($thistype, $childtype); 220 } 221 216 if (defined $gsdlthistype) { 217 if ($gsdlthistype eq "Paged") { 218 $thistype = "Paged"; 219 $childtype = "Paged"; 220 return ($thistype, $childtype); 221 } elsif ($gsdlthistype eq "Hierarchy") { 222 return ($thistype, $childtype); # use VList, VList 223 } 224 } 222 225 my $first = 1; 223 226 while (defined $section) { -
trunk/gsdl/perllib/mgppbuildproc.pm
r6553 r6767 251 251 252 252 my $gsdlthistype = $doc_obj->get_metadata_element ($section, "gsdlthistype"); 253 if (defined $gsdlthistype && $gsdlthistype eq "Paged") { 254 $thistype = "Paged"; 255 $childtype = "Paged"; 256 return ($thistype, $childtype); 253 if (defined $gsdlthistype) { 254 if ($gsdlthistype eq "Paged") { 255 $thistype = "Paged"; 256 $childtype = "Paged"; 257 return ($thistype, $childtype); 258 } elsif ($gsdlthistype eq "Hierarchy") { 259 return ($thistype, $childtype); # use VList, VList 260 } 257 261 } 258 262 my $first = 1;
Note:
See TracChangeset
for help on using the changeset viewer.