diff --git a/acqui/newbasket2.pl b/acqui/newbasket2.pl index f3fcd7590d..2d4ea65d70 100755 --- a/acqui/newbasket2.pl +++ b/acqui/newbasket2.pl @@ -138,6 +138,7 @@ while ($i < $count2){ my $itemcount; my $location=''; + my $location_only=''; my $word=$result->{'author'}; $word=~ s/([a-z]) +([a-z])/$1%20$2/ig; $word=~ s/ //g; @@ -154,27 +155,37 @@ while ($i < $count2){ $location .= " ($nacount)"; } $location.=" "; + $lineres{'on-loan-p'}=1; } if ($lcount > 0){ $location .= "Levin"; + $location_only .= "Levin"; if ($lcount >1 ){ $location .= " ($lcount)"; + $location_only .= " ($lcount)"; } $location.=" "; + $location_only.=" "; } if ($fcount > 0){ $location .= "Foxton"; + $location_only .= "Foxton"; if ($fcount >1 ){ $location .= " ($fcount)"; + $location_only .= " ($fcount)"; } $location.=" "; + $location_only.=" "; } if ($scount > 0){ $location .= "Shannon"; + $location_only .= "Shannon"; if ($scount >1 ){ $location .= " ($scount)"; + $location_only .= " ($scount)"; } $location.=" "; + $location_only.=" "; } if ($lostcount > 0){ $location .= "Lost"; @@ -182,6 +193,7 @@ while ($i < $count2){ $location .= " ($lostcount)"; } $location.=" "; + $lineres{'lost-p'}=1; } if ($mending > 0){ $location .= "Mending"; @@ -189,6 +201,7 @@ while ($i < $count2){ $location .= " ($mending)"; } $location.=" "; + $lineres{'mending-p'}=1; } if ($transit > 0){ $location .= "In Transit"; @@ -196,6 +209,7 @@ while ($i < $count2){ $location .= " ($transit)"; } $location.=" "; + $lineres{'in-transit-p'}=1; } if ($colour == 1){ $toggle='#ffffcc'; @@ -216,6 +230,7 @@ while ($i < $count2){ $lineres{toggle}=$toggle; $lineres{itemcount}=$count; $lineres{location}=$location; + $lineres{'location-only'}=$location_only; push(@loopresult,\%lineres); $i++; } @@ -238,6 +253,7 @@ $template->param( bookselname => $booksellers[0]->{'name'}, title => $title, author => $author, loopsearch =>\@loopsearch, - loopresult =>\@loopresult); + loopresult =>\@loopresult, + 'use-location-flags-p' => 1); output_html_with_http_headers $input, $cookie, $template->output; diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl index 9faa93094d..762476b370 100755 --- a/admin/authorised_values.pl +++ b/admin/authorised_values.pl @@ -62,7 +62,7 @@ my ($template, $borrowernumber, $cookie) flagsrequired => {parameters => 1}, debug => 1, }); -my $pagesize=5; +my $pagesize=20; my $op = $input->param('op'); if ($op) { diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl index bf3483010c..44f52abf6b 100755 --- a/admin/marc_subfields_structure.pl +++ b/admin/marc_subfields_structure.pl @@ -33,7 +33,7 @@ sub StringSearch { $searchstring=~ s/\'/\\\'/g; my @data=split(' ',$searchstring); my $count=@data; - my $sth=$dbh->prepare("Select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where (tagfield like ?) order by tagfield"); + my $sth=$dbh->prepare("Select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where (tagfield like ?) order by tagfield"); $sth->execute("$searchstring%"); my @results; my $cnt=0; @@ -137,7 +137,7 @@ if ($op eq 'add_form') { closedir DIR; # build values list - my $sth=$dbh->prepare("select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where tagfield=?"); # and tagsubfield='$tagsubfield'"); + my $sth=$dbh->prepare("select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where tagfield=?"); # and tagsubfield='$tagsubfield'"); $sth->execute($tagfield); my @loop_data = (); my $toggle="white"; @@ -163,6 +163,7 @@ if ($op eq 'add_form') { $row_data{tagsubfield} =$data->{'tagsubfield'}.""; $row_data{liblibrarian} = CGI::escapeHTML($data->{'liblibrarian'}); $row_data{libopac} = CGI::escapeHTML($data->{'libopac'}); + $row_data{seealso} = CGI::escapeHTML($data->{'seealso'}); $row_data{kohafield}= CGI::scrolling_list( -name=>"kohafield", -values=> \@kohafields, -default=> "$data->{'kohafield'}", @@ -187,7 +188,6 @@ if ($op eq 'add_form') { -size=>1, -multiple=>0, ); -# $row_data{kohafield} = $data->{'kohafield'}; $row_data{repeatable} = CGI::checkbox("repeatable$i",$data->{'repeatable'}?'checked':'',1,''); $row_data{mandatory} = CGI::checkbox("mandatory$i",$data->{'mandatory'}?'checked':'',1,''); $row_data{bgcolor} = $toggle; @@ -211,6 +211,7 @@ if ($op eq 'add_form') { $row_data{tagsubfield} = "{'tagsubfield'}."\" size=\"3\" maxlength=\"1\">"; $row_data{liblibrarian} = ""; $row_data{libopac} = ""; + $row_data{seealso} = ""; $row_data{repeatable} = CGI::checkbox('repeatable','',1,''); $row_data{mandatory} = CGI::checkbox('mandatory','',1,''); $row_data{kohafield}= CGI::scrolling_list( -name=>'kohafield', @@ -244,13 +245,14 @@ if ($op eq 'add_form') { } elsif ($op eq 'add_validate') { my $dbh = C4::Context->dbh; $template->param(tagfield => "$input->param('tagfield')"); - my $sth=$dbh->prepare("replace marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder) - values (?,?,?,?,?,?,?,?,?,?,?)"); + my $sth=$dbh->prepare("replace marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,thesaurus_category,value_builder) + values (?,?,?,?,?,?,?,?,?,?,?,?)"); my @tagsubfield = $input->param('tagsubfield'); my @liblibrarian = $input->param('liblibrarian'); my @libopac = $input->param('libopac'); my @kohafield = $input->param('kohafield'); my @tab = $input->param('tab'); + my @seealso = $input->param('seealso'); my @authorised_values = $input->param('authorised_value'); my @thesaurus_category = $input->param('thesaurus_category'); my @value_builder =$input->param('value_builder'); @@ -264,6 +266,7 @@ if ($op eq 'add_form') { my $mandatory =$input->param("mandatory$i")?1:0; my $kohafield =$kohafield[$i]; my $tab =$tab[$i]; + my $seealso =$seealso[$i]; my $authorised_value =$authorised_values[$i]; my $thesaurus_category =$thesaurus_category[$i]; my $value_builder=$value_builder[$i]; @@ -277,6 +280,7 @@ if ($op eq 'add_form') { $mandatory, $kohafield, $tab, + $seealso, $authorised_value, $thesaurus_category, $value_builder); @@ -336,6 +340,7 @@ if ($op eq 'add_form') { $row_data{repeatable} = $results->[$i]{'repeatable'}; $row_data{mandatory} = $results->[$i]{'mandatory'}; $row_data{tab} = $results->[$i]{'tab'}; + $row_data{seealso} = $results->[$i]{'seealso'}; $row_data{authorised_value} = $results->[$i]{'authorised_value'}; $row_data{thesaurus_category} = $results->[$i]{'thesaurus_category'}; $row_data{value_builder} = $results->[$i]{'value_builder'}; diff --git a/koha-tmpl/intranet-tmpl/default/en/acqui/newbasket2.tmpl b/koha-tmpl/intranet-tmpl/default/en/acqui/newbasket2.tmpl index 8249a0596e..fddad9d296 100755 --- a/koha-tmpl/intranet-tmpl/default/en/acqui/newbasket2.tmpl +++ b/koha-tmpl/intranet-tmpl/default/en/acqui/newbasket2.tmpl @@ -3,15 +3,15 @@
| Variable | |
| Value | |
| CONFIRM DELETION | |
| Variable | Value | Explanation | - | + | ||
| - | "> Edit |
- "> Delete |
+ "> Edit |
+ "> Delete |
| - | + | + |