[Koha-devel] CGI.pm
Wojciech Zatorski
wojciech at zatorski.net
Sun Oct 29 00:40:38 CEST 2006
Hello Koha-devel,
I have found bugs/feature in module CGI.pm.
script:
/cgi-bin/koha/acqui.simple/additem.pl
Alert about exists of itemcallnumber and options have doubled/tripled
selected options!
<select name="field_value" tabindex="1" size="1" style="font-family: Courier;">
<option selected="selected" value=""></option>
<option value="G">Biblioteka Filologii Germańskiej</option>
<option value="P">Biblioteka Filologii Polskiej i Słowiańskiej</option>
<option value="CIDE">Biblioteka Główna - CIDE</option>
<option value="ODSK">Biblioteka Główna Oddz. ds Komputeryzacji</option>
<option value="ZS">Biblioteka Główna Zbiory Specjalne</option>
<option value="H">Biblioteka Humanistyczna</option>
<option selected="selected" value="WF">Biblioteka Instytutu Wychowania Fizycznego</option>
<option value="A">Biblioteka Języków Obcych</option>
<option value="PD">Biblioteka Pedagogiki i Psychologii</option>
<option value="N">Biblioteka Wydz. Matematyczno-Fizycznego</option>
<option value="BL">Biblioteka Wydz. Nauk Przyrodniczych</option>
<option value="SA">Biblioteka Wydz. Prawa i Administracji</option>
<option value="THEO">Biblioteka Wydz. Teologicznego</option>
<option value="E">Czytelnia Biblioteki Ekonomicznej</option>
<option value="Z">Czytelnia Biblioteki Głównej</option>
<option value="T">Czytelnia Biblioteki Wydz.Zarządzania i Ekonomiki Usług</option>
<option value="GRO">Gromadzenie i Uzupełnianie Zbiorów</option>
<option value="INF">Oddział Informacji Naukowej BG </option>
<option selected="selected" value="OPR">Opracowanie Zbiorów</option>
<option value="TM">Wypożyczalnia Bibl.Wydz.Zarządzania i Ekonomiki Usług</option>
<option value="S">Wypożyczalnia Biblioteki Ekonomicznej</option>
<option value="W">Wypożyczalnia Biblioteki Głównej </option>
<option value="WM">Wypożyczalnia Biblioteki Głównej Podręczniki</option>
</select>
sub previous_or_default {
my($self,$name,$defaults,$override) = @_;
my(%selected);
############################bug?
if (!$override && ($self->{'.fieldnames'}->{$name} ||
defined($self->param($name)) ) ) {
grep($selected{$_}++,$self->param($name));
#############################bug?
} elsif (defined($defaults) && ref($defaults) &&
(ref($defaults) eq 'ARRAY')) {
grep($selected{$_}++,@{$defaults});
} else {
$selected{$defaults}++ if defined($defaults);
}
return %selected;
}
END_OF_FUNC
--
<wojciech at zatorski.net>
tel. +48 509-855-239; GG: 1500861; Skype: zatorski
http://www.Zatorski.Net
--
Omnia mea mecum porto.
More information about the Koha-devel
mailing list