| 
      
            Lines 58-69
          foreach my $thisauthtype (
      
      
        Link Here
      
     | 
  
        
          | 58 | 
          }  | 
          58 | 
          }  | 
        
        
          | 59 | 
           | 
          59 | 
           | 
        
        
          | 60 | 
          if ( $op eq "do_search" ) { | 
          60 | 
          if ( $op eq "do_search" ) { | 
        
          
            
              | 61 | 
                  my @marclist = ($query->param('marclista'),$query->param('marclistb'),$query->param('marclistc')); | 
              61 | 
                  my @marclist = ($query->param('marclist')); | 
            
            
              | 62 | 
                  my @and_or = ($query->param('and_ora'),$query->param('and_orb'),$query->param('and_orc')); | 
              62 | 
                  my @and_or = ($query->param('and_or')); | 
            
            
              | 63 | 
                  my @excluding = ($query->param('excludinga'),$query->param('excludingb'),$query->param('excludingc'),); | 
              63 | 
                  my @excluding = ($query->param('excluding'),); | 
            
            
              | 64 | 
                  my @operator = ($query->param('operatora'),$query->param('operatorb'),$query->param('operatorc')); | 
              64 | 
                  my @operator = ($query->param('operator')); | 
            
        
          | 65 | 
              my $orderby = $query->param('orderby'); | 
          65 | 
              my $orderby = $query->param('orderby'); | 
        
          
            
              | 66 | 
                  my @value = ($query->param('valuea') || "",$query->param('valueb') || "",$query->param('valuec') || "",); | 
              66 | 
                  my @value = ($query->param('value') || "",); | 
            
        
          | 67 | 
           | 
          67 | 
           | 
        
        
          | 68 | 
              $resultsperpage = $query->param('resultsperpage'); | 
          68 | 
              $resultsperpage = $query->param('resultsperpage'); | 
        
        
          | 69 | 
              $resultsperpage = 20 if ( !defined $resultsperpage );  | 
          69 | 
              $resultsperpage = 20 if ( !defined $resultsperpage );  | 
        
  
    | 
      
            Lines 90-104
          if ( $op eq "do_search" ) {
      
      
        Link Here
      
     | 
  
        
          | 90 | 
                  $displaynext = 1;  | 
          90 | 
                  $displaynext = 1;  | 
        
        
          | 91 | 
              }  | 
          91 | 
              }  | 
        
        
          | 92 | 
           | 
          92 | 
           | 
        
          
            
              | 93 | 
                  my @field_data = ();  | 
              93 | 
                  my @field_data = ( { term => "marclist" , val => $query->param("marclist") || ''} ); | 
            
            
              | 94 | 
               | 
               | 
               | 
            
            
              | 95 | 
                  foreach my $letter (qw/a b c/){ | 
            
            
              | 96 | 
                      push @field_data, { term => "marclist$letter" , val => $query->param("marclist$letter") || ''}; | 
            
            
              | 97 | 
                      push @field_data, { term => "and_or$letter" , val => $query->param("and_or$letter") || ''}; | 
            
            
              | 98 | 
                      push @field_data, { term => "excluding$letter" , val => $query->param("excluding$letter") || ''}; | 
            
            
              | 99 | 
                      push @field_data, { term => "operator$letter" , val => $query->param("operator$letter") || ''}; | 
            
            
              | 100 | 
                      push @field_data, { term => "value$letter" , val => $query->param("value$letter") || ''}; | 
            
            
              | 101 | 
                  }  | 
            
        
          | 102 | 
           | 
          94 | 
           | 
        
        
          | 103 | 
              my @numbers = ();  | 
          95 | 
              my @numbers = ();  | 
        
        
          | 104 | 
           | 
          96 | 
           | 
        
            
              | 105 | 
              -   | 
               | 
               |