Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

fixed problem with " in titles

Browse source
This commit is contained in:
chris 2000-07-23 21:20:17 +00:00
parent 291af09af5
commit 6211d91ab8
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
modbib.pl
View file

@ -43,6 +43,7 @@ for (my $i=1;$i<$count3;$i++){
#hash is set up with input name being the key then #hash is set up with input name being the key then
#the value is a tab separated list, the first item being the input type #the value is a tab separated list, the first item being the input type
$inputs{'Author'}="text\t$data->{'author'}\t0"; $inputs{'Author'}="text\t$data->{'author'}\t0";
$data->{'title'}=tidyhtml($data->{'title'});
$inputs{'Title'}="text\t$data->{'title'}\t1"; $inputs{'Title'}="text\t$data->{'title'}\t1";
my $dewey = $data->{'dewey'}; my $dewey = $data->{'dewey'};
$dewey =~ s/0+$//; $dewey =~ s/0+$//;
@ -81,3 +82,9 @@ print mkform3('updatebiblio.pl',%inputs);
#print mktableft(); #print mktableft();
print endmenu(); print endmenu();
print endpage(); print endpage();
sub tidyhtml {
my ($inp)=@_;
$inp=~ s/\"/\&quot\;/g;
return($inp);
}