From 564fd1d8ecfd4c65067613a10515a6019c9f4a16 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 13 Mar 2002 07:46:43 +0000
Subject: [PATCH] Removing reference to the FrontSearch subroutine as its never
 called

---
 search.pl | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

diff --git a/search.pl b/search.pl
index 4ca5e15bcf..08912076ab 100755
--- a/search.pl
+++ b/search.pl
@@ -1,9 +1,5 @@
 #!/usr/bin/perl
 #script to provide intranet (librarian) advanced search facility
-#modified 9/11/1999 by chris@katipo.co.nz
-#adding an extra comment to play with CVS (Si, 19/11/99)
-#modified 29/12/99 by chris@katipo.co.nz to be usavle by opac as well
-#modified by chris 10/11/00 to fix dewey search
 
 use strict;
 use C4::Search;
@@ -31,7 +27,7 @@ if ($type eq 'opac'){
   $secondary='#ffffcc';                                                                                        
 }       
 
-#print $input->dump;
+#print $input->Dump;
 my $blah;
 my %search;
 #build hash of users input
@@ -57,6 +53,8 @@ $search{'class'}=$class;
 $search{'ttype'}=$ttype;
 my $dewey=validate($input->param('dewey'));
 $search{'dewey'}=$dewey;
+my $branch=validate($input->param('branch'));
+$search{'branch'}=$branch;
 my @results;
 my $offset=$input->param('offset');
 if ($offset eq ''){
@@ -68,9 +66,12 @@ if ($num eq ''){
 }
 print startpage();
 print startmenu($type);
+#print $type;
 #print $search{'ttype'};
-if ($type ne 'opac'){
+if ($type eq 'intra'){
   print mkheadr(1,'Catalogue Search Results');
+} elsif ($type eq 'catmain'){
+  print mkheadr(1,'Catalogue Maintenance');
 } else {
   print mkheadr(1,'Opac Search Results');
 }
@@ -84,14 +85,9 @@ if ($itemnumber ne '' || $isbn ne ''){
     ($count,@results)=&CatSearch(\$blah,'subject',\%search,$num,$offset);
   } else {
     if ($keyword ne ''){
-#      print "hey";
       ($count,@results)=&KeywordSearch(\$blah,'intra',\%search,$num,$offset);
-    } elsif ($search{'front'} ne '') {
-    ($count,@results)&FrontSearch(\$blah,'intra',\%search,$num,$offset);
-#    print "hey";
     }elsif ($title ne '' || $author ne '' || $illustrator ne '' || $dewey ne '' || $class ne '') {
       ($count,@results)=&CatSearch(\$blah,'loose',\%search,$num,$offset);
-#            print "hey";
     }
   }
 }
-- 
2.39.5