[Koha-devel] CGI.pm

[Wojciech Zatorski]

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  

-- 
<address@hidden>
tel. +48 509-855-239; GG: 1500861; Skype: zatorski
http://www.Zatorski.Net
--
Omnia mea mecum porto.