From 9e53e8dbe7ed782779f9a42f6b889a78d9f591b9 Mon Sep 17 00:00:00 2001 From: truth_nz Date: Mon, 29 Apr 2002 05:29:02 +0000 Subject: [PATCH] scripts for new acqui.simple system --- acqui.simple/addbiblio.pl | 81 ++++++++++++++++++++++ acqui.simple/addbiblioitem.pl | 121 +++++++++++++++++++++++++++++++++ acqui.simple/additem.pl | 91 +++++++++++++++++++++++++ acqui.simple/isbnsearch.pl | 26 +++++++ acqui.simple/keywordsearch.pl | 100 +++++++++++++++++++++++++++ acqui.simple/savebiblio.pl | 25 +++++++ acqui.simple/savebiblioitem.pl | 40 +++++++++++ acqui.simple/saveitem.pl | 35 ++++++++++ acqui.simple/websitesearch.pl | 100 +++++++++++++++++++++++++++ 9 files changed, 619 insertions(+) create mode 100755 acqui.simple/addbiblio.pl create mode 100755 acqui.simple/addbiblioitem.pl create mode 100755 acqui.simple/additem.pl create mode 100755 acqui.simple/isbnsearch.pl create mode 100755 acqui.simple/keywordsearch.pl create mode 100755 acqui.simple/savebiblio.pl create mode 100755 acqui.simple/savebiblioitem.pl create mode 100755 acqui.simple/saveitem.pl create mode 100755 acqui.simple/websitesearch.pl diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl new file mode 100755 index 0000000000..18cdebce15 --- /dev/null +++ b/acqui.simple/addbiblio.pl @@ -0,0 +1,81 @@ +#!/usr/bin/perl + +# +# TODO +# +# Add info on biblioitems and items already entered as you enter new ones +# + +use CGI; +use strict; +use C4::Output; + + +my $input = new CGI; +my $error = $input->param('error'); + +print $input->header; +print startpage(); +print startmenu('acquisitions'); + +print << "EOF"; +Adding a new Biblio
+ + + + + +
Section One: Copyright Information
+EOF + +if ($error eq "notitle") { + print << "EOF"; +

+

+Please Specify a Title +
+EOF +} # if + +print << "EOF"; +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Title: *
Subtitle:
Author:
Series Title:
+ (if applicable)
Copyright Date:
Abstract:
Notes:
+
+* Required +EOF + +print endmenu(); +print endpage(); diff --git a/acqui.simple/addbiblioitem.pl b/acqui.simple/addbiblioitem.pl new file mode 100755 index 0000000000..6bb0cbe5f7 --- /dev/null +++ b/acqui.simple/addbiblioitem.pl @@ -0,0 +1,121 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; +use C4::Output; + +my $input = new CGI; +my $biblionumber = $input->param('biblionumber'); +my $title; +my $count; +my @results; + +if (! $biblionumber) { + print $input->redirect('addbooks.pl'); +} else { + + ($count, @results) = &getbiblio($biblionumber); + $title = @results[0]->{'title'}; + + print $input->header; + print startpage(); + print startmenu('acquisitions'); + + print << "EOF"; +Adding New Group Information - $title + + + +
Section Two: Publication information
+

+

+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Publisher:
Publication Year:Place of Publication:
Illustrator:
ISBN:
Additional Authors:
One Author per line
Subject Headings:
One Subject per line
Format:
URL:
Dewey:Dewey Subclass:
ISSN:LCCN: +
Volume:Number:
Volume Description:
Pages:Size:
Notes:
+EOF + + print endmenu(); + print endpage(); +} # else diff --git a/acqui.simple/additem.pl b/acqui.simple/additem.pl new file mode 100755 index 0000000000..4f7b1428b3 --- /dev/null +++ b/acqui.simple/additem.pl @@ -0,0 +1,91 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; +use C4::Output; + +my $input = new CGI; +my $biblioitemnum = $input->param('biblioitemnum'); +my $maxbarcode; +my $isbn; +my $count; +my @results; + +if (! $biblioitemnum) { + print $input->redirect('addbooks.pl'); +} else { + + ($count, @results) = &getbiblioitem($biblioitemnum); + + if (! $count) { + print $input->redirect('addbooks.pl'); + } else { + $isbn = $results[0]->{'isbn'}; + $maxbarcode = $results[0]->{'biblionumber'}; + + print $input->header; + print startpage(); + print startmenu('acquisitions'); + + ($count, @results) = &getitemsbybiblioitem($biblioitemnum); + + if ($count) { + print << "EOF"; +
+

+ + + + + + +EOF + + for (my $i = 0; $i < $count; $i++) { + print << "EOF"; + + + + + + +EOF + } # for + + print << "EOF"; +
Existing Items with ISBN $isbn
BarcodeTitleAuthorNotes
$results[$i]->{'barcode'}$results[$i]->{'title'}$results[$i]->{'author'}$results[$i]->{'itemnotes'}
+

+EOF + } # if + + print << "EOF"; +
+

Section Three: Specific Item Information

+
+ + + + + + + + + + + + + + + + +
BARCODE:Home Branch:
Replacement Price:
Notes:
+ +
+
+EOF + + print endmenu(); + print endpage(); + } # if +} # if diff --git a/acqui.simple/isbnsearch.pl b/acqui.simple/isbnsearch.pl new file mode 100755 index 0000000000..5610c2d1be --- /dev/null +++ b/acqui.simple/isbnsearch.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; + +my $input = new CGI; +my $isbn = $input->param('isbn'); +my $biblioitemnum; +my $count; +my @results; + +if (! $isbn) { + print $input->redirect('addbooks.pl'); +} else { + + ($count, @results) = &isbnsearch($isbn); + if (! $count) { + print $input->redirect("addbooks.pl?error=notfound"); + } else { + + $biblioitemnum = $results[0]->{'biblioitemnumber'}; + print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum"); + + } # else +} # else diff --git a/acqui.simple/keywordsearch.pl b/acqui.simple/keywordsearch.pl new file mode 100755 index 0000000000..247e44654c --- /dev/null +++ b/acqui.simple/keywordsearch.pl @@ -0,0 +1,100 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; +use C4::Output; + +my $input = new CGI; +my $keywords = $input->param('keyword'); +my $offset = $input->param('offset'); +my $num = $input->param('num'); +my $total; +my $count; +my @results; + +if (! $keywords) { + print $input->redirect('addbooks.pl'); +} else { + if (! $offset) { $offset = 0 }; + if (! $num) { $num = 10 }; + + ($count, @results) = &keywordsearch($keywords); + + if ($count < ($offset + $num)) { + $total = $count; + } else { + $total = $offset + $num; + } # else + + print $input->header; + print startpage(); + print startmenu('acquisitions'); + + print << "EOF"; +Biblio Search Results
+
+You searched on keywords $keywords, $count results found
+Results $offset to $total displayed +
+

Add New Biblio

+
+

+ + + + + + +EOF + + for (my $i = $offset; $i < $total; $i++) { + if ($i % 2) { + print << "EOF"; + +EOF + } else { + print << "EOF"; + +EOF + } # else + + print << "EOF"; + + + + +EOF + } # for + print << "EOF"; + + + + + +
TITLEAUTHOR©
$results[$i]->{'title'}$results[$i]->{'author'}$results[$i]->{'copyrightdate'}
   
+
+EOF + + for (my $i = 0; ($i * $num) < $count; $i++) { + my $newoffset = $i * $num; + print << "EOF"; +$i +EOF + } # for + + print << "EOF"; +

+Results per page: +5 +10 +20 +50 +

+
+

 

+EOF + + print endmenu(); + print endpage(); +} # else diff --git a/acqui.simple/savebiblio.pl b/acqui.simple/savebiblio.pl new file mode 100755 index 0000000000..bb37689e51 --- /dev/null +++ b/acqui.simple/savebiblio.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; + +my $input = new CGI; +my $biblio->{'title'} = $input->param('title'); +my $biblio->{'subtitle'} = $input->param('subtitle'); +my $biblio->{'author'} = $input->param('author'); +my $biblio->{'seriestitle'} = $input->param('seriestitle'); +my $biblio->{'copyright'} = $input->param('copyrightdate'); +my $biblio->{'abstract'} = $input->param('abstract'); +my $biblio->{'notes'} = $input->param('notes'); +my $biblionumber; + +if (! $biblio->{'title'}) { + print $input->redirect('addbiblio.pl?error=notitle'); +} else { + + $biblionumber = &newbiblio($biblio); + &newsubtitle($biblionumber, $subtitle); + + print $input->redirect('addbiblioitem.pl?biblionumber=$biblionumber'); +} # else diff --git a/acqui.simple/savebiblioitem.pl b/acqui.simple/savebiblioitem.pl new file mode 100755 index 0000000000..83eaa4ee00 --- /dev/null +++ b/acqui.simple/savebiblioitem.pl @@ -0,0 +1,40 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; + +my $input = new CGI; +my $biblionumber = $input->param('biblionumber'); +my $biblioitem = { + biblionumber => $biblionumber, + publishercode => $input->param('publishercode'), + publicationyear => $input->param('publicationyear'), + place => $input->param('year'), + illus => $input->param('illus'), + isbn => $input->param('isbn'), + additionalauthors => $input->param('additionalauthors'), + subjectheadings => $input->param('subjectheadings'), + itemtype => $input->param('itemtype'), + url => $input->param('url'), + dewey => $input->param('dewey'), + subclass => $input->param('subclass'), + issn => $input->param('issn'), + lccn => $input->param('lccn'), + volume => $input->param('volume'), + number => $input->param('number'), + volumeddesc => $input->param('volumeddesc'), + pages => $input->param('pages'), + size => $input->param('size'), + notes => $input->param('notes') +}; +my $biblioitemnum; + +if (! $biblionumber) { + print $input->redirect('addbooks.pl'); +} else { + + $biblioitemnum = &newbiblioitem($biblioitem); + + print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum'); +} # else diff --git a/acqui.simple/saveitem.pl b/acqui.simple/saveitem.pl new file mode 100755 index 0000000000..59be49e9fd --- /dev/null +++ b/acqui.simple/saveitem.pl @@ -0,0 +1,35 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; + +my $input = new CGI; +my $barcode = $input->param('barcode'); +my $biblioitemnum = $input->param('biblioitemnum'); +my $item = { + biblioitemnum => $biblioitemnum, + homebranch => $input->param('homebranch'), + replacementprice => $input->param('replacementprice'), + itemnotes => $input->param('notes') +}; +my $count; +my @results; + +if (! $barcode) { + print $input->redirect('additem.pl?error=nobarcode'); +} elsif (! $biblioitemnum) { + print $input->redirect('addbooks.pl'); +} else { + + ($count, @results) = &getbiblioitem($biblioitemnum); + if (! $count) { + print->redirect('addbooks.pl'); + } else { + + $item->{'biblionumber'} = $results[0]->{'biblionumber'}; + &newitems($item, ($barcode)); + + print $input->redirect('additem.pl?biblioitemnum=$biblioitemnum'); + } # else +} # else diff --git a/acqui.simple/websitesearch.pl b/acqui.simple/websitesearch.pl new file mode 100755 index 0000000000..2dd6d14322 --- /dev/null +++ b/acqui.simple/websitesearch.pl @@ -0,0 +1,100 @@ +#!/usr/bin/perl + +use CGI; +use strict; +use C4::Acquisitions; +use C4::Output; + +my $input = new CGI; +my $keywords = $input->param('keyword'); +my $offset = $input->param('offset'); +my $num = $input->param('num'); +my $total; +my $count; +my @results; + +if (! $keywords) { + print $input->redirect('addbooks.pl'); +} else { + if (! $offset) { $offset = 0 }; + if (! $num) { $num = 10 }; + + ($count, @results) = &websitesearch($keywords); + + if ($count < ($offset + $num)) { + $total = $count; + } else { + $total = $offset + $num; + } # else + + print $input->header; + print startpage(); + print startmenu('acquisitions'); + + print << "EOF"; +Website Search Results
+
+You searched on keywords $keywords, $count results found
+Results $offset to $total displayed +
+

Add New Biblio

+
+

+ + + + + + +EOF + + for (my $i = $offset; $i < $total; $i++) { + if ($i % 2) { + print << "EOF"; + +EOF + } else { + print << "EOF"; + +EOF + } # else + + print << "EOF"; + + + + +EOF + } # for + print << "EOF"; + + + + + +
TITLEAUTHOR©
$results[$i]->{'title'}$results[$i]->{'author'}$results[$i]->{'copyrightdate'}
   
+
+EOF + + for (my $i = 0; ($i * $num) < $count; $i++) { + my $newoffset = $i * $num; + print << "EOF"; +$i +EOF + } # for + + print << "EOF"; +

+Results per page: +5 +10 +20 +50 +

+
+

 

+EOF + + print endmenu(); + print endpage(); +} # else -- 2.39.5