/[webpac-proto]/search/filters/default.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /search/filters/default.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Sun Jun 16 18:11:18 2002 UTC revision 1.4 by dpavlin, Sun Jun 16 19:39:45 2002 UTC
# Line 34  package default; Line 34  package default;
34  # Application Constants  # Application Constants
35  #  #
36    
 require "../config.pl";  
   
37  #--------------------------------------------------------------------------  #--------------------------------------------------------------------------
38  #  #
39  #       Function:       DocumentParser()  #       Function:       DocumentParser()
# Line 131  sub DocumentFilter { Line 129  sub DocumentFilter {
129          # Loop over each line in the document list          # Loop over each line in the document list
130          foreach $FieldTag ( @default::FieldDisplayOrder ) {          foreach $FieldTag ( @default::FieldDisplayOrder ) {
131    
132    #               print "-- $FieldTag = $Document{$FieldTag} --";
133    
134                  # Skip empty slots                  # Skip empty slots
135                  if ( !(defined($Document{$FieldTag}) && ($Document{$FieldTag} ne "")) ) {                  if ( !(defined($Document{$FieldTag}) && ($Document{$FieldTag} ne "")) ) {
136                          next;                          next;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26