[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/value_builder unimarc_field_210c.pl,1.6,1.7
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/value_builder unimarc_field_210c.pl,1.6,1.7 |
Date: |
Wed, 24 Nov 2004 12:30:09 -0800 |
Update of /cvsroot/koha/koha/value_builder
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9619/value_builder
Modified Files:
unimarc_field_210c.pl
Log Message:
bugfix in editor chooser
Index: unimarc_field_210c.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_210c.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** unimarc_field_210c.pl 23 Sep 2004 16:33:13 -0000 1.6
--- unimarc_field_210c.pl 24 Nov 2004 20:30:06 -0000 1.7
***************
*** 20,30 ****
# Suite 330, Boston, MA 02111-1307 USA
! use strict;
use C4::Auth;
- use CGI;
use C4::Context;
- use HTML::Template;
- use C4::Search;
use C4::Output;
=head1
--- 20,34 ----
# Suite 330, Boston, MA 02111-1307 USA
! require Exporter;
! use C4::AuthoritiesMarc;
use C4::Auth;
use C4::Context;
use C4::Output;
+ use C4::Interface::CGI::Output;
+ use CGI;
+ use C4::Search;
+ use MARC::Record;
+ use C4::Koha;
+ use HTML::Template;
=head1
***************
*** 104,109 ****
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');
!
}
</script>
--- 108,112 ----
function Clic$function_name(subfield_managed) {
defaultvalue=escape(document.forms[0].field_value[subfield_managed].value);
!
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');
}
</script>
***************
*** 122,129 ****
my $index = $input->param("index");
my $result = $input->param("result");
! $result=~s/ / /g;
! $result=~s/"/"/g;
! print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0;
URL=thesaurus_popup.pl?category=EDITORS&nohierarchy=1&index=$index&result=$result\"></html>";
! exit;
}
--- 125,246 ----
my $index = $input->param("index");
my $result = $input->param("result");
!
! 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,
address@hidden,address@hidden,
!
address@hidden, address@hidden, address@hidden,
!
$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=>address@hidden,
! 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 => address@hidden);
! $template->param(category => $category);
!
! # Print the page
! output_html_with_http_headers $query, $cookie, $template->output;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/value_builder unimarc_field_210c.pl,1.6,1.7,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/fr about.tmpl,1.2,1.3 auth.tmpl,1.2,1.3 bookcount.tmpl,1.2,1.3 boraccount.tmpl,1.5,1.6 charges.tmpl,1.2,1.3 default.tmpl,1.2,1.3 intranet-main.tmpl,1.7,1.8 mancredit.tmpl,1.2,1.3 maninvoice.tmpl,1.2,1.3 member-flags.tmpl,1.2,1.3 modbibitem.tmpl,1.2,1.3 modbib.tmpl,1.3,1.4 moditem.tmpl,1.2,1.3 modwebsites.tmpl,1.2,1.3 opac-main.tmpl,1.2,1.3 overdue.tmpl,1.2,1.3 reports.tmpl,1.2,1.3 request.tmpl,1.6,1.7 reservereport.tmpl,1.2,1.3 searchheader.tmpl,1.2,1.3 shelves.tmpl,1.2,1.3 stats.tmpl,1.2,1.3 thesaurus_popup.tmpl,1.4,1.5 updatebiblio.tmpl,1.2,1.3
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/value_builder unimarc_field_210c.tmpl,NONE,1.1 unimarc_field_140.tmpl,1.1,1.2 unimarc_field_141.tmpl,1.1,1.2 unimarc_field_225a.tmpl,1.3,1.4
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/fr about.tmpl,1.2,1.3 auth.tmpl,1.2,1.3 bookcount.tmpl,1.2,1.3 boraccount.tmpl,1.5,1.6 charges.tmpl,1.2,1.3 default.tmpl,1.2,1.3 intranet-main.tmpl,1.7,1.8 mancredit.tmpl,1.2,1.3 maninvoice.tmpl,1.2,1.3 member-flags.tmpl,1.2,1.3 modbibitem.tmpl,1.2,1.3 modbib.tmpl,1.3,1.4 moditem.tmpl,1.2,1.3 modwebsites.tmpl,1.2,1.3 opac-main.tmpl,1.2,1.3 overdue.tmpl,1.2,1.3 reports.tmpl,1.2,1.3 request.tmpl,1.6,1.7 reservereport.tmpl,1.2,1.3 searchheader.tmpl,1.2,1.3 shelves.tmpl,1.2,1.3 stats.tmpl,1.2,1.3 thesaurus_popup.tmpl,1.4,1.5 updatebiblio.tmpl,1.2,1.3
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/value_builder unimarc_field_210c.tmpl,NONE,1.1 unimarc_field_140.tmpl,1.1,1.2 unimarc_field_141.tmpl,1.1,1.2 unimarc_field_225a.tmpl,1.3,1.4
- Index(es):