Parent Directory | Revision Log | Patch
revision 510 by dpavlin, Sun Oct 10 17:36:43 2004 UTC | revision 511 by dpavlin, Sun Oct 17 17:35:32 2004 UTC | |
---|---|---|
# | Line 158 while (my $rec = $webpac->fetch_rec) { | Line 158 while (my $rec = $webpac->fetch_rec) { |
158 | foreach my $ds (@ds) { | foreach my $ds (@ds) { |
159 | next if (! $ds->{'index'}); | next if (! $ds->{'index'}); |
160 | ||
161 | $thes->{$ds->{'tag'}} ||= new WebPAC::Index; | $thes->{$ds->{'tag'}} ||= new WebPAC::Index( name => $ds->{'tag'} ); |
162 | ||
163 | foreach my $h (@{$ds->{'index'}}) { | foreach my $h (@{$ds->{'index'}}) { |
164 | $thes->{$ds->{'tag'}}->insert( | $thes->{$ds->{'tag'}}->insert( |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |