Intrannet scripts

addbiblio.pl

@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+#script to guide user thru adding a new biblio entry
+#written 8/11/99
+
+use strict;
+#use C4::Search;
+use CGI;
+use C4::Output;
+
+my $input = new CGI;
+print $input->header;
+print startpage();
+print startmenu();
+print mktablehdr();
+print mktableft();
+print endmenu();
+print endpage();

detail.pl

@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+#script to display detailed information
+#written 8/11/99
+
+use strict;
+#use DBI;
+use C4::Search;
+use CGI;
+use C4::Output;
+
+my $input = new CGI;
+print $input->header;
+print startpage();
+print startmenu();
+my $blah;
+
+my $bib=$input->param('bib');
+my $title=$input->param('title');
+
+my @items=ItemInfo(\$blah,$bib,$title);
+#print @items;
+my $count=@items;
+my $i=0;
+print center();
+print mktablehdr;
+print mktablerow(3,'white','Title','Itemnumber','DateDue'); 
+my $colour=1;
+while ($i < $count){
+  my @results=split('\t',$items[$i]);
+  if ($colour == 1){                                                                          
+    print mktablerow(4,'#ffffcc',@results);                                        
+    $colour=0;                                                                                
+  } else{                                                                                     
+    print mktablerow(4,'white',@results);                                          
+    $colour=1;                                                                                
+  }
+   $i++;
+}
+print endcenter();
+print mktableft();
+print endmenu();
+print endpage();

search.pl

@@ -0,0 +1,112 @@
+#!/usr/bin/perl
+#script to provide intranet (librarian) advanced search facility
+#modified 9/11/1999 by chris@katipo.co.nz
+
+use strict;
+#use DBI;
+use C4::Search;
+use CGI;
+use C4::Output;
+
+my $input = new CGI;
+print $input->header;
+#print $input->dump;
+my $blah;
+my %search;
+#build hash of users input
+my $title=$input->param('title');
+$search{'title'}=$title;
+my $keyword=$input->param('keyword');
+$search{'keyword'}=$keyword;
+my $author=$input->param('author');
+$search{'author'}=$author;
+my $subject=$input->param('subject');
+$search{'subject'}=$subject;
+my $itemnumber=$input->param('item');
+$search{'item'}=$itemnumber;
+my $isbn=$input->param('isbn');
+$search{'isbn'}=$isbn;
+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();
+print mkheadr(1,'Catalogue Search Results');
+print center();
+my $count;
+my @results;
+if ($itemnumber ne '' || $isbn ne ''){
+    ($count,@results)=&CatSearch(\$blah,'precise',\%search,$num,$offset);
+} else {
+  if ($subject ne ''){
+    ($count,@results)=&CatSearch(\$blah,'subject',\%search,$num,$offset);
+  } else {
+    ($count,@results)=&CatSearch(\$blah,'loose',\%search,$num,$offset);
+  }
+}
+print "You searched on $title $author $keyword $subject $itemnumber $isbn, $count results found";
+my $offset2=$num+$offset;
+print "<br> Results $offset to $offset2 displayed";
+print mktablehdr;
+if ($subject ne ''){
+  print mktablerow(1,'#cccc99','<b>SUBJECT</b>');
+} else {
+  print mktablerow(2,'#cccc99','<b>TITLE</b>','<b>AUTHOR</b>');
+}
+my $count2=@results;
+my $i=0;
+my $colour=1;
+while ($i < $count2){
+    my @stuff=split('\t',$results[$i]);
+    my $title2=$stuff[1];
+    $title2=~ s/ /%20/g;
+    if ($subject eq ''){
+      $stuff[1]=mklink("/cgi-bin/kumara/detail.pl?bib=$stuff[0]&title=$title2",$stuff[1]);
+      my $word=$stuff[2];
+      $word=~ s/ //g;
+      $word=~ s/\,/\,%20/g;
+      $word=~ s/\n//g;
+      my $url="/cgi-bin/kumara/testsearch.pl?author=$word&type=a";
+      $stuff[2]=mklink($url,$stuff[2]);
+    } else {
+      $stuff[1]=mklink("/cgi-bin/kumara/subjectsearch.pl?subject=$stuff[1]",$stuff[1]);
+    }
+    if ($colour == 1){
+      print mktablerow(2,'#ffffcc',$stuff[1],$stuff[2]);
+      $colour=0;
+    } else{
+      print mktablerow(2,'white',$stuff[1],$stuff[2]);
+      $colour=1;
+    }
+    $i++;
+}
+$offset=$num+$offset;
+print mktablerow(2,'#cccc99',' &nbsp; ',' &nbsp; ');
+print mktableft();
+if ($offset < $count){
+    my $search="num=$num&offset=$offset";
+    if ($subject ne ''){
+      $subject=~ s/ /%20/g;
+      $search=$search."&subject=$subject";
+    }
+    if ($title ne ''){
+      $title=~ s/ /%20/g;
+      $search=$search."&title=$title";
+    }
+    if ($author ne ''){
+      $author=~ s/ /%20/g;
+      $search=$search."&author=$author";
+    }
+    my $stuff=mklink("/cgi-bin/kumara/search.pl?$search",'More');
+    print $stuff;
+}
+
+print endcenter();
+print endmenu();
+print endpage();