my $query = "UPDATE aqorders_items set itemnumber=? where itemnumber=? and ordernumber=?";
my @params = ($orderiteminfo->{'newitemnumber'}, $orderiteminfo->{'itemnumber'}, $orderiteminfo->{'ordernumber'});
- warn $query;
- warn Data::Dumper::Dumper(@params);
my $sth = $dbh->prepare($query);
$sth->execute(@params);
return 0;
}
}
$query .= " ORDER BY id";
- warn $query;
my $sth = $dbh->prepare($query);
$sth->execute( @query_params );
my $cnt = 1;
my $ssth = $dbh->prepare("SELECT serialseq,publisheddate from serialitems left join serial on serialitems.serialid=serial.serialid where serialitems.itemnumber=?");
$ssth->execute($data->{'itemnumber'}) ;
($data->{'serialseq'} , $data->{'publisheddate'}) = $ssth->fetchrow_array();
- warn $data->{'serialseq'} , $data->{'publisheddate'};
}
#if we don't have an items.itype, use biblioitems.itemtype.
if( ! $data->{'itype'} ) {
my $barcode_y_scale_factor = 0.01 * $self->{'height'}; # this scales the barcode height to 10% of the label height
my $line_spacer = ($self->{'font_size'} * 1); # number of pixels between text rows (This is actually leading: baseline to baseline minus font size. Recommended starting point is 20% of font size.).
my $text_lly = ($self->{'lly'} + ($self->{'height'} - $self->{'top_text_margin'}));
- warn "Label: llx $self->{'llx'}, lly $self->{'lly'}, Text: lly $text_lly, $line_spacer, Barcode: llx $barcode_llx, lly $barcode_lly, $barcode_width, $barcode_y_scale_factor\n";
+ $debug and warn "Label: llx $self->{'llx'}, lly $self->{'lly'}, Text: lly $text_lly, $line_spacer, Barcode: llx $barcode_llx, lly $barcode_lly, $barcode_width, $barcode_y_scale_factor\n";
return $self->{'llx'}, $text_lly, $line_spacer, $barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor;
}
'Content-Type' => 'text/plain; charset="utf8"',
);
sendmail(%mail) or carp $Mail::Sendmail::error;
- warn
-"sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}";
}
if ( C4::Context->preference("LetterLog") ) {
logaction(
. $innerletter->{content}
) if C4::Context->preference("LetterLog");
}
- warn
-"sending to From $userenv->{emailaddress} subj $innerletter->{title} Mess $innerletter->{content}";
}
# send an "account details" notice to a newly created user
elsif ( $type eq 'members' ) {
($preprocess,$postprocess, $fieldprocessing) = YAML::LoadFile($configfile);
}
- warn $fieldprocessing;
# Preprocessing
eval $preprocess if ($preprocess);
## end RIS dataset
print "ER - \n";
- warn $outvar;
-
# Let's re-redirect stdout
close STDOUT;
open STDOUT, ">&", $oldout;
}
elsif ($uniout eq "t") {
## convert to utf-8
- warn "marc8_to_utf8";
return marc8_to_utf8("@_");
}
else {
# depending of operand, intersect, union or exclude both lists
# to get a result list
if ( $operator eq ' and ' ) {
- warn "NZAND";
return NZoperatorAND($leftresult,$rightresult);
}
elsif ( $operator eq ' or ' ) {
# spawn a separate 'cat' process.
my $pid=`cat $pidfile`;
chomp $pid;
- warn "PID : $pid";
# Kill -HUP the Z39.50 daemon to tell it to process
# this query.
my $processcount=kill 1, $pid;
my ( $error, $marcresults, $total_hits ) = SimpleSearch( $builtquery, $results_per_page * ( $page - 1 ), $results_per_page );
if (defined $error) {
- warn "error: ".$error;
$template->param(
query_error => $error,
basketno => $basketno,
}
if ($error_delitem || $error_delbiblio) {
- warn $error_delitem;
- warn $error_delbiblio;
if ($error_delitem) { $template->param(error_delitem => 1); }
if ($error_delbiblio) { $template->param(error_delbiblio => 1); }
} else {
my $biblionumber = $input->param('biblionumber');
$biblionumber = 0 unless $biblionumber;
my $frameworkcode = $input->param('frameworkcode');
-warn($frameworkcode);
my $title = $input->param('title');
my $author = $input->param('author');
my $isbn = $input->param('isbn');
my $strquery = "SELECT authorised_value, lib from authorised_values where category = ? and lib like ?";
# $strquery .= " LIMIT $startfrom,$upperlimit";
- warn 'category : '.$cat_auth.' recherche :'.$search;
- warn "$strquery";
$search=~s/\*/%/g;
my $sth = $dbh->prepare($strquery);
$sth->execute($cat_auth,$search);
$template->param(
'index'=>''.$query->param('index')
) if ($query->param('index'));
- warn 'index : '.$query->param('index');
$template->param(
'cat_auth'=>$cat_auth
) if ($cat_auth);
$result = " nam 7a " unless $result;
my $f5 = substr($result,5,1);
my $f6 = substr($result,6,1);
- warn "F6".$f6;
my $f7 = substr($result,7,1);
my $f8 = substr($result,8,1);
my $f9 = substr($result,9,1);
debug => 1,
});
$result = " nmm 7a " unless $result;
- warn "RESULT:".$result;
my $f5 = substr($result,5,1);
my $f6 = substr($result,6,1);
- warn "F6".$f6;
my $f7 = substr($result,7,1);
- warn "F7:".$f7;
my $f8 = substr($result,8,1);
my $f9 = substr($result,9,1);
my $f17 = substr($result,17,1);
$result = " ngm 7a " unless $result;
my $f5 = substr($result,5,1);
my $f6 = substr($result,6,1);
- warn "F6".$f6;
my $f7 = substr($result,7,1);
my $f8 = substr($result,8,1);
my $f9 = substr($result,9,1);
return => $code,
);
}
- warn $code;
output_html_with_http_headers $input, $cookie, $template->output;
}
my $sth = $dbh->prepare('SELECT publishercode FROM biblioitems WHERE isbn LIKE ? OR isbn LIKE ? LIMIT 1');
$isbn =~ s/-//g;
- warn $isbn;
if (length ($isbn) == 13){
$isbn = substr($isbn, 3, length($isbn)-3);
}
);
my $op = $cgi->param('op');
-warn "operation = $op\n";
my $template_id = $cgi->param('template_id') || $cgi->param('element_id');
my $label_template = undef;
my $profile_list = undef;
# Getting the messages
my $queued_messages = C4::Letters::GetQueuedMessages({borrowernumber => $borrowernumber});
-warn Data::Dumper::Dumper( $queued_messages );
$template->param(
QUEUED_MESSAGES => $queued_messages,
BORROWER_INFO => [ $borrower ],
my $language = $query->param('language');
my $url = $query->referer();
-warn "Language : $query // $language // $url";
setlanguagecookie( $query, $language, $url );
for my $sup_record ( @{$results_hashref->{$server}->{"RECORDS"}} ) {
my $marc_record_object = MARC::Record->new_from_usmarc($sup_record);
my $title_field = $marc_record_object->field(100);
- warn "Authority Found: ".$marc_record_object->as_formatted();
push @inner_sup_results_array, {
'title' => $title_field->subfield('a'),
'link' => "&idx=an&q=".$marc_record_object->field('001')->as_string(),
if ( sendmail %mail ) {
# do something if it works....
- warn "Mail sent ok\n";
print $query->redirect('/cgi-bin/koha/opac-user.pl?patronupdate=sent');
exit;
}
}
$strsth2 .=" group by $colfield";
$strsth2 .=" order by $colorder";
- warn "". $strsth2;
my $sth2 = $dbh->prepare( $strsth2 );
if (( @colfilter ) and ($colfilter[1])){
$query_criteria .= " AND $crit='$value'";
}
}
- warn $query_criteria;
}
$template->param(
}
$strsth2 .=" GROUP BY $colfield";
$strsth2 .=" ORDER BY $colorder";
- warn "". $strsth2;
my $sth2 = $dbh->prepare( $strsth2 );
if (( @colfilter ) and ($colfilter[1])){
$strcalc .= " AND monthname(returndate) like '" . @$filters[6] ."'" if ( @$filters[6] );
$strcalc .= " group by $linefield, $colfield, issuedate, returndate order by $linefield, $colfield";
- warn "SQL :". $strcalc;
my $dbcalc = $dbh->prepare($strcalc);
$dbcalc->execute;
$cgidir = C4::Context->intranetdir."/reports/";
}
my $plugin = $cgidir.$report_name.".plugin";
-warn "PLUGIN:".$plugin;
require $plugin;
if ($do_it) {
my $results = calculate(\@values);
$query .= (C4::Context->preference('item-level_itypes')) ? " AND items.itype = ? " : " AND biblioitems.itemtype = ?";
push @sql_params, $itemtype;
}
- warn "$query, @sql_params";
my $sth = $dbh->prepare($query);
$sth->execute(@sql_params);
projects / koha_gimpoz / commitdiff