[Koha-cvs] CVS: koha/bull receipt.pl,NONE,1.1 statecollection.pl,NONE,1.1 subscription-add-help.pl,NONE,1.1 subscription-add.pl,NONE,1.1 subscription-bib-search.pl,NONE,1.1 subscription-detail.pl,NONE,1.1 subscription.pl,NONE,1.1 subscription-watch.pl,NONE,1.1
doXulting
doxulting at users.sourceforge.net
Fri Jul 30 16:12:09 CEST 2004
Update of /cvsroot/koha/koha/bull
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16920/koha/bull
Added Files:
receipt.pl statecollection.pl subscription-add-help.pl
subscription-add.pl subscription-bib-search.pl
subscription-detail.pl subscription.pl subscription-watch.pl
Log Message:
perl files of the serial modul
--- NEW FILE ---
#!/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;
}
--- NEW FILE ---
#!/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;
--- NEW FILE ---
#!/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;
--- NEW FILE ---
#!/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;
--- NEW FILE ---
#!/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, at 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:
--- NEW FILE ---
#!/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;
--- NEW FILE ---
#!/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;
--- NEW FILE ---
#!/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;
More information about the Koha-cvs
mailing list