From 54d16a814ecc9dad2543ff20f699f90124ff96ce Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 13 Mar 2002 07:14:27 +0000
Subject: [PATCH] Deprecated searching is all handled by search.pl

---
 opac-search.pl | 151 -------------------------------------------------
 1 file changed, 151 deletions(-)
 delete mode 100755 opac-search.pl

diff --git a/opac-search.pl b/opac-search.pl
deleted file mode 100755
index 73211f615c..0000000000
--- a/opac-search.pl
+++ /dev/null
@@ -1,151 +0,0 @@
-#!/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)
-
-use strict;
-#use DBI;
-use C4::Search;
-use CGI;
-use C4::Output;
-
-my $env;
-my $input = new CGI;
-print $input->header;
-#print $input->Dump;
-my $blah;
-my %search;
-#build hash of users input
-
-
-my $keyword=validateinp($input->param('keyword'));
-#my $keyword=$input->param('keyword');
-#$keyword=~ s/'/\'/g;
-$search{'keyword'}=$keyword;
-
-my @results;
-my $offset=$input->param('offset');
-if ($offset eq ''){
-  $offset=0;
-}
-my $num=$input->param('num');
-if ($num eq ''){
-  $num=10;
-}
-print startpage();
-print startmenu('opac');
-print mkheadr(1,"Opac Search Results for $keyword");
-print center();
-my $count;
-my @results;
-if ($search{'keyword'} ne ''){
-  ($count,@results)=&OpacSearch(\$blah,'loose',\%search,$num,$offset);
-}
-#print "You searched on <b>$keyword</b>";
-
-print " $count results found";
-my $offset2=$num+$offset;
-my $disp=$offset+1;
-print ", Results $disp to $offset2 displayed";
-print mktablehdr;
-
-print mktablerow(4,'#99cccc','<b>TITLE</b>','<b>AUTHOR</b>','<b>COUNT</b>',bold('BRANCH'));
-
-my $count2=@results;
-my $i=0;
-my $colour=1;
-while ($i < $count2){
-    my @stuff=split('\t',$results[$i]);
-    $stuff[1]=~ s/\`/\'/g;
-    my $title2=$stuff[1];
-    $title2=~ s/ /%20/g;
-    $title2=~ s/\W//g;
-      $stuff[1]=mklink("/cgi-bin/koha/detail.pl?bib=$stuff[2]&title=$title2&type=opac",$stuff[1]);
-      my $word=$stuff[0];
-      $word=~ s/  //g;
-      $word=~ s/ /%20/g;
-      $word=~ s/\,/\,%20/g;
-      $word=~ s/\n//g;
-      my $url="/cgi-bin/koha/search.pl?author=$word&type=opac";
-      $stuff[0]=mklink($url,$stuff[0]);
-      my ($count,$lcount,$nacount,$fcount,$scount,$lostcount,$mending,$transit)=itemcount($env,$stuff[2]);
-      $stuff[3]=$count;
-      if ($nacount > 0){
-        $stuff[4]=$stuff[4]."On Loan";
-	if ($nacount >1 ){
-	  $stuff[4]=$stuff[4]." ($nacount)";
-	}
-	$stuff[4].=" ";
-      }
-      if ($lcount > 0){
-        $stuff[4]=$stuff[4]."Levin";
-	if ($lcount >1 ){
-	  $stuff[4]=$stuff[4]." ($lcount)";
-	}
-	$stuff[4].=" ";
-      }
-      if ($fcount > 0){
-        $stuff[4]=$stuff[4]."Foxton";
-	if ($fcount >1 ){
-	  $stuff[4]=$stuff[4]." ($fcount)";
-	}
-	$stuff[4].=" ";
-      }
-      if ($scount > 0){
-        $stuff[4]=$stuff[4]."Shannon";
-	if ($scount >1 ){
-	  $stuff[4]=$stuff[4]." ($scount)";
-	}
-	$stuff[4].=" ";
-      }
-      if ($mending > 0){
-        $stuff[4]=$stuff[4]."Mending";
-	if ($mending >1 ){
-	  $stuff[4]=$stuff[4]." ($mending)";
-	}
-	$stuff[4].=" ";
-      }
-      if ($transit > 0){
-        $stuff[4]=$stuff[4]."In Transit";
-	if ($transit >1 ){
-	  $stuff[4]=$stuff[4]." ($transit)";
-	}
-	$stuff[4].=" ";
-      }
-    if ($colour == 1){
-      print mktablerow(4,'#efe5ef',$stuff[1],$stuff[0],$stuff[3],$stuff[4]);
-      $colour=0;
-    } else{
-      print mktablerow(4,'white',$stuff[1],$stuff[0],$stuff[3],$stuff[4]);
-      $colour=1;
-    }
-    $i++;
-}
-$offset=$num+$offset;
-if ($offset < $count){
-    $keyword=~ s/ /%20/g;
-    my $search="num=$num&offset=$offset&keyword=$keyword";
-    my $stuff=mklink("/cgi-bin/koha/opac-search.pl?$search",'Next Results');
-#    print $stuff;
-    print "<tr valign=top bgcolor=#99cccc><td colspan=4>$stuff 
-    </td></tr>";
-} else {
-  print mktablerow(4,'#99cccc',' &nbsp; ',' &nbsp; ',' &nbsp;',' &nbsp;');
-}
-print mktableft();
-
-
-print endcenter();
-print endmenu('opac');
-print endpage();
-
-
-sub validateinp {
-  my ($input)=@_;
-  $input=~ s/\<[a-z]+\>//gi;
-  $input=~ s/\<\/[a-z]+\>//gi;
-  $input=~ s/\<//g;
-  $input=~ s/\>//g;
-  $input=~ s/%//g;
-  return($input);
-}
-- 
2.39.2