1 |
#!/usr/bin/perl -w |
2 |
|
3 |
use strict; |
4 |
use OpenIsis; |
5 |
use CGI qw/:standard -no_xhtml/; |
6 |
|
7 |
my %labels = ('a'=>'naslovu', 'f'=>'autoru'); |
8 |
|
9 |
print header(-charset=>'iso-8859-2'),start_html(-title=>'ISIS web demo',-lang=>'hr'),start_form; |
10 |
print "Trazi po ",popup_menu(-name=>'po_cemu',-values=>[ keys %labels ],-labels=>\%labels); |
11 |
print textfield('search'),submit; |
12 |
print end_form,hr; |
13 |
|
14 |
my $s = "."; |
15 |
|
16 |
if (param('search')) { |
17 |
$s=param('search'); |
18 |
print i("Trazili ste '$s' u ".$labels{param('po_cemu')}),p; |
19 |
} |
20 |
|
21 |
my $nadjeno = 0; |
22 |
|
23 |
my $db = OpenIsis::open( '/var/autofs/misc/isis/isis/DATA/LIBRI/LIBRI' ); |
24 |
for (1..OpenIsis::maxRowid( $db )) { |
25 |
my $row = OpenIsis::readAsHash( $db, $_ ); |
26 |
my $tmp = $row->{'200'}; |
27 |
|
28 |
$tmp =~ tr/џ/ƾ/; # ISIS -> iso-8859-2 |
29 |
|
30 |
my %data = ('f'=>'nepoznat autor','a'=>'nema naslova'); |
31 |
while ($tmp =~ s/\^(\w)([^\^]+)//) { |
32 |
# print " $1:$2\n"; |
33 |
$data{$1}=$2; |
34 |
} |
35 |
if ($data{param('po_cemu')} =~ m/$s/i) { |
36 |
$nadjeno++; |
37 |
print $nadjeno,". ",$data{f},": ",b($data{a}),br; |
38 |
} |
39 |
} |
40 |
|
41 |
print hr,"Ukupno nadjeno $nadjeno knjiga..."; |
42 |
|