From 77c5e7445d297a8ef3fb7c749f6617cd870d3448 Mon Sep 17 00:00:00 2001 From: tipaul Date: Wed, 24 Nov 2004 20:30:06 +0000 Subject: [PATCH] bugfix in editor chooser --- value_builder/unimarc_field_210c.pl | 137 ++++++++++++++++++++++++++-- 1 file changed, 127 insertions(+), 10 deletions(-) diff --git a/value_builder/unimarc_field_210c.pl b/value_builder/unimarc_field_210c.pl index 3fbd075290..d42e498860 100644 --- a/value_builder/unimarc_field_210c.pl +++ b/value_builder/unimarc_field_210c.pl @@ -19,13 +19,17 @@ # 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 C4::AuthoritiesMarc; use C4::Auth; -use CGI; use C4::Context; -use HTML::Template; -use C4::Search; use C4::Output; +use C4::Interface::CGI::Output; +use CGI; +use C4::Search; +use MARC::Record; +use C4::Koha; +use HTML::Template; =head1 @@ -103,8 +107,7 @@ function Blur$function_name(subfield_managed) { function Clic$function_name(subfield_managed) { defaultvalue=escape(document.forms[0].field_value[subfield_managed].value); - newin=window.open(\"../authorities/authorities-home.pl\",\"value builder\",'width=500,height=400,toolbar=false,scrollbars=yes'); - + newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&index=\"+subfield_managed,\"unimarc 225a\",'width=500,height=600,toolbar=false,scrollbars=no'); } "; @@ -121,10 +124,124 @@ sub plugin { my ($input) = @_; my $index = $input->param("index"); my $result = $input->param("result"); - $result=~s/ / /g; - $result=~s/"/"/g; - print "Content-Type: text/html\n\n"; - exit; + + my $query=new CGI; + my $op = $query->param('op'); + my $authtypecode = $query->param('authtypecode'); + my $index = $query->param('index'); + my $category = $query->param('category'); + my $resultstring = $query->param('result'); + my $dbh = C4::Context->dbh; + + my $startfrom=$query->param('startfrom'); + $startfrom=0 if(!defined $startfrom); + my ($template, $loggedinuser, $cookie); + my $resultsperpage; + + my $authtypes = getauthtypes; + my @authtypesloop; + foreach my $thisauthtype (keys %$authtypes) { + my $selected = 1 if $thisauthtype eq $authtypecode; + my %row =(value => $thisauthtype, + selected => $selected, + authtypetext => $authtypes->{$thisauthtype}{'authtypetext'}, + index => $index, + ); + push @authtypesloop, \%row; + } + + 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); + + # builds tag and subfield arrays + my @tags; + + my ($results,$total) = authoritysearch($dbh, \@tags,\@and_or, + \@excluding, \@operator, \@value, + $startfrom*$resultsperpage, $resultsperpage,$authtypecode);# $orderby); + + ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "value_builder/unimarc_field_210c.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 @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 , + 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) if $results; + $template->param(index => $query->param('index')); + $template->param(startfrom=> $startfrom, + displaynext=> $displaynext, + displayprev=> $displayprev, + resultsperpage => $resultsperpage, + startfromnext => $startfrom+1, + startfromprev => $startfrom-1, + index => $index, + total=>$total, + from=>$from, + to=>$to, + numbers=>\@numbers, + authtypecode =>$authtypecode, + resultstring =>$value[0], + ); + } else { + ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "value_builder/unimarc_field_210c.tmpl", + query => $query, + type => 'intranet', + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); + + $template->param(index => $index, + resultstring => $resultstring + ); + } + + $template->param(authtypesloop => \@authtypesloop); + $template->param(category => $category); + + # Print the page + output_html_with_http_headers $query, $cookie, $template->output; } 1; -- 2.39.5