perl files of the serial modul
This commit is contained in:
doxulting
parent
bc27c4c211
commit
96cc502af2
|
|
@ -0,0 +1,133 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Context;
|
||||
use HTML::Template;
|
||||
|
||||
my $query = new CGI;
|
||||
|
||||
my $op = $query->param('op');
|
||||
my $search = $query->param('titleorissn');
|
||||
my $startfrom=$query->param('startfrom');
|
||||
|
||||
if ($op eq 'search')
|
||||
{
|
||||
my $total;
|
||||
my $results;
|
||||
my $dbh = C4::Context->dbh;
|
||||
my @marclist = $query->param('marclist');
|
||||
my @and_or = $query->param('and_or');
|
||||
my @excluding = $query->param('excluding');
|
||||
my @operator = $query->param('operator');
|
||||
my @value = $query->param('value');
|
||||
|
||||
my $resultsperpage= $query->param('resultsperpage');
|
||||
$resultsperpage = 19 if(!defined $resultsperpage);
|
||||
|
||||
|
||||
|
||||
my $sth = $dbh->prepare("select subscriptionid, perioid from subscription");
|
||||
$sth->execute();
|
||||
my @finalsolution;
|
||||
while (my $first_step = $sth->fetchrow_hashref)
|
||||
{
|
||||
my $sth2 = $dbh->prepare("select b3.title from biblioitems b2, biblio b3 where b3.biblionumber = ? and b2.biblionumber = b3.biblionumber and (b2.issn = ? or b3.title like ?)");
|
||||
$sth2->execute($first_step->{'perioid'},$search, "%$search%");
|
||||
my @answear;
|
||||
@answear = $sth2->fetchrow_array;
|
||||
$total = scalar @answear;
|
||||
if ($total >= 1)
|
||||
{
|
||||
$first_step->{'serial'} = $answear[0];
|
||||
push @finalsolution ,$first_step;
|
||||
}
|
||||
}
|
||||
my ($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/receipt-search-result.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
$template->param(subtable => \@finalsolution, total => $total
|
||||
,);
|
||||
|
||||
my $displaynext=0;
|
||||
my $displayprev=$startfrom;
|
||||
if(($total - (($startfrom+1)*($resultsperpage))) > 0 ){
|
||||
$displaynext = 1;
|
||||
}
|
||||
|
||||
my @field_data = ();
|
||||
|
||||
|
||||
for(my $i = 0 ; $i <= $#marclist ; $i++)
|
||||
{
|
||||
push @field_data, { term => "marclist", val=>$marclist[$i] };
|
||||
push @field_data, { term => "and_or", val=>$and_or[$i] };
|
||||
push @field_data, { term => "excluding", val=>$excluding[$i] };
|
||||
push @field_data, { term => "operator", val=>$operator[$i] };
|
||||
push @field_data, { term => "value", val=>$value[$i] };
|
||||
}
|
||||
|
||||
my @numbers = ();
|
||||
|
||||
if ($total>$resultsperpage)
|
||||
{
|
||||
for (my $i=1; $i<$total/$resultsperpage+1; $i++)
|
||||
{
|
||||
if ($i<16)
|
||||
{
|
||||
my $highlight=0;
|
||||
($startfrom==($i-1)) && ($highlight=1);
|
||||
push @numbers, { number => $i,
|
||||
highlight => $highlight ,
|
||||
searchdata=> \@field_data,
|
||||
startfrom => ($i-1)};
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my $from = $startfrom*$resultsperpage+1;
|
||||
my $to;
|
||||
|
||||
if($total < (($startfrom+1)*$resultsperpage))
|
||||
{
|
||||
$to = $total;
|
||||
} else {
|
||||
$to = (($startfrom+1)*$resultsperpage);
|
||||
}
|
||||
$results = \@finalsolution;
|
||||
$template->param(result => $results) if $results;
|
||||
$template->param(
|
||||
startfrom=> $startfrom,
|
||||
displaynext=> $displaynext,
|
||||
displayprev=> $displayprev,
|
||||
resultsperpage => $resultsperpage,
|
||||
startfromnext => $startfrom+1,
|
||||
startfromprev => $startfrom-1,
|
||||
searchdata=>\@field_data,
|
||||
total=>$total,
|
||||
from=>$from,
|
||||
to=>$to,
|
||||
numbers=>\@numbers,
|
||||
);
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
||||
}
|
||||
else{
|
||||
my ($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/receipt.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
}
|
||||
|
|
@ -0,0 +1,124 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Context;
|
||||
use C4::Bull;
|
||||
use HTML::Template;
|
||||
|
||||
my $query = new CGI;
|
||||
my $op = $query->param('op');
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $sid = $query->param('subsid');
|
||||
my $ser = $query->param('serial');
|
||||
warn "$ser la valeur du nom du formulaire";
|
||||
if ($op eq 'modsubscriptionhistory')
|
||||
{
|
||||
my $auser = $query->param('user');
|
||||
my $status = $query->param('status');
|
||||
my $waited = $query->param('waited');
|
||||
my $begin = $query->param('begin');
|
||||
my $end = $query->param('end');
|
||||
my $arrived = $query->param('arrived');
|
||||
my $gapped = $query->param('gapped');
|
||||
my $opac = $query->param('opac');
|
||||
my $intra = $query->param('intra');
|
||||
|
||||
my $sth=$dbh->prepare("update subscriptionhistory set startdate=?, enddate=?,missinglist=?, recievedlist=?, opacnote=?, librariannote=? where subscriptionid = ?");
|
||||
$sth->execute($begin, $end, $gapped, $arrived, $opac, $intra, $sid);
|
||||
|
||||
if ($status != 1)
|
||||
{
|
||||
if ($status == 2)
|
||||
{
|
||||
$sth = $dbh->prepare("select recievedlist from subscriptionhistory where subscriptionid = ?");
|
||||
$sth->execute($sid);
|
||||
my $received = $sth->fetchrow;
|
||||
$sth = $dbh->prepare("select * from subscription where subscriptionid = ? ");
|
||||
$sth->execute($sid);
|
||||
my $val = $sth->fetchrow_hashref;
|
||||
$sth = $dbh->prepare("update serial set serialseq = ? where subscriptionid = ? and status = 1");
|
||||
my ($temp, $X, $Y, $Z, $Xpos, $Ypos, $Zpos) = Get_Next_Seq($val->{'numberingmethod'},$val->{'seqnum1'},$val->{'freq1'}, $val->{'step1'}, $val->{'seqtype1'}, $val->{'seqnum2'}, $val->{'freq2'}, $val->{'step2'}, $val->{'seqtype2'}, $val->{'seqnum3'}, $val->{'freq3'}, $val->{'step3'}, $val->{'seqtype3'}, $val->{'pos1'}, $val->{'pos2'}, $val->{'pos3'});
|
||||
$sth->execute($temp, $sid);
|
||||
$sth = $dbh->prepare("update subscription set seqnum1=?, seqnum2=?,seqnum3=?,pos1=?,pos2=?,pos3=? where subscriptionid = ?");
|
||||
$sth->execute($X, $Y, $Z, $Xpos, $Ypos, $Zpos, $sid);
|
||||
$sth = $dbh->prepare("update subscriptionhistory set recievedlist=? where subscriptionid = ?");
|
||||
if (length($received) > 2)
|
||||
{
|
||||
$sth->execute("$received,$waited", $sid);
|
||||
}
|
||||
else
|
||||
{
|
||||
$sth->execute($waited, $sid);
|
||||
}
|
||||
|
||||
}
|
||||
elsif ($status == 3)
|
||||
{
|
||||
$sth = $dbh->prepare("select missinglist from subscriptionhistory where subscriptionid = ?");
|
||||
$sth->execute($sid);
|
||||
my $missing = $sth->fetchrow;
|
||||
$sth = $dbh->prepare("select * from subscription where subscriptionid = ? ");
|
||||
$sth->execute($sid);
|
||||
my $val = $sth->fetchrow_hashref;
|
||||
$sth = $dbh->prepare("update serial set status = 2 where subscriptionid = ? and status = 1");
|
||||
$sth->execute($sid);
|
||||
$sth = $dbh->prepare("insert into serial (serialseq,subscriptionid,biblionumber,status, planneddate) values (?,?,?,?,?)");
|
||||
my ($temp, $X, $Y, $Z, $Xpos, $Ypos, $Zpos) = Get_Next_Seq($val->{'numberingmethod'},$val->{'seqnum1'},$val->{'freq1'}, $val->{'step1'}, $val->{'seqtype1'}, $val->{'seqnum2'}, $val->{'freq2'}, $val->{'step2'}, $val->{'seqtype2'}, $val->{'seqnum3'}, $val->{'freq3'}, $val->{'step3'}, $val->{'seqtype3'}, $val->{'pos1'}, $val->{'pos2'}, $val->{'pos3'});
|
||||
$sth->execute($temp, $sid, $val->{'biblionumber'}, 1, 0);
|
||||
$sth = $dbh->prepare("update subscription set seqnum1=?, seqnum2=?,seqnum3=?,pos1=?,pos2=?,pos3=? where subscriptionid = ?");
|
||||
$sth->execute($X, $Y, $Z, $Xpos, $Ypos, $Zpos, $sid);
|
||||
$sth = $dbh->prepare("update subscriptionhistory set missinglist=? where subscriptionid = ?");
|
||||
if (length($missing) > 2)
|
||||
{
|
||||
$sth->execute("$missing,$waited", $sid);
|
||||
}
|
||||
else
|
||||
{
|
||||
$sth->execute($waited, $sid);
|
||||
}
|
||||
|
||||
}
|
||||
else
|
||||
{
|
||||
warn ("Error vous avez fait None dans le formulaire receipt\n");
|
||||
}
|
||||
}
|
||||
|
||||
$sth->finish;
|
||||
}
|
||||
my $sth=$dbh->prepare("select serialseq, status, planneddate from serial where subscriptionid = ? and status = ?");
|
||||
$sth->execute($sid, 1);
|
||||
my $sol = $sth->fetchrow_hashref;
|
||||
my $sth=$dbh->prepare("select * from subscriptionhistory where subscriptionid = ?");
|
||||
$sth->execute($sid);
|
||||
my $solhistory = $sth->fetchrow_hashref;
|
||||
my ($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/statecollection.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
|
||||
my ($user, $cookie, $sessionID, $flags)
|
||||
= checkauth($query, 0, {catalogue => 1}, "intranet");
|
||||
|
||||
$template->param(
|
||||
user => $user,
|
||||
serial => $ser,
|
||||
status => $sol->{'status'},
|
||||
waited => $sol->{'serialseq'},
|
||||
begin => $solhistory->{'startdate'},
|
||||
end => $solhistory->{'enddate'},
|
||||
arrived => $solhistory->{'recievedlist'},
|
||||
gapped => $solhistory->{'missinglist'},
|
||||
opac => $solhistory->{'opacnote'},
|
||||
intra => $solhistory->{'librariannote'},
|
||||
sid => $sid,
|
||||
);
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Context;
|
||||
use HTML::Template;
|
||||
|
||||
my $query = new CGI;
|
||||
my ($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/subscription-add-help.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
|
@ -0,0 +1,82 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Context;
|
||||
use HTML::Template;
|
||||
use C4::Bull;
|
||||
|
||||
my $query = new CGI;
|
||||
my $op = $query->param('op');
|
||||
my $dbh = C4::Context->dbh;
|
||||
if ($op eq 'addsubscription')
|
||||
{
|
||||
my $auser = $query->param('user');
|
||||
my $supplier = $query->param('supplier');
|
||||
my $cost = $query->param('cost');
|
||||
my $budget = $query->param('budget');
|
||||
my $begin = $query->param('begin');
|
||||
my $frequency = $query->param('frequency');
|
||||
my $dow = $query->param('arrival');
|
||||
my $numberlength = $query->param('numberlength');
|
||||
my $weeklength = $query->param('weeklength');
|
||||
my $monthlength = $query->param('monthlength');
|
||||
my $X = $query->param('X');
|
||||
my $Xstate = $query->param('Xstate');
|
||||
my $Xfreq = $query->param('Xfreq');
|
||||
my $Xstep = $query->param('Xstep');
|
||||
my $Y = $query->param('Y');
|
||||
my $Ystate = $query->param('Ystate');
|
||||
my $Yfreq = $query->param('Yfreq');
|
||||
my $Ystep = $query->param('Ystep');
|
||||
my $Z = $query->param('Z');
|
||||
my $Zstate = $query->param('Zstate');
|
||||
my $Zfreq = $query->param('Zfreq');
|
||||
my $Zstep = $query->param('Zstep');
|
||||
my $sequence = $query->param('sequence');
|
||||
my $arrivalplanified = $query->param('arrivalplanified');
|
||||
my $status = 1;
|
||||
my $perioid = $query->param('biblioid');
|
||||
my $notes = $query->param('notes');
|
||||
|
||||
my $sth=$dbh->prepare("insert into subscription (librarian, aqbooksellerid,cost,aqbudgetid,startdate, periodicity,dow,numberlength,weeklength,monthlength,seqnum1,startseqnum1,seqtype1,freq1,step1,seqnum2,startseqnum2,seqtype2,freq2, step2, seqnum3,startseqnum3,seqtype3, freq3, step3,numberingmethod, arrivalplanified, status, perioid, notes, pos1, pos2, pos3) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, 0, 0, 0)");
|
||||
$sth->execute($auser,$supplier,$cost,$budget,$begin,$frequency,$dow,$numberlength,$weeklength,$monthlength,$X,$X,$Xstate,$Xfreq, $Xstep,$Y,$Y,$Ystate,$Yfreq, $Ystep,$Z,$Z,$Zstate,$Zfreq, $Zstep, $sequence, $arrivalplanified, $status, $perioid, $notes);
|
||||
$sth = $dbh->prepare("select subscriptionid from subscription where perioid = ? and numberingmethod = ?");
|
||||
$sth->execute($perioid, $sequence);
|
||||
my $subid = $sth->fetchrow;
|
||||
|
||||
$sth = $dbh->prepare("insert into subscriptionhistory (biblioid, subscriptionid, startdate, enddate, missinglist, recievedlist, opacnote, librariannote) values (?,?,?,?,?,?,?,?)");
|
||||
$sth->execute($perioid, $subid, $begin, 0, "", "", 0, $notes);
|
||||
$sth = $dbh->prepare("insert into serial (biblionumber, subscriptionid, serialseq, status, planneddate) values (?,?,?,?,?)");
|
||||
|
||||
$sth->execute($perioid, $subid, Initialize_Sequence($sequence, $X, $Xstate, $Xfreq, $Xstep, $Y, $Ystate, $Yfreq, $Ystep, $Z, $Zstate, $Zfreq, $Zstep), $status, C4::Bull::Find_Next_Date());
|
||||
# biblionumber,
|
||||
# subscriptionid,
|
||||
# startdate, enddate,
|
||||
# missinglist,
|
||||
# recievedlist,
|
||||
# opacnote,
|
||||
# librariannote
|
||||
$sth->finish;
|
||||
|
||||
|
||||
|
||||
}
|
||||
my ($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/subscription-add.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
|
||||
my ($user, $cookie, $sessionID, $flags)
|
||||
= checkauth($query, 0, {catalogue => 1}, "intranet");
|
||||
$template->param(
|
||||
user => $user,
|
||||
);
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
|
@ -0,0 +1,357 @@
|
|||
#!/usr/bin/perl
|
||||
# WARNING: 4-character tab stops here
|
||||
|
||||
# Copyright 2000-2002 Katipo Communications
|
||||
#
|
||||
# This file is part of Koha.
|
||||
#
|
||||
# Koha is free software; you can redistribute it and/or modify it under the
|
||||
# terms of the GNU General Public License as published by the Free Software
|
||||
# Foundation; either version 2 of the License, or (at your option) any later
|
||||
# version.
|
||||
#
|
||||
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
||||
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along with
|
||||
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
||||
# Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
use strict;
|
||||
require Exporter;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use HTML::Template;
|
||||
use C4::Context;
|
||||
use C4::Search;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Biblio;
|
||||
use C4::SearchMarc;
|
||||
use C4::Catalogue;
|
||||
use C4::Koha; # XXX subfield_is_koha_internal_p
|
||||
|
||||
# Creates the list of active tags using the active MARC configuration
|
||||
sub create_marclist {
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $tagslib = &MARCgettagslib($dbh,1);
|
||||
my @marcarray;
|
||||
push @marcarray,"";
|
||||
my $widest_menu_item_width = 0;
|
||||
for (my $pass = 1; $pass <= 2; $pass += 1)
|
||||
{
|
||||
for (my $tabloop = 0; $tabloop<=9;$tabloop++)
|
||||
{
|
||||
my $separator_inserted_p = 0; # FIXME... should not use!!
|
||||
foreach my $tag (sort(keys (%{$tagslib})))
|
||||
{
|
||||
foreach my $subfield (sort(keys %{$tagslib->{$tag}}))
|
||||
{
|
||||
next if subfield_is_koha_internal_p($subfield);
|
||||
next unless ($tagslib->{$tag}->{$subfield}->{tab} eq $tabloop);
|
||||
my $menu_item = "$tag$subfield - $tagslib->{$tag}->{$subfield}->{lib}";
|
||||
if ($pass == 1)
|
||||
{
|
||||
$widest_menu_item_width = length $menu_item if($widest_menu_item_width < length $menu_item);
|
||||
} else {
|
||||
if (!$separator_inserted_p)
|
||||
{
|
||||
my $w = int(($widest_menu_item_width - 3 + 0.5)/2);
|
||||
my $s = ('-' x ($w * 4/5));
|
||||
push @marcarray, "$s $tabloop $s";
|
||||
$separator_inserted_p = 1;
|
||||
}
|
||||
push @marcarray, $menu_item;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
return \@marcarray;
|
||||
}
|
||||
|
||||
# Creates a scrolling list with the associated default value.
|
||||
# Using more than one scrolling list in a CGI assigns the same default value to all the
|
||||
# scrolling lists on the page !?!? That's why this function was written.
|
||||
sub create_scrolling_list {
|
||||
my ($params) = @_;
|
||||
my $scrollist = sprintf("<select name=\"%s\" size=\"%d\" onChange='%s'>\n", $params->{'name'}, $params->{'size'}, $params->{'onChange'});
|
||||
|
||||
foreach my $tag (@{$params->{'values'}})
|
||||
{
|
||||
my $selected = "selected " if($params->{'default'} eq $tag);
|
||||
$scrollist .= sprintf("<option %svalue=\"%s\">%s</option>\n", $selected, $tag, $tag);
|
||||
}
|
||||
|
||||
$scrollist .= "</select>\n";
|
||||
|
||||
return $scrollist;
|
||||
}
|
||||
|
||||
my $query=new CGI;
|
||||
my $type=$query->param('type');
|
||||
my $op = $query->param('op');
|
||||
my $dbh = C4::Context->dbh;
|
||||
|
||||
my $startfrom=$query->param('startfrom');
|
||||
$startfrom=0 if(!defined $startfrom);
|
||||
my ($template, $loggedinuser, $cookie);
|
||||
my $resultsperpage;
|
||||
|
||||
if ($op eq "do_search") {
|
||||
my @marclist = $query->param('marclist');
|
||||
my @and_or = $query->param('and_or');
|
||||
my @excluding = $query->param('excluding');
|
||||
my @operator = $query->param('operator');
|
||||
my @value = $query->param('value');
|
||||
|
||||
$resultsperpage= $query->param('resultsperpage');
|
||||
$resultsperpage = 19 if(!defined $resultsperpage);
|
||||
my $orderby = $query->param('orderby');
|
||||
|
||||
# builds tag and subfield arrays
|
||||
my @tags;
|
||||
|
||||
foreach my $marc (@marclist) {
|
||||
if ($marc) {
|
||||
my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc);
|
||||
if ($tag) {
|
||||
push @tags,$dbh->quote("$tag$subfield");
|
||||
} else {
|
||||
push @tags, $dbh->quote(substr($marc,0,4));
|
||||
}
|
||||
} else {
|
||||
push @tags, "";
|
||||
}
|
||||
}
|
||||
findseealso($dbh,\@tags);
|
||||
|
||||
# my $sth2 = $dbh->prepare("select b3.serial from biblioitems b2, biblio b3 where b3.biblionumber = ? and b2.biblionumber = b3.biblionumber and (b2.issn = ? or b3.serial like ?)");
|
||||
|
||||
|
||||
my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,
|
||||
\@excluding, \@operator, \@value,
|
||||
$startfrom*$resultsperpage, $resultsperpage,$orderby);
|
||||
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/result.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {borrowers => 1},
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
|
||||
# multi page display gestion
|
||||
my $displaynext=0;
|
||||
my $displayprev=$startfrom;
|
||||
if(($total - (($startfrom+1)*($resultsperpage))) > 0 ){
|
||||
$displaynext = 1;
|
||||
}
|
||||
|
||||
my @field_data = ();
|
||||
|
||||
|
||||
for(my $i = 0 ; $i <= $#marclist ; $i++)
|
||||
{
|
||||
push @field_data, { term => "marclist", val=>$marclist[$i] };
|
||||
push @field_data, { term => "and_or", val=>$and_or[$i] };
|
||||
push @field_data, { term => "excluding", val=>$excluding[$i] };
|
||||
push @field_data, { term => "operator", val=>$operator[$i] };
|
||||
push @field_data, { term => "value", val=>$value[$i] };
|
||||
}
|
||||
|
||||
my @numbers = ();
|
||||
|
||||
if ($total>$resultsperpage)
|
||||
{
|
||||
for (my $i=1; $i<$total/$resultsperpage+1; $i++)
|
||||
{
|
||||
if ($i<16)
|
||||
{
|
||||
my $highlight=0;
|
||||
($startfrom==($i-1)) && ($highlight=1);
|
||||
push @numbers, { number => $i,
|
||||
highlight => $highlight ,
|
||||
searchdata=> \@field_data,
|
||||
startfrom => ($i-1)};
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
my $from = $startfrom*$resultsperpage+1;
|
||||
my $to;
|
||||
|
||||
if($total < (($startfrom+1)*$resultsperpage))
|
||||
{
|
||||
$to = $total;
|
||||
} else {
|
||||
$to = (($startfrom+1)*$resultsperpage);
|
||||
}
|
||||
$template->param(result => $results,
|
||||
startfrom=> $startfrom,
|
||||
displaynext=> $displaynext,
|
||||
displayprev=> $displayprev,
|
||||
resultsperpage => $resultsperpage,
|
||||
startfromnext => $startfrom+1,
|
||||
startfromprev => $startfrom-1,
|
||||
searchdata=>\@field_data,
|
||||
total=>$total,
|
||||
from=>$from,
|
||||
to=>$to,
|
||||
numbers=>\@numbers,
|
||||
);
|
||||
|
||||
} elsif ($op eq "AddStatement") {
|
||||
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/search.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
|
||||
# Gets the entered information
|
||||
my @marcfields = $query->param('marclist');
|
||||
my @and_or = $query->param('and_or');
|
||||
my @excluding = $query->param('excluding');
|
||||
my @operator = $query->param('operator');
|
||||
my @value = $query->param('value');
|
||||
|
||||
my @statements = ();
|
||||
|
||||
# List of the marc tags to display
|
||||
my $marcarray = create_marclist();
|
||||
|
||||
my $nbstatements = $query->param('nbstatements');
|
||||
$nbstatements = 1 if(!defined $nbstatements);
|
||||
|
||||
for(my $i = 0 ; $i < $nbstatements ; $i++)
|
||||
{
|
||||
my %fields = ();
|
||||
|
||||
# Recreates the old scrolling lists with the previously selected values
|
||||
my $marclist = create_scrolling_list({name=>"marclist",
|
||||
values=> $marcarray,
|
||||
size=> 1,
|
||||
default=>$marcfields[$i],
|
||||
onChange => "sql_update()"}
|
||||
);
|
||||
|
||||
$fields{'marclist'} = $marclist;
|
||||
$fields{'first'} = 1 if($i == 0);
|
||||
|
||||
# Restores the and/or parameters (no need to test the 'and' for activation because it's the default value)
|
||||
$fields{'or'} = 1 if($and_or[$i] eq "or");
|
||||
|
||||
#Restores the "not" parameters
|
||||
$fields{'not'} = 1 if($excluding[$i]);
|
||||
|
||||
#Restores the operators (most common operators first);
|
||||
if($operator[$i] eq "=") { $fields{'eq'} = 1; }
|
||||
elsif($operator[$i] eq "contains") { $fields{'contains'} = 1; }
|
||||
elsif($operator[$i] eq "start") { $fields{'start'} = 1; }
|
||||
elsif($operator[$i] eq ">") { $fields{'gt'} = 1; } #greater than
|
||||
elsif($operator[$i] eq ">=") { $fields{'ge'} = 1; } #greater or equal
|
||||
elsif($operator[$i] eq "<") { $fields{'lt'} = 1; } #lower than
|
||||
elsif($operator[$i] eq "<=") { $fields{'le'} = 1; } #lower or equal
|
||||
|
||||
#Restores the value
|
||||
$fields{'value'} = $value[$i];
|
||||
|
||||
push @statements, \%fields;
|
||||
}
|
||||
$nbstatements++;
|
||||
|
||||
# The new scrolling list
|
||||
my $marclist = create_scrolling_list({name=>"marclist",
|
||||
values=> $marcarray,
|
||||
size=>1,
|
||||
onChange => "sql_update()"});
|
||||
push @statements, {"marclist" => $marclist };
|
||||
|
||||
$template->param("statements" => \@statements,
|
||||
"nbstatements" => $nbstatements);
|
||||
|
||||
}
|
||||
else {
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/search.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
#$template->param(loggedinuser => $loggedinuser);
|
||||
|
||||
my $marcarray = create_marclist();
|
||||
|
||||
my $marclist = CGI::scrolling_list(-name=>"marclist",
|
||||
-values=> $marcarray,
|
||||
-size=>1,
|
||||
-multiple=>0,
|
||||
-onChange => "sql_update()",
|
||||
);
|
||||
|
||||
my @statements = ();
|
||||
|
||||
# Considering initial search with 3 criterias
|
||||
push @statements, { "marclist" => $marclist, "first" => 1 };
|
||||
push @statements, { "marclist" => $marclist, "first" => 0 };
|
||||
push @statements, { "marclist" => $marclist, "first" => 0 };
|
||||
my $sth=$dbh->prepare("Select itemtype,description from itemtypes order by description");
|
||||
$sth->execute;
|
||||
my @itemtype;
|
||||
my %itemtypes;
|
||||
push @itemtype, "";
|
||||
$itemtypes{''} = "";
|
||||
while (my ($value,$lib) = $sth->fetchrow_array) {
|
||||
push @itemtype, $value;
|
||||
$itemtypes{$value}=$lib;
|
||||
}
|
||||
|
||||
my $CGIitemtype=CGI::scrolling_list( -name => 'value',
|
||||
-values => \@itemtype,
|
||||
-labels => \%itemtypes,
|
||||
-size => 1,
|
||||
-multiple => 0 );
|
||||
$sth->finish;
|
||||
|
||||
my @branches;
|
||||
my @select_branch;
|
||||
my %select_branches;
|
||||
my ($count2,@branches)=branches();
|
||||
push @select_branch, "";
|
||||
$select_branches{''} = "";
|
||||
for (my $i=0;$i<$count2;$i++){
|
||||
push @select_branch, $branches[$i]->{'branchcode'};#
|
||||
$select_branches{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
|
||||
}
|
||||
my $CGIbranch=CGI::scrolling_list( -name => 'value',
|
||||
-values => \@select_branch,
|
||||
-labels => \%select_branches,
|
||||
-size => 1,
|
||||
-multiple => 0 );
|
||||
$sth->finish;
|
||||
|
||||
|
||||
$template->param("statements" => \@statements,
|
||||
"nbstatements" => 3,
|
||||
CGIitemtype => $CGIitemtype,
|
||||
CGIbranch => $CGIbranch,
|
||||
);
|
||||
}
|
||||
|
||||
|
||||
# Print the page
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
||||
# Local Variables:
|
||||
# tab-width: 4
|
||||
# End:
|
||||
|
|
@ -0,0 +1,181 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Context;
|
||||
use HTML::Template;
|
||||
|
||||
my $query = new CGI;
|
||||
my $op = $query->param('op');
|
||||
my $dbh = C4::Context->dbh;
|
||||
my $sth;
|
||||
my $id;
|
||||
my ($template, $loggedinuser, $cookie, $subs);
|
||||
|
||||
if ($op eq 'modsubscription')
|
||||
{
|
||||
|
||||
|
||||
# if ($op eq 'addsubscription')
|
||||
# {
|
||||
my $id = $query->param('suscr');
|
||||
my $auser = $query->param('user');
|
||||
my $cost = $query->param('cost');
|
||||
my $supplier = $query->param('supplier');
|
||||
my $budget = $query->param('budget'); #stocker le id pas le number
|
||||
my $begin = $query->param('begin');
|
||||
my $frequency = $query->param('frequency');
|
||||
my $dow = $query->param('arrival');
|
||||
my $numberlength = $query->param('numberlength');
|
||||
my $weeklength = $query->param('weeklength');
|
||||
my $monthlength = $query->param('monthlength');
|
||||
my $X = $query->param('X');
|
||||
my $Xstate = $query->param('Xstate');
|
||||
my $Xfreq = $query->param('Xfreq');
|
||||
my $Xstep = $query->param('Xstep');
|
||||
my $Y = $query->param('Y');
|
||||
my $Ystate = $query->param('Ystate');
|
||||
my $Yfreq = $query->param('Yfreq');
|
||||
my $Ystep = $query->param('Ystep');
|
||||
my $Z = $query->param('Z');
|
||||
my $Zstate = $query->param('Zstate');
|
||||
my $Zfreq = $query->param('Zfreq');
|
||||
my $Zstep = $query->param('Zstep');
|
||||
my $sequence = $query->param('sequence');
|
||||
my $arrivalplanified = $query->param('arrivalplanified');
|
||||
my $status = 1;
|
||||
my $perioid = $query->param('biblioid');
|
||||
my $notes = $query->param('notes');
|
||||
|
||||
|
||||
my $sth=$dbh->prepare("update subscription set librarian=?, aqbooksellerid=?,cost=?,aqbudgetid=?,startdate=?, periodicity=?,dow=?,numberlength=?,weeklength=?,monthlength=?,seqnum1=?,startseqnum1=?,seqtype1=?,freq1=?,step1=?,seqnum2=?,startseqnum2=?,seqtype2=?,freq2=?, step2=?, seqnum3=?,startseqnum3=?,seqtype3=?, freq3=?, step3=?,numberingmethod=?, arrivalplanified=?, status=?, perioid=?, notes=? where subscriptionid = ?");
|
||||
$sth->execute($auser,$supplier,$cost,$budget,$begin,$frequency,$dow,$numberlength,$weeklength,$monthlength,$X,$X,$Xstate,$Xfreq, $Xstep,$Y,$Y,$Ystate,$Yfreq, $Ystep,$Z,$Z,$Zstate,$Zfreq, $Zstep, $sequence, $arrivalplanified, $status, $perioid, $notes, $id);
|
||||
$sth->finish;
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/subscription-detail.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
|
||||
# }
|
||||
my ($user, $cookie, $sessionID, $flags)
|
||||
= checkauth($query, 0, {catalogue => 1}, "intranet");
|
||||
$template->param(
|
||||
user => $auser, ,librarian => $auser,
|
||||
aqbooksellerid => $supplier,
|
||||
cost => $cost,
|
||||
aqbudgetid => $budget,
|
||||
startdate => $begin,
|
||||
frequency => $frequency,
|
||||
arrival => $dow,
|
||||
numberlength => $numberlength,
|
||||
weeklength => $weeklength,
|
||||
monthlength => $monthlength,
|
||||
seqnum1 => $X,
|
||||
startseqnum1 => $X,
|
||||
seqtype1 => $Xstate,
|
||||
freq1 => $Xfreq,
|
||||
step1 => $Xstep,
|
||||
seqnum2 => $Y,
|
||||
startseqnum2 => $Y,
|
||||
seqtype2 => $Ystate,
|
||||
freq2 => $Yfreq,
|
||||
step2 => $Ystep,
|
||||
seqnum3 => $Z,
|
||||
startseqnum3 => $Z,
|
||||
seqtype3 => $Zstate,
|
||||
freq3 => $Zfreq,
|
||||
step3 => $Zstep,
|
||||
sequence => $sequence,
|
||||
arrivalplanified => $arrivalplanified,
|
||||
status => $status,
|
||||
biblioid => $perioid,
|
||||
notes => $notes,
|
||||
suscr => $id,);
|
||||
|
||||
|
||||
$template->param(
|
||||
"frequency$frequency" => 1,
|
||||
"Xstate$Xstate" => 1,
|
||||
"Ystate$Ystate" => 1,
|
||||
"Zstate$Zstate" => 1,
|
||||
"arrival$dow" => 1,
|
||||
);
|
||||
|
||||
}
|
||||
else
|
||||
{
|
||||
$sth = $dbh->prepare('select * from subscription where subscriptionid = ?');
|
||||
$id = $query->param('suscr');
|
||||
$sth->execute($id);
|
||||
$subs = $sth->fetchrow_hashref;
|
||||
$sth->finish;
|
||||
|
||||
($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/subscription-detail.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
|
||||
# }
|
||||
my ($user, $cookie, $sessionID, $flags)
|
||||
= checkauth($query, 0, {catalogue => 1}, "intranet");
|
||||
$template->param(
|
||||
user => $user,
|
||||
);
|
||||
$template->param(librarian => $subs->{'librarian'},
|
||||
aqbooksellerid => $subs->{'aqbooksellerid'},
|
||||
cost => $subs->{'cost'},
|
||||
aqbudgetid => $subs->{'aqbudgetid'},
|
||||
startdate => $subs->{'startdate'},
|
||||
frequency => $subs->{'periodicity'},
|
||||
arrival => $subs->{'dow'},
|
||||
numberlength => $subs->{'numberlength'},
|
||||
weeklength => $subs->{'weeklength'},
|
||||
monthlength => $subs->{'monthlength'},
|
||||
seqnum1 => $subs->{'seqnum1'},
|
||||
startseqnum1 => $subs->{'startseqnum1'},
|
||||
seqtype1 => $subs->{'seqtype1'},
|
||||
freq1 => $subs->{'freq1'},
|
||||
step1 => $subs->{'step1'},
|
||||
seqnum2 => $subs->{'seqnum2'},
|
||||
startseqnum2 => $subs->{'startseqnum2'},
|
||||
seqtype2 => $subs->{'seqtype2'},
|
||||
freq2 => $subs->{'freq2'},
|
||||
step2 => $subs->{'step2'},
|
||||
seqnum3 => $subs->{'seqnum3'},
|
||||
startseqnum3 => $subs->{'startseqnum3'},
|
||||
seqtype3 => $subs->{'seqtype3'},
|
||||
freq3 => $subs->{'freq3'},
|
||||
step3 => $subs->{'step3'},
|
||||
sequence => $subs->{'numberingmethod'},
|
||||
arrivalplanified => $subs->{'arrivalplanified'},
|
||||
status => $subs->{'status'},
|
||||
biblioid => $subs->{'perioid'},
|
||||
notes => $subs->{'notes'},
|
||||
suscr => $id,
|
||||
);
|
||||
|
||||
$template->param(
|
||||
|
||||
"frequency$subs->{'periodicity'}" => 1,
|
||||
"Xstate$subs->{'seqtype1'}" => 1,
|
||||
"Ystate$subs->{'seqtype2'}" => 1,
|
||||
"Zstate$subs->{'seqtype3'}" => 1,
|
||||
"arrival$subs->{'dow'}" => 1,
|
||||
);
|
||||
|
||||
}
|
||||
# }
|
||||
# my $sth=$dbh->prepare("insert into subscription (librarian, aqbooksellerid,cost,aqbudgetid,startdate, periodicity,dow,numberlength,weeklength,monthlength,seqnum1,startseqnum1,seqtype1,freq1,step1,seqnum2,startseqnum2,seqtype2,freq2, step2, seqnum3,startseqnum3,seqtype3, freq3, step3,numberingmethod, arrivalplanified, status, perioid, notes) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
|
||||
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Context;
|
||||
use HTML::Template;
|
||||
|
||||
my $query = new CGI;
|
||||
my ($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/subscription-watch.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use CGI;
|
||||
use C4::Auth;
|
||||
use C4::Output;
|
||||
use C4::Interface::CGI::Output;
|
||||
use C4::Context;
|
||||
use HTML::Template;
|
||||
|
||||
my $query = new CGI;
|
||||
my ($template, $loggedinuser, $cookie)
|
||||
= get_template_and_user({template_name => "bull/subscription.tmpl",
|
||||
query => $query,
|
||||
type => "intranet",
|
||||
authnotrequired => 0,
|
||||
flagsrequired => {catalogue => 1},
|
||||
debug => 1,
|
||||
});
|
||||
output_html_with_http_headers $query, $cookie, $template->output;
|
||||
Loading…
Reference in New Issue