[Koha-cvs] koha acquiacquire.pl acquilateorders.pl acquine... [rel_2_2]
Owen Leonard
oleonard at athenscounty.lib.oh.us
Tue Jun 20 18:21:43 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Owen Leonard <oleonard> 06/06/20 16:21:43
Modified files:
acqui : acquire.pl lateorders.pl newbasket2.pl
newbiblio.pl
admin : aqbookfund.pl aqbudget.pl
auth_subfields_structure.pl
auth_tag_structure.pl authorised_values.pl
koha2marclinks.pl marc_subfields_structure.pl
marctagstructure.pl thesaurus.pl
authorities : authorities-home.pl authorities.pl
bookshelves : addbookbybiblionumber.pl
bull : lateissues.pl subscription-bib-search.pl
circ : circulation.pl
export : marc.pl
koha-tmpl/intranet-tmpl/npl/en/acqui: supplier.tmpl
members : imemberentry.pl memberentry.pl
opac : opac-addbookbybiblionumber.pl
. : request.pl thesaurus_popup.pl
search.marc : search.pl
Log message:
Adding "tabindex=''" to CGI:scrolling_lists to prevent incorrect tabbing. See Bug 1098
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/acquire.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.18.2.4&r2=1.18.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/lateorders.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.2&r2=1.1.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/newbasket2.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.15.2.1&r2=1.15.2.2
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/newbiblio.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.21.2.6&r2=1.21.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/admin/aqbookfund.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.19.2.9&r2=1.19.2.10
http://cvs.savannah.gnu.org/viewcvs/koha/admin/aqbudget.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.16.2.5&r2=1.16.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/admin/auth_subfields_structure.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.3.2.4&r2=1.3.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/admin/auth_tag_structure.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.2.2.5&r2=1.2.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/admin/authorised_values.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.14.2.4&r2=1.14.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/admin/koha2marclinks.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.11.2.3&r2=1.11.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/admin/marc_subfields_structure.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.32.2.10&r2=1.32.2.11
http://cvs.savannah.gnu.org/viewcvs/koha/admin/marctagstructure.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.25.2.6&r2=1.25.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/admin/thesaurus.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.11.2.3&r2=1.11.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/authorities/authorities-home.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.8.2.6&r2=1.8.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/authorities/authorities.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.8.2.9&r2=1.8.2.10
http://cvs.savannah.gnu.org/viewcvs/koha/bookshelves/addbookbybiblionumber.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.3.2.3&r2=1.3.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/bull/lateissues.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.5&r2=1.1.2.6
http://cvs.savannah.gnu.org/viewcvs/koha/bull/subscription-bib-search.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.3.2.4&r2=1.3.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.81.2.14&r2=1.81.2.15
http://cvs.savannah.gnu.org/viewcvs/koha/export/marc.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.4.2.6&r2=1.4.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/koha-tmpl/intranet-tmpl/npl/en/acqui/supplier.tmpl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.3&r2=1.1.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/members/imemberentry.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.4&r2=1.1.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.5.2.13&r2=1.5.2.14
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-addbookbybiblionumber.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.6&r2=1.1.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/request.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.28.2.4&r2=1.28.2.5
http://cvs.savannah.gnu.org/viewcvs/koha/thesaurus_popup.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.15&r2=1.15.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/search.marc/search.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.22.2.10&r2=1.22.2.11
Patches:
Index: acqui/acquire.pl
===================================================================
RCS file: /sources/koha/koha/acqui/acquire.pl,v
retrieving revision 1.18.2.4
retrieving revision 1.18.2.5
diff -u -b -r1.18.2.4 -r1.18.2.5
--- acqui/acquire.pl 7 Mar 2006 16:57:47 -0000 1.18.2.4
+++ acqui/acquire.pl 20 Jun 2006 16:21:42 -0000 1.18.2.5
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: acquire.pl,v 1.18.2.4 2006/03/07 16:57:47 oleonard Exp $
+# $Id: acquire.pl,v 1.18.2.5 2006/06/20 16:21:42 oleonard Exp $
#script to recieve orders
#written by chris at katipo.co.nz 24/2/2000
@@ -78,6 +78,7 @@
# -default => $results[0]->{'itemtype'},
# -labels => \%itemtypes,
# -size => 1,
+# -tabindex=>'',
# -multiple => 0 );
# $sth->finish;
@@ -94,6 +95,7 @@
-default => $results[0]->{'branchcode'},
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
my $auto_barcode = C4::Context->boolean_preference("autoBarcode") || 0;
@@ -121,6 +123,7 @@
# -default => $results[0]->{'bookfundid'},
# -labels => \%select_bookfunds,
# -size => 1,
+# -tabindex=>'',
# -multiple => 0 );
if ($results[0]->{'quantityreceived'} == 0){
Index: acqui/lateorders.pl
===================================================================
RCS file: /sources/koha/koha/acqui/lateorders.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- acqui/lateorders.pl 21 Feb 2006 20:26:06 -0000 1.1.2.2
+++ acqui/lateorders.pl 20 Jun 2006 16:21:42 -0000 1.1.2.3
@@ -39,6 +39,7 @@
-default => $supplierid,
-labels => \%supplierlist,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$template->param(Supplier=>$supplierlist{$supplierid}) if ($supplierid);
@@ -57,6 +58,7 @@
-values => \@select_branches,
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
my ($count, @lateorders) = getlateorders($delay,$supplierid,$branch);
Index: acqui/newbasket2.pl
===================================================================
RCS file: /sources/koha/koha/acqui/newbasket2.pl,v
retrieving revision 1.15.2.1
retrieving revision 1.15.2.2
diff -u -b -r1.15.2.1 -r1.15.2.2
--- acqui/newbasket2.pl 25 Mar 2005 12:49:23 -0000 1.15.2.1
+++ acqui/newbasket2.pl 20 Jun 2006 16:21:42 -0000 1.15.2.2
@@ -222,6 +222,7 @@
$lineres{biblionumber}=$result->{biblionumber};
$lineres{title}=$result->{title};
$lineres{author}=$result->{author};
+ $lineres{colour}=$colour;
$lineres{toggle}=$toggle;
$lineres{itemcount}=$count;
$lineres{location}=$location;
@@ -246,6 +247,8 @@
author => $author,
loopsearch =>\@loopsearch,
loopresult =>\@loopresult,
+ intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
+ intranetstylesheet => C4::Context->preference("intranetstylesheet"),
'use-location-flags-p' => 1);
output_html_with_http_headers $input, $cookie, $template->output;
Index: acqui/newbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.21.2.6
retrieving revision 1.21.2.7
diff -u -b -r1.21.2.6 -r1.21.2.7
--- acqui/newbiblio.pl 5 Feb 2006 21:59:21 -0000 1.21.2.6
+++ acqui/newbiblio.pl 20 Jun 2006 16:21:42 -0000 1.21.2.7
@@ -106,6 +106,7 @@
-default => $data->{'itemtype'},
-labels => \%itemtypes,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$sth->finish;
@@ -123,6 +124,7 @@
-default => $data->{'branchcode'},
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
# build bookfund list
@@ -139,6 +141,7 @@
-default => $data->{'bookfundid'},
-labels => \%select_bookfunds,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
my $bookfundname;
my $bookfundid;
Index: admin/aqbookfund.pl
===================================================================
RCS file: /sources/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.19.2.9
retrieving revision 1.19.2.10
diff -u -b -r1.19.2.9 -r1.19.2.10
--- admin/aqbookfund.pl 5 Feb 2006 21:59:21 -0000 1.19.2.9
+++ admin/aqbookfund.pl 20 Jun 2006 16:21:42 -0000 1.19.2.10
@@ -127,6 +127,7 @@
-values => \@select_branch,
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$template->param(CGIbranch => $CGIbranch);
Index: admin/aqbudget.pl
===================================================================
RCS file: /sources/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.16.2.5
retrieving revision 1.16.2.6
diff -u -b -r1.16.2.5 -r1.16.2.6
--- admin/aqbudget.pl 5 Feb 2006 21:59:21 -0000 1.16.2.5
+++ admin/aqbudget.pl 20 Jun 2006 16:21:42 -0000 1.16.2.6
@@ -151,6 +151,7 @@
# -labels => \%select_branches,
# -default => ($dataaqbookfund->{branchcode}?$dataaqbookfund->{branchcode}:$dataaqbudget->{branchcode}),
# -size => 1,
+# -tabindex=>'',
# -multiple => 0 );
# $template->param(CGIbranch => $CGIbranch);
Index: admin/auth_subfields_structure.pl
===================================================================
RCS file: /sources/koha/koha/admin/auth_subfields_structure.pl,v
retrieving revision 1.3.2.4
retrieving revision 1.3.2.5
diff -u -b -r1.3.2.4 -r1.3.2.5
--- admin/auth_subfields_structure.pl 5 Feb 2006 21:59:21 -0000 1.3.2.4
+++ admin/auth_subfields_structure.pl 20 Jun 2006 16:21:42 -0000 1.3.2.5
@@ -124,9 +124,10 @@
},
-default=>$data->{'tab'},
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
- $row_data{tagsubfield} =$data->{'tagsubfield'}."<input type='hidden' name='tagsubfield' value='".$data->{'tagsubfield'}."'>";
+ $row_data{tagsubfield} =$data->{'tagsubfield'}."<input type=\"hidden\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" />";
$row_data{liblibrarian} = CGI::escapeHTML($data->{'liblibrarian'});
$row_data{libopac} = CGI::escapeHTML($data->{'libopac'});
$row_data{seealso} = CGI::escapeHTML($data->{'seealso'});
@@ -134,12 +135,14 @@
-values=> \@authorised_values,
-default=>$data->{'authorised_value'},
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{value_builder} = CGI::scrolling_list(-name=>'value_builder',
-values=> \@value_builder,
-default=>$data->{'value_builder'},
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{repeatable} = CGI::checkbox("repeatable$i",$data->{'repeatable'}?'checked':'',1,'');
@@ -157,9 +160,10 @@
},
-default=>"",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
- $row_data{tagsubfield} = "<input type=\"text\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" size=\"3\" maxlength=\"1\">";
+ $row_data{tagsubfield} = "<input type=\"text\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" size=\"3\" maxlength=\"1\" />";
$row_data{liblibrarian} = "";
$row_data{libopac} = "";
$row_data{seealso} = "";
@@ -168,6 +172,7 @@
$row_data{authorised_value} = CGI::scrolling_list(-name=>'authorised_value',
-values=> \@authorised_values,
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{bgcolor} = $toggle;
@@ -176,7 +181,7 @@
$template->param('use-heading-flags-p' => 1);
$template->param('heading-edit-subfields-p' => 1);
$template->param(action => "Edit subfields",
- tagfield => "<input type=\"hidden\" name=\"tagfield\" value=\"$tagfield\">$tagfield",
+ tagfield => "<input type=\"hidden\" name=\"tagfield\" value=\"$tagfield\" />$tagfield",
loop => \@loop_data,
more_subfields => $more_subfields,
more_tag => $tagfield);
Index: admin/auth_tag_structure.pl
===================================================================
RCS file: /sources/koha/koha/admin/auth_tag_structure.pl,v
retrieving revision 1.2.2.5
retrieving revision 1.2.2.6
diff -u -b -r1.2.2.5 -r1.2.2.6
--- admin/auth_tag_structure.pl 7 Mar 2006 20:19:07 -0000 1.2.2.5
+++ admin/auth_tag_structure.pl 20 Jun 2006 16:21:42 -0000 1.2.2.6
@@ -118,6 +118,7 @@
my $authorised_value = CGI::scrolling_list(-name=>'authorised_value',
-values=> \@authorised_values,
-size=>1,
+ -tabindex=>'',
-multiple=>0,
-default => $data->{'authorised_value'},
);
Index: admin/authorised_values.pl
===================================================================
RCS file: /sources/koha/koha/admin/authorised_values.pl,v
retrieving revision 1.14.2.4
retrieving revision 1.14.2.5
diff -u -b -r1.14.2.4 -r1.14.2.5
--- admin/authorised_values.pl 5 Feb 2006 21:59:21 -0000 1.14.2.4
+++ admin/authorised_values.pl 20 Jun 2006 16:21:42 -0000 1.14.2.5
@@ -157,6 +157,7 @@
-values=> \@category_list,
-default=>"",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
if (!$searchfield) {
Index: admin/koha2marclinks.pl
===================================================================
RCS file: /sources/koha/koha/admin/koha2marclinks.pl,v
retrieving revision 1.11.2.3
retrieving revision 1.11.2.4
diff -u -b -r1.11.2.3 -r1.11.2.4
--- admin/koha2marclinks.pl 5 Feb 2006 21:59:21 -0000 1.11.2.3
+++ admin/koha2marclinks.pl 20 Jun 2006 16:21:42 -0000 1.11.2.4
@@ -74,6 +74,7 @@
-values=> \@marcarray,
-default=>"$defaulttagfield $defaulttagsubfield - $defaultliblibrarian",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$template->param("marclist$i" => $marclist);
@@ -131,6 +132,7 @@
-values=>['biblio','biblioitems','items','bibliosubject','bibliosubtitle','additionalauthors'],
-default=>$tablename,
-size=>1,
+ -tabindex=>'',
-multiple=>0
)
);
Index: admin/marc_subfields_structure.pl
===================================================================
RCS file: /sources/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.32.2.10
retrieving revision 1.32.2.11
diff -u -b -r1.32.2.10 -r1.32.2.11
--- admin/marc_subfields_structure.pl 14 Mar 2006 18:52:01 -0000 1.32.2.10
+++ admin/marc_subfields_structure.pl 20 Jun 2006 16:21:42 -0000 1.32.2.11
@@ -172,6 +172,7 @@
},
-default=>$data->{'tab'},
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{tagsubfield} =$data->{'tagsubfield'}."<input type=\"hidden\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" id=\"tagsubfield\">";
@@ -183,6 +184,7 @@
-values=> \@kohafields,
-default=> "$data->{'kohafield'}",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{authorised_value} = CGI::scrolling_list(-name=>'authorised_value',
@@ -190,6 +192,7 @@
-values=> \@authorised_values,
-default=>$data->{'authorised_value'},
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{value_builder} = CGI::scrolling_list(-name=>'value_builder',
@@ -197,6 +200,7 @@
-values=> \@value_builder,
-default=>$data->{'value_builder'},
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{authtypes} = CGI::scrolling_list(-name=>'authtypecode',
@@ -204,16 +208,19 @@
-values=> \@authtypes,
-default=>$data->{'authtypecode'},
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{repeatable} = CGI::checkbox(-name=>"repeatable$i",
-checked => $data->{'repeatable'}?'checked':'',
-value => 1,
+ -tabindex=>'',
-label => '',
-id => "repeatable$i");
$row_data{mandatory} = CGI::checkbox(-name => "mandatory$i",
-checked => $data->{'mandatory'}?'checked':'',
-value => 1,
+ -tabindex=>'',
-label => '',
-id => "mandatory$i");
$row_data{hidden} = CGI::escapeHTML($data->{hidden});
@@ -221,6 +228,7 @@
-id => "isurl$i",
-checked => $data->{'isurl'}?'checked':'',
-value => 1,
+ -tabindex=>'',
-label => '');
$row_data{row} = $i;
$row_data{toggle} = $toggle;
@@ -241,6 +249,7 @@
},
-default=>"",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{tagsubfield} = "<input type=\"text\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" size=\"1\" id=\"tagsubfield\" maxlength=\"1\">";
@@ -252,34 +261,40 @@
-id => "repeatable$i",
-checked => '',
-value => 1,
+ -tabindex=>'',
-label => '');
$row_data{mandatory} = CGI::checkbox( -name=> 'mandatory',
-id => "mandatory$i",
-checked => '',
-value => 1,
+ -tabindex=>'',
-label => '');
$row_data{isurl} = CGI::checkbox(-name => 'isurl',
-id => "isurl$i",
-checked => '',
-value => 1,
+ -tabindex=>'',
-label => '');
$row_data{kohafield}= CGI::scrolling_list( -name=>'kohafield',
-id => "kohafield$i",
-values=> \@kohafields,
-default=> "",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{authorised_value} = CGI::scrolling_list(-name=>'authorised_value',
-id => 'authorised_value',
-values=> \@authorised_values,
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{authtypes} = CGI::scrolling_list(-name=>'authtypecode',
-id => 'authtypecode',
-values=> \@authtypes,
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
$row_data{link} = CGI::escapeHTML($data->{'link'});
Index: admin/marctagstructure.pl
===================================================================
RCS file: /sources/koha/koha/admin/marctagstructure.pl,v
retrieving revision 1.25.2.6
retrieving revision 1.25.2.7
diff -u -b -r1.25.2.6 -r1.25.2.7
--- admin/marctagstructure.pl 5 Feb 2006 21:59:21 -0000 1.25.2.6
+++ admin/marctagstructure.pl 20 Jun 2006 16:21:42 -0000 1.25.2.7
@@ -119,6 +119,7 @@
my $authorised_value = CGI::scrolling_list(-name=>'authorised_value',
-values=> \@authorised_values,
-size=>1,
+ -tabindex=>'',
-id=>"authorised_value",
-multiple=>0,
-default => $data->{'authorised_value'},
@@ -139,11 +140,13 @@
repeatable => CGI::checkbox(-name=>'repeatable',
-checked=> $data->{'repeatable'}?'checked':'',
-value=> 1,
+ -tabindex=>'',
-label => '',
-id=> 'repeatable'),
mandatory => CGI::checkbox(-name => 'mandatory',
-checked => $data->{'mandatory'}?'checked':'',
-value => 1,
+ -tabindex=>'',
-label => '',
-id => 'mandatory'),
authorised_value => $authorised_value,
Index: admin/thesaurus.pl
===================================================================
RCS file: /sources/koha/koha/admin/thesaurus.pl,v
retrieving revision 1.11.2.3
retrieving revision 1.11.2.4
diff -u -b -r1.11.2.3 -r1.11.2.4
--- admin/thesaurus.pl 5 Feb 2006 21:59:21 -0000 1.11.2.3
+++ admin/thesaurus.pl 20 Jun 2006 16:21:42 -0000 1.11.2.4
@@ -153,6 +153,7 @@
-values=> \@category_list,
-default=>"$search_category",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
if (!$search_category) {
@@ -201,6 +202,7 @@
-values=> \@category_list,
-default=>"$search_category",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
if (!$search_category) {
Index: authorities/authorities-home.pl
===================================================================
RCS file: /sources/koha/koha/authorities/authorities-home.pl,v
retrieving revision 1.8.2.6
retrieving revision 1.8.2.7
diff -u -b -r1.8.2.6 -r1.8.2.7
--- authorities/authorities-home.pl 5 Feb 2006 21:59:21 -0000 1.8.2.6
+++ authorities/authorities-home.pl 20 Jun 2006 16:21:42 -0000 1.8.2.7
@@ -191,6 +191,7 @@
my $marclist = create_scrolling_list({name=>"marclist",
values=> $marcarray,
size=> 1,
+ -tabindex=>'',
default=>$marcfields[$i],
onChange => "sql_update()"}
);
@@ -224,6 +225,7 @@
my $marclist = create_scrolling_list({name=>"marclist",
values=> $marcarray,
size=>1,
+ -tabindex=>'',
onChange => "sql_update()"});
push @statements, {"marclist" => $marclist };
Index: authorities/authorities.pl
===================================================================
RCS file: /sources/koha/koha/authorities/authorities.pl,v
retrieving revision 1.8.2.9
retrieving revision 1.8.2.10
diff -u -b -r1.8.2.9 -r1.8.2.10
--- authorities/authorities.pl 4 Mar 2006 17:18:10 -0000 1.8.2.9
+++ authorities/authorities.pl 20 Jun 2006 16:21:42 -0000 1.8.2.10
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: authorities.pl,v 1.8.2.9 2006/03/04 17:18:10 kados Exp $
+# $Id: authorities.pl,v 1.8.2.10 2006/06/20 16:21:42 oleonard Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -122,6 +122,7 @@
-default => $value,
-labels => \%authorised_lib,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
}
Index: bookshelves/addbookbybiblionumber.pl
===================================================================
RCS file: /sources/koha/koha/bookshelves/addbookbybiblionumber.pl,v
retrieving revision 1.3.2.3
retrieving revision 1.3.2.4
diff -u -b -r1.3.2.3 -r1.3.2.4
--- bookshelves/addbookbybiblionumber.pl 5 Feb 2006 21:59:21 -0000 1.3.2.3
+++ bookshelves/addbookbybiblionumber.pl 20 Jun 2006 16:21:42 -0000 1.3.2.4
@@ -2,7 +2,7 @@
#script to provide bookshelf management
# WARNING: This file uses 4-character tabs!
#
-# $Header: /sources/koha/koha/bookshelves/addbookbybiblionumber.pl,v 1.3.2.3 2006/02/05 21:59:21 kados Exp $
+# $Header: /sources/koha/koha/bookshelves/addbookbybiblionumber.pl,v 1.3.2.4 2006/06/20 16:21:42 oleonard Exp $
#
# Copyright 2000-2002 Katipo Communications
#
@@ -70,6 +70,7 @@
-values => \@shelvesloop,
-labels => \%shelvesloop,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$template->param(biblionumber => $biblionumber,
@@ -84,6 +85,9 @@
output_html_with_http_headers $query, $cookie, $template->output;
}
# $Log: addbookbybiblionumber.pl,v $
+# Revision 1.3.2.4 2006/06/20 16:21:42 oleonard
+# Adding "tabindex=''" to CGI:scrolling_lists to prevent incorrect tabbing. See Bug 1098
+#
# Revision 1.3.2.3 2006/02/05 21:59:21 kados
# Adds script support for IntranetNav ... see mail to koha-devel for
# details
Index: bull/lateissues.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/lateissues.pl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -b -r1.1.2.5 -r1.1.2.6
--- bull/lateissues.pl 4 Apr 2006 13:55:34 -0000 1.1.2.5
+++ bull/lateissues.pl 20 Jun 2006 16:21:43 -0000 1.1.2.6
@@ -27,6 +27,7 @@
-default => $supplierid,
-labels => \%supplierlist,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
my @lateissues;
Index: bull/subscription-bib-search.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/subscription-bib-search.pl,v
retrieving revision 1.3.2.4
retrieving revision 1.3.2.5
diff -u -b -r1.3.2.4 -r1.3.2.5
--- bull/subscription-bib-search.pl 5 Feb 2006 21:59:21 -0000 1.3.2.4
+++ bull/subscription-bib-search.pl 20 Jun 2006 16:21:43 -0000 1.3.2.5
@@ -172,6 +172,7 @@
-values => \@itemtype,
-labels => \%itemtypes,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$sth->finish;
Index: circ/circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.14
retrieving revision 1.81.2.15
diff -u -b -r1.81.2.14 -r1.81.2.15
--- circ/circulation.pl 13 Apr 2006 06:24:18 -0000 1.81.2.14
+++ circ/circulation.pl 20 Jun 2006 16:21:43 -0000 1.81.2.15
@@ -278,6 +278,7 @@
-values => \@values,
-labels => \%labels,
-size => 7,
+ -tabindex=>'',
-multiple => 0 );
}
#title
Index: export/marc.pl
===================================================================
RCS file: /sources/koha/koha/export/marc.pl,v
retrieving revision 1.4.2.6
retrieving revision 1.4.2.7
diff -u -b -r1.4.2.6 -r1.4.2.7
--- export/marc.pl 4 Mar 2006 04:25:08 -0000 1.4.2.6
+++ export/marc.pl 20 Jun 2006 16:21:43 -0000 1.4.2.7
@@ -82,6 +82,7 @@
-default => '',
-labels => \%itemtypes,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$sth->finish;
Index: koha-tmpl/intranet-tmpl/npl/en/acqui/supplier.tmpl
===================================================================
RCS file: /sources/koha/koha/koha-tmpl/intranet-tmpl/npl/en/acqui/supplier.tmpl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- koha-tmpl/intranet-tmpl/npl/en/acqui/supplier.tmpl 7 Mar 2006 16:56:04 -0000 1.1.2.3
+++ koha-tmpl/intranet-tmpl/npl/en/acqui/supplier.tmpl 20 Jun 2006 16:21:43 -0000 1.1.2.4
@@ -145,7 +145,13 @@
</tr>
<tr>
<th><label for="discount">Discount</label></th>
- <td><input type="text" size="3" id="discount" name="discount" value="<!-- TMPL_VAR name="discount" -->" /> %
+ <td><input type="text" size="3" id="discount" name="discount" value="<!-- TMPL_VAR name="discount" -->" /> %</td>
+ </tr>
+ <tr>
+ <th>
+ <label for="notes">Notes</label></th><td>
+ <textarea cols="40" rows="4" name="notes" id="notes"><!-- TMPL_VAR NAME="notes" --></textarea>
+</td>
</tr>
</table>
</div>
@@ -259,6 +265,11 @@
Discount: </th><td>
<!-- TMPL_VAR NAME="discount" --> %
</td></tr>
+ <tr>
+ <th>Notes: </th><td>
+ <!-- TMPL_VAR NAME="notes" -->
+</td>
+ </tr>
</table>
</div>
<!--/TMPL_IF-->
Index: members/imemberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/Attic/imemberentry.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -b -r1.1.2.4 -r1.1.2.5
--- members/imemberentry.pl 5 Feb 2006 21:59:21 -0000 1.1.2.4
+++ members/imemberentry.pl 20 Jun 2006 16:21:43 -0000 1.1.2.5
@@ -69,6 +69,7 @@
-default => $data->{'branchcode'},
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$template->param(member => $member,
Index: members/memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.5.2.13
retrieving revision 1.5.2.14
diff -u -b -r1.5.2.13 -r1.5.2.14
--- members/memberentry.pl 5 Feb 2006 21:59:21 -0000 1.5.2.13
+++ members/memberentry.pl 20 Jun 2006 16:21:43 -0000 1.5.2.14
@@ -2,7 +2,7 @@
# NOTE: This file uses standard 8-space tabs
# DO NOT SET TAB SIZE TO 4
-# $Id: memberentry.pl,v 1.5.2.13 2006/02/05 21:59:21 kados Exp $
+# $Id: memberentry.pl,v 1.5.2.14 2006/06/20 16:21:43 oleonard Exp $
#script to set up screen for modification of borrower details
#written 20/12/99 by chris at katipo.co.nz
@@ -186,6 +186,7 @@
if ($ethnicitycategoriescount>=0) {
$ethcatpopup = CGI::popup_menu(-name=>'ethnicity',
-id => 'ethnicity',
+ -tabindex=>'',
-values=>$categories,
-default=>$data->{'ethnicity'},
-labels=>$labels);
@@ -195,6 +196,7 @@
($categories,$labels)=borrowercategories();
my $catcodepopup = CGI::popup_menu(-name=>'categorycode',
-id => 'categorycode',
+ -tabindex=>'',
-values=>$categories,
-default=>$data->{'categorycode'},
-labels=>$labels);
@@ -262,6 +264,7 @@
-default => $data->{'branchcode'},
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
my $CGIsort1 = buildCGIsort("Bsort1","sort1",$data->{'sort1'});
Index: opac/opac-addbookbybiblionumber.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-addbookbybiblionumber.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -b -r1.1.2.6 -r1.1.2.7
--- opac/opac-addbookbybiblionumber.pl 27 Apr 2006 16:23:34 -0000 1.1.2.6
+++ opac/opac-addbookbybiblionumber.pl 20 Jun 2006 16:21:43 -0000 1.1.2.7
@@ -2,7 +2,7 @@
#script to provide bookshelf management
# WARNING: This file uses 4-character tabs!
#
-# $Header: /sources/koha/koha/opac/opac-addbookbybiblionumber.pl,v 1.1.2.6 2006/04/27 16:23:34 oleonard Exp $
+# $Header: /sources/koha/koha/opac/opac-addbookbybiblionumber.pl,v 1.1.2.7 2006/06/20 16:21:43 oleonard Exp $
#
# Copyright 2000-2002 Katipo Communications
#
@@ -71,6 +71,7 @@
-values => \@shelvesloop,
-labels => \%shelvesloop,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
}
@@ -91,6 +92,9 @@
output_html_with_http_headers $query, $cookie, $template->output;
}
# $Log: opac-addbookbybiblionumber.pl,v $
+# Revision 1.1.2.7 2006/06/20 16:21:43 oleonard
+# Adding "tabindex=''" to CGI:scrolling_lists to prevent incorrect tabbing. See Bug 1098
+#
# Revision 1.1.2.6 2006/04/27 16:23:34 oleonard
# Hiding option to add to existing virtual shelves if there are no existing virtual shelves (thanks Chris!)
#
Index: request.pl
===================================================================
RCS file: /sources/koha/koha/Attic/request.pl,v
retrieving revision 1.28.2.4
retrieving revision 1.28.2.5
diff -u -b -r1.28.2.4 -r1.28.2.5
--- request.pl 6 Feb 2006 20:12:05 -0000 1.28.2.4
+++ request.pl 20 Jun 2006 16:21:43 -0000 1.28.2.5
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: request.pl,v 1.28.2.4 2006/02/06 20:12:05 oleonard Exp $
+# $Id: request.pl,v 1.28.2.5 2006/06/20 16:21:43 oleonard Exp $
#script to place reserves/requests
#writen 2/1/00 by chris at katipo.oc.nz
@@ -180,6 +180,7 @@
-values => \@select_branch,
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
#get the time for the form name...
Index: thesaurus_popup.pl
===================================================================
RCS file: /sources/koha/koha/thesaurus_popup.pl,v
retrieving revision 1.15
retrieving revision 1.15.2.1
diff -u -b -r1.15 -r1.15.2.1
--- thesaurus_popup.pl 11 Feb 2004 08:35:31 -0000 1.15
+++ thesaurus_popup.pl 20 Jun 2006 16:21:43 -0000 1.15.2.1
@@ -97,6 +97,7 @@
-values=> \@freelib,
-default=> "",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
-labels=> \%stdlib
);
@@ -110,6 +111,7 @@
-values=> \@x,
-default=> "",
-size=>1,
+ -tabindex=>'',
-multiple=>0,
);
Index: search.marc/search.pl
===================================================================
RCS file: /sources/koha/koha/search.marc/search.pl,v
retrieving revision 1.22.2.10
retrieving revision 1.22.2.11
diff -u -b -r1.22.2.10 -r1.22.2.11
--- search.marc/search.pl 20 Apr 2006 21:26:53 -0000 1.22.2.10
+++ search.marc/search.pl 20 Jun 2006 16:21:43 -0000 1.22.2.11
@@ -309,6 +309,7 @@
my $marclist = CGI::scrolling_list(-name=>"marclist",
-values=> $marcarray,
-size=>1,
+ -tabindex=>'',
-multiple=>0,
-onChange => "sql_update()",
);
@@ -335,6 +336,7 @@
-values => \@itemtype,
-labels => \%itemtypes,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$sth->finish;
@@ -353,6 +355,7 @@
-values => \@select_branch,
-labels => \%select_branches,
-size => 1,
+ -tabindex=>'',
-multiple => 0 );
$sth->finish;
More information about the Koha-cvs
mailing list