/[BackupPC]/trunk/lib/BackupPC/SearchLib.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/BackupPC/SearchLib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 31 by dpavlin, Sun Jul 31 16:16:55 2005 UTC revision 91 by dpavlin, Sun Aug 28 17:53:46 2005 UTC
# Line 5  use strict; Line 5  use strict;
5  use BackupPC::CGI::Lib qw(:all);  use BackupPC::CGI::Lib qw(:all);
6  use BackupPC::Attrib qw(:all);  use BackupPC::Attrib qw(:all);
7  use DBI;  use DBI;
8    use DateTime;
9  use vars qw(%In $MyURL);  use vars qw(%In $MyURL);
10    use Time::HiRes qw/time/;
11    
12  my $on_page = 100;  my $on_page = 100;
13  my $pager_pages = 10;  my $pager_pages = 10;
14    
15    my $dsn = $Conf{SearchDSN};
16    my $db_user = $Conf{SearchUser} || '';
17    
18    my $index_path = $Conf{HyperEstraierIndex};
19    if ($index_path) {
20            $index_path = $TopDir . '/' . $index_path;
21            $index_path =~ s#//#/#g;
22    }
23    
24    my $dbh;
25    
26    sub get_dbh {
27            $dbh ||= DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
28            return $dbh;
29    }
30    
31  sub getUnits() {  sub getUnits() {
32      my @ret = ();          my @ret;
33      my $tmp;  
34      my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          my $dbh = get_dbh();
35          "", "", { RaiseError => 1, AutoCommit => 1 } );          my $sth = $dbh->prepare(qq{
36      my $st =                  SELECT
37        $dbh->prepare(                          shares.id       as id,
38          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");                          hosts.name || ':' || shares.name as share
39      $st->execute();                  FROM shares
40      push (@ret, { 'ID' => '', 'name' => '-'});                  JOIN hosts on hostid = hosts.id
41      while ( $tmp = $st->fetchrow_hashref() ) {                  ORDER BY share
42          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );          } );
43      }          $sth->execute();
44      $dbh->disconnect();          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
45      return @ret;  
46            while ( my $row = $sth->fetchrow_hashref() ) {
47                    push @ret, $row;
48            }
49            return @ret;
50  }  }
51    
52  sub getWhere($) {  sub epoch_to_iso {
53          my ($param)    = @_;          my $t = shift || return;
54          my @conditions;          my $iso = BackupPC::Lib::timeStamp(undef, $t);
55            $iso =~ s/\s/ /g;
56            return $iso;
57    }
58    
59    sub dates_from_form($) {
60            my $param = shift || return;
61    
62          sub mk_iso_date($$) {          sub mk_epoch_date($$) {
63                  my ($name,$suffix) = @_;                  my ($name,$suffix) = @_;
64    
65                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return;                  my $yyyy = $param->{ $name . '_year_' . $suffix} || return undef;
66                  my $mm .= $param->{ $name . '_month_' . $suffix} ||                  my $mm .= $param->{ $name . '_month_' . $suffix} ||
67                          ( $suffix eq 'from' ? 1 : 12);                          ( $suffix eq 'from' ? 1 : 12);
68                  my $dd .= $param->{ $name . '_day_' . $suffix} ||                  my $dd .= $param->{ $name . '_day_' . $suffix} ||
69                          ( $suffix eq 'from' ? 1 : 31);                          ( $suffix eq 'from' ? 1 : 31);
                 return sprintf("%04d-%02d-%02d", $yyyy, $mm, $dd);  
         }  
70    
71          my $backup_from = mk_iso_date('search_backup', 'from');                  $yyyy =~ s/\D//g;
72          push @conditions, qq{ date(backups.date, 'unixepoch','localtime') >= '$backup_from' } if ($backup_from);                  $mm =~ s/\D//g;
73          my $backup_to = mk_iso_date('search_backup', 'to');                  $dd =~ s/\D//g;
74          push @conditions, qq{ date(backups.date, 'unixepoch','localtime') <= '$backup_to' } if ($backup_to);  
75                    my $dt = new DateTime(
76                            year => $yyyy,
77                            month => $mm,
78                            day => $dd
79                    );
80                    print STDERR "mk_epoch_date($name,$suffix) [$yyyy-$mm-$dd] = " . $dt->ymd . " " . $dt->hms . "\n";
81                    return $dt->epoch || 'NULL';
82            }
83    
84            my @ret = (
85                    mk_epoch_date('search_backup', 'from'),
86                    mk_epoch_date('search_backup', 'to'),
87                    mk_epoch_date('search', 'from'),
88                    mk_epoch_date('search', 'to'),
89            );
90    
91          my $files_from = mk_iso_date('search', 'from');          return @ret;
         push @conditions, qq{ date(files.date, 'unixepoch','localtime') >= '$files_from' } if ($files_from);  
         my $files_to = mk_iso_date('search', 'to');  
         push @conditions, qq{ date(files.date, 'unixepoch','localtime') <= '$files_to' } if ($files_to);  
92    
93          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:",join(" | ",@conditions);  }
       
         push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});  
94    
         push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});  
95    
96          return (  sub getWhere($) {
97                  join(" and ", @conditions),          my $param = shift || return;
98                  $files_from, $files_to,  
99                  $backup_from, $backup_to          my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
100          );  
101            my @conditions;
102            push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
103            push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
104            push @conditions, qq{ files.date >= $files_from } if ($files_from);
105            push @conditions, qq{ files.date <= $files_to } if ($files_to);
106    
107            print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
108    
109            push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});
110            push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
111    
112            return join(" and ", @conditions);
113  }  }
114    
115    
116  sub getFiles($$) {  sub getFiles($) {
117          my ($where, $offset) = @_;          my ($param) = @_;
118    
119          my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",          my $offset = $param->{'offset'} || 0;
120                  "", "", { RaiseError => 1, AutoCommit => 1 } );          $offset *= $on_page;
121    
122            my $dbh = get_dbh();
123    
124          my $sql_cols = qq{          my $sql_cols = qq{
125                  files.id                        AS fid,                  files.id                        AS fid,
126                  hosts.name                      AS hname,                  hosts.name                      AS hname,
127                  shares.name                     AS sname,                  shares.name                     AS sname,
128                  shares.share                    AS sharename,                  files.backupnum                 AS backupnum,
                 files.backupNum                 AS backupNum,  
                 files.name                      AS filename,  
129                  files.path                      AS filepath,                  files.path                      AS filepath,
130                  shares.share||files.fullpath    AS networkPath,                  files.date                      AS date,
131                  date(files.date, 'unixepoch', 'localtime') AS date,                  files.type                      AS type,
132                  files.type                      AS filetype,                  files.size                      AS size
                 files.size                      AS size,  
                 dvds.name                       AS dvd  
133          };          };
134    
135          my $sql_from = qq{          my $sql_from = qq{
136                  FROM files                  FROM files
137                          INNER JOIN shares       ON files.shareID=shares.ID                          INNER JOIN shares       ON files.shareID=shares.ID
138                          INNER JOIN hosts        ON hosts.ID = shares.hostID                          INNER JOIN hosts        ON hosts.ID = shares.hostID
139                          INNER JOIN backups      ON backups.num = files.backupNum and backups.hostID = hosts.ID                          INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = files.shareID
                         LEFT  JOIN dvds         ON dvds.ID = files.dvdid  
140          };          };
141    
142          my $sql_where;          my $sql_where;
143            my $where = getWhere($param);
144          $sql_where = " WHERE ". $where if ($where);          $sql_where = " WHERE ". $where if ($where);
145    
146          my $sql_order = qq{          my $sql_order = qq{
147                  ORDER BY files.id                  ORDER BY files.date
148                          LIMIT $on_page                  LIMIT $on_page
149                          OFFSET ?                  OFFSET ?
150          };          };
151    
152          $offset ||= 0;          my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
153          $offset = ($offset * $on_page) + 1;          my $sql_results = qq{ select $sql_cols $sql_from $sql_where $sql_order };
154    
155          my $sth = $dbh->prepare(qq{ select count(files.id) $sql_from $sql_where });          my $sth = $dbh->prepare($sql_count);
156          $sth->execute();          $sth->execute();
   
157          my ($results) = $sth->fetchrow_array();          my ($results) = $sth->fetchrow_array();
158    
159          $sth = $dbh->prepare(qq{ select $sql_cols $sql_from $sql_where $sql_order });          $sth = $dbh->prepare($sql_results);
160          $sth->execute( $offset );          $sth->execute( $offset );
161    
162            if ($sth->rows != $results) {
163                    my $bug = "$0 BUG: [[ $sql_count ]] = $results while [[ $sql_results ]] = " . $sth->rows;
164                    $bug =~ s/\s+/ /gs;
165                    print STDERR "$bug\n";
166            }
167    
168          my @ret;          my @ret;
169                
170          while (my $row = $sth->fetchrow_hashref()) {          while (my $row = $sth->fetchrow_hashref()) {
171                  push(@ret, {                  push @ret, $row;
                         'hname'         => $row->{'hname'},  
                         'sname'         => $row->{'sname'},  
                         'sharename'     => $row->{'sharename'},  
                         'backupno'      => $row->{'backupNum'},  
                         'fname'         => $row->{'filename'},  
                         'fpath'         => $row->{'filepath'},  
                         'networkpath'   => $row->{'networkPath'},  
                         'date'          => $row->{'date'},  
                         'type'          => $row->{'filetype'},  
                         'size'          => $row->{'size'},  
                         'id'            => $row->{'fid'},  
                         'dvd'           => $row->{'dvd'}  
                 });  
172          }          }
173              
174          $sth->finish();          $sth->finish();
         $dbh->disconnect();  
175          return ($results, \@ret);          return ($results, \@ret);
176  }  }
177    
178  sub getBackupsNotBurned()  sub getFilesHyperEstraier($) {
179    {          my ($param) = @_;
180        my $dbh = DBI->connect( "dbi:SQLite:dbname=${TopDir}/$Conf{SearchDB}",  
181          "", "", { RaiseError => 1, AutoCommit => 1 } );                my $offset = $param->{'offset'} || 0;
182        my $sql = q{          $offset *= $on_page;
183            SELECT  
184              hosts.ID         AS hostID,          die "no index_path?" unless ($index_path);
185              hosts.name       AS host,  
186              backups.num      AS backupno,          use HyperEstraier;
187              backups.type     AS type,  
188              backups.date     AS date          # open the database
189            FROM backups, shares, files, hosts          my $db = HyperEstraier::Database->new();
190            WHERE          $db->open($index_path, $HyperEstraier::ESTDBREADER);
191              backups.num    = files.backupNum  AND  
192              shares.ID      = files.shareID    AND                    # create a search condition object
193              backups.hostID = shares.hostID    AND          my $cond = HyperEstraier::Condition->new();
194              hosts.ID       = backups.hostID   AND  
195              files.dvdid    IS NULL          my $q = $param->{'search_filename'};
196            GROUP BY          my $shareid = $param->{'search_share'};
197              backups.hostID, backups.num  
198        };          if (length($q) > 0) {
199        my $st = $dbh -> prepare( $sql );                  # exact match
200        my @ret = ();                  $cond->add_attr("filepath ISTRINC $q");
201        $st -> execute();  
202                    $q =~ s/(.)/$1 /g;
203        while ( my $row = $st -> fetchrow_hashref() )                  # set the search phrase to the search condition object
204          {                            $cond->set_phrase($q);
205              push(@ret, {          }
206                           'host'     => $row->{'host'},  
207                           'hostid'   => $row->{'hostID'},          my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
208                           'backupno' => $row->{'backupno'},  
209                           'type'     => $row->{'type'},          $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
210                           'date'     => $row->{'date'}          $cond->add_attr("backup_date NUMLE $backup_to") if ($backup_to);
211                         }  
212              );          $cond->add_attr("date NUMGE $files_from") if ($files_from);
213            $cond->add_attr("date NUMLE $files_to") if ($files_to);
214    
215            $cond->add_attr("shareid NUMEQ $shareid") if ($shareid);
216    
217    #       $cond->set_max( $offset + $on_page );
218            $cond->set_options( $HyperEstraier::Condition::SURE );
219            $cond->set_order( 'date NUMA' );
220    
221            # get the result of search
222            my $result = $db->search($cond, 0);
223    
224            my @res;
225            my $hits = $result->size;
226    
227            # for each document in result
228            for my $i ($offset .. ($offset + $on_page - 1)) {
229                    last if ($i >= $hits);
230    
231                    my $id = $result->get($i);
232                    my $doc = $db->get_doc($id, 0);
233    
234                    my $row;
235                    foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
236                            $row->{$c} = $doc->attr($c);
237                    }
238                    push @res, $row;
239            }
240    
241            return ($hits, \@res);
242    }
243    
244    sub getBackupsNotBurned() {
245    
246            my $dbh = get_dbh();
247            my $sql = q{
248            SELECT
249                    backups.hostID          AS hostid,
250                    min(hosts.name)         AS host,
251                    backups.num             AS backupnum,
252                    min(backups.type)       AS type,
253                    min(backups.date)       AS date,
254                    min(backups.size)       AS size
255            FROM files
256                    INNER JOIN shares       ON files.shareID=shares.ID
257                    INNER JOIN hosts        ON hosts.ID = shares.hostID
258                    INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
259            GROUP BY
260                    backups.hostID, backups.num
261            ORDER BY min(backups.date)
262            };
263            my $sth = $dbh->prepare( $sql );
264            my @ret;
265            $sth->execute();
266    
267            while ( my $row = $sth->fetchrow_hashref() ) {
268                    $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
269                    $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
270                    push @ret, $row;
271          }          }
272                
273        return @ret;                return @ret;      
274    }  }
275    
276  sub displayBackupsGrid()  sub displayBackupsGrid()
277    {    {
# Line 211  EOF3 Line 305  EOF3
305                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
306                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
307          }          }
308          $retHTML .= qq{<table style="fview"><tr>};          $retHTML .= qq{
309                    <table style="fview" border="1" cellspacing="0" cellpadding="3">
310                    <tr class="tableheader">
311            };
312    
313          if ($addForm) {          if ($addForm) {
314              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";              $retHTML .= "<td class=\"tableheader\"><input type=\"checkbox\" name=\"allFiles\" onClick=\"checkAll('allFiles');\"></td>";
315          }          }
316          $retHTML .=  qq{<td class="tableheader">Host</td><td class="tableheader">Backup no</td><td class="tableheader">Type</td><td class="tableheader">date</td></tr>};          $retHTML .=  qq{
317                    <td align="center">Host</td>
318                    <td align="center">Backup no</td>
319                    <td align="center">Type</td>
320                    <td align="center">date</td>
321                    <td align="center">age/days</td>
322                    <td align="center">size/MB</td>
323                    </tr>
324            };
325    
326          my @backups = getBackupsNotBurned();          my @backups = getBackupsNotBurned();
327          my $backup;          my $backup;
328    
329          if ($addForm) {          if ($addForm) {
330                  $retHTML .= qq{<tr><td colspan=7 style="tableheader">                  $retHTML .= qq{
331                            <tr><td colspan=7 style="tableheader">
332                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">                          <input type="submit" value="Burn selected backups on medium" name="submitBurner">
333                          </td></tr>};                          </td></tr>
334                    };
335          }          }
336    
337          foreach $backup(@backups) {          foreach $backup(@backups) {
# Line 233  EOF3 Line 340  EOF3
340                            
341                  $retHTML .= "<tr>";                  $retHTML .= "<tr>";
342                  if ($addForm) {                  if ($addForm) {
343                          $retHTML .= qq{<td class="fview"><input type="checkbox" name="fcb} .                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
344                                  $backup->{'hostid'}."_".$backup->{'backupno'} .                                  $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
345                                  qq{" value="} . $backup->{'hostid'}."_".$backup->{'backupno'} .                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
346                                  qq{"></td>};                                  '"></td>';
347                  }                            }          
348                            
349                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
350                          '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'backupnum'} . '</td>' .
351                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .
352                          '<td class="fviewborder">' . $backup->{'date'} . '<td>' .                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
353                            '<td class="fviewborder">' . $backup->{'age'} . '</td>' .
354                            '<td class="fviewborder">' . $backup->{'size'} . '</td>' .
355                          '</tr>';                          '</tr>';
356          }          }
357    
# Line 255  EOF3 Line 364  EOF3
364          return $retHTML;          return $retHTML;
365  }        }      
366    
367  sub displayGrid($$$$) {  sub displayGrid($) {
368          my ($where, $addForm, $offset, $hilite) = @_;          my ($param) = @_;
369    
370            my $offset = $param->{'offset'};
371            my $hilite = $param->{'search_filename'};
372    
373          my $retHTML = "";          my $retHTML = "";
374    
375          if ($addForm) {          my $start_t = time();
376                  $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};  
377                  $retHTML.= qq{<input type="hidden" value="search" name="action">};          my ($results, $files);
378                  $retHTML .= qq{<input type="hidden" value="results" name="search_results">};          if ($param->{'use_hest'} && length($hilite) > 0) {
379                    ($results, $files) = getFilesHyperEstraier($param);
380            } else {
381                    ($results, $files) = getFiles($param);
382          }          }
383    
384          my ($results, $files) = getFiles($where, $offset);          my $dur_t = time() - $start_t;
385            my $dur = sprintf("%0.4fs", $dur_t);
386    
387          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);          my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page);
388    
389            if ($results <= 0) {
390                    $retHTML .= qq{
391                            <p style="color: red;">No results found...</p>
392                    };
393                    return $retHTML;
394            } else {
395                    # DEBUG
396                    #use Data::Dumper;
397                    #$retHTML .= '<pre>' . Dumper($files) . '</pre>';
398            }
399    
400    
401          $retHTML .= qq{          $retHTML .= qq{
402          <br/>Found $results files, showing $from - $to          <div>
403          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
404                  <tr>          </div>
405                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
406                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
407                  <td class="tableheader">Type</td>                  <td></td>
408                  <td class="tableheader">#</td>                  <td align="center">Share</td>
409                  <td class="tableheader">Size</td>                  <td align="center">Type and Name</td>
410                  <td class="tableheader">Date</td>                  <td align="center">#</td>
411                  <td class="tableheader">Media</td>                  <td align="center">Size</td>
412                    <td align="center">Date</td>
413                    <td align="center">Media</td>
414                  </tr>                  </tr>
415          };          };
416    
# Line 298  sub displayGrid($$$$) { Line 429  sub displayGrid($$$$) {
429                  return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);                  return sprintf(qq{<a href="?action=%s&host=%s&num=%d&share=%s&dir=%s">%s</a>}, $action, @_);
430          }          }
431    
432            my $i = $offset * $on_page;
433    
434          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
435                    $i++;
436    
437                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
438                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
439    
440                  foreach my $v ((                  $retHTML .= qq{<td class="fviewborder">$i</td>};
441                          $file->{'sharename'},  
442                          qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),                  $retHTML .=
443                          $typeStr,                          qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
444                          restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),                          qq{<td class="fviewborder"><img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" alt="$typeStr" align="middle">&nbsp;} . hilite_html( $file->{'filepath'}, $hilite ) . qq{</td>} .
445                          $file->{'size'},                          qq{<td class="fviewborder" align="center">} . restore_link( $typeStr, ${EscURI( $file->{'hname'} )}, $file->{'backupnum'}, ${EscURI( $file->{'sname'})}, ${EscURI( $file->{'filepath'} )}, $file->{'backupnum'} ) . qq{</td>} .
446                          $file->{'date'},                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
447                          $file->{'dvd'}                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
448                  )) {                          qq{<td class="fviewborder">} . '?' . qq{</td>};
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
449    
450                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
451          }          }
# Line 327  sub displayGrid($$$$) { Line 460  sub displayGrid($$$$) {
460          my $max_page = int( $results / $on_page );          my $max_page = int( $results / $on_page );
461          my $page = 0;          my $page = 0;
462    
463          my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';          sub page_link($$$) {
464                    my ($param,$page,$display) = @_;
465    
466                    $param->{'offset'} = $page;
467    
468                    my $html = '<a href = "' . $MyURL;
469                    my $del = '?';
470                    foreach my $k (keys %{ $param }) {
471                            if ($param->{$k}) {
472                                    $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
473                                    $del = '&';
474                            }
475                    }
476                    $html .= '">' . $display . '</a>';
477            }
478    
479          $retHTML .= '<div style="text-align: center;">';          $retHTML .= '<div style="text-align: center;">';
480    
481          if ($offset > 0) {          if ($offset > 0) {
482                  $retHTML .= sprintf($link_fmt, $offset - 1, '&lt;&lt;') . ' ';                  $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
483          }          }
484    
485          while ($page <= $max_page) {          while ($page <= $max_page) {
486                  if ($page == $offset) {                  if ($page == $offset) {
487                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
488                  } else {                  } else {
489                          $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);                          $retHTML .= $del . page_link($param, $page, $page + 1);
490                  }                  }
491    
492                  if ($page < $offset - $pager_pages && $page != 0) {                  if ($page < $offset - $pager_pages && $page != 0) {
# Line 357  sub displayGrid($$$$) { Line 504  sub displayGrid($$$$) {
504          }          }
505    
506          if ($offset < $max_page) {          if ($offset < $max_page) {
507                  $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '&gt;&gt;');                  $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
508          }          }
509    
510          $retHTML .= "</div>";          $retHTML .= "</div>";
511    
         $retHTML .= "</form>" if ($addForm);  
   
512          return $retHTML;          return $retHTML;
513  }  }
514    
Legend:
Removed from v.31  
changed lines
  Added in v.91
  ViewVC Help
Powered by ViewVC 1.1.26