/[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 64 by dpavlin, Sun Aug 21 17:08:55 2005 UTC revision 87 by dpavlin, Sun Aug 28 14:05:08 2005 UTC
# Line 15  my $pager_pages = 10; Line 15  my $pager_pages = 10;
15  my $dsn = $Conf{SearchDSN};  my $dsn = $Conf{SearchDSN};
16  my $db_user = $Conf{SearchUser} || '';  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    
34          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
35          my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares} );          my $sth = $dbh->prepare(qq{
36                    SELECT
37                            shares.id       as id,
38                            hosts.name || ':' || shares.name as share
39                    FROM shares
40                    JOIN hosts on hostid = hosts.id
41                    ORDER BY share
42            } );
43          $sth->execute();          $sth->execute();
44          push @ret, { 'id' => '', 'share' => '-'};       # dummy any          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
45    
46          while ( my $row = $sth->fetchrow_hashref() ) {          while ( my $row = $sth->fetchrow_hashref() ) {
47                  push @ret, $row;                  push @ret, $row;
48          }          }
         $dbh->disconnect();  
49          return @ret;          return @ret;
50  }  }
51    
52  sub epoch_to_iso {  sub epoch_to_iso {
53          my $t = shift || return;          my $t = shift || return;
54          $t += 60 * 60 * +2;     # FIXME add TZ          my $iso = BackupPC::Lib::timeStamp(undef, $t);
55          my $dt = DateTime->from_epoch( epoch => $t ) || return;          $iso =~ s/\s/ /g;
56          print STDERR "BUG: $t != " . $dt->epoch . "\n" unless ($t == $dt->epoch);          return $iso;
         return $dt->ymd . ' ' . $dt->hms;  
57  }  }
58    
59  sub getWhere($) {  sub dates_from_form($) {
60          my ($param)    = @_;          my $param = shift || return;
         my @conditions;  
61    
62          sub mk_epoch_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);
70    
71                    $yyyy =~ s/\D//g;
72                    $mm =~ s/\D//g;
73                    $dd =~ s/\D//g;
74    
75                  my $dt = new DateTime(                  my $dt = new DateTime(
76                          year => $yyyy,                          year => $yyyy,
77                          month => $mm,                          month => $mm,
78                          day => $dd                          day => $dd
79                  );                  );
80                    print STDERR "mk_epoch_date($name,$suffix) [$yyyy-$mm-$dd] = " . $dt->ymd . " " . $dt->hms . "\n";
81                  return $dt->epoch || 'NULL';                  return $dt->epoch || 'NULL';
82          }          }
83    
84          my $backup_from = mk_epoch_date('search_backup', 'from');          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            return @ret;
92    
93    }
94    
95    
96    sub getWhere($) {
97            my $param = shift || return;
98    
99            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);          push @conditions, qq{ backups.date >= $backup_from } if ($backup_from);
         my $backup_to = mk_epoch_date('search_backup', 'to');  
103          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);          push @conditions, qq{ backups.date <= $backup_to } if ($backup_to);
   
         my $files_from = mk_epoch_date('search', 'from');  
104          push @conditions, qq{ files.date >= $files_from } if ($files_from);          push @conditions, qq{ files.date >= $files_from } if ($files_from);
         my $files_to = mk_epoch_date('search', 'to');  
105          push @conditions, qq{ files.date <= $files_to } if ($files_to);          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);          print STDERR "backup: $backup_from - $backup_to files: $files_from - $files_to cond:" . join(" | ",@conditions);
       
         push( @conditions, ' files.shareid = ' . $param->{'search_share'} ) if ($param->{'search_share'});  
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'});          push (@conditions, " upper(files.path) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});
111    
112          return (          return join(" and ", @conditions);
                 join(" and ", @conditions),  
                 $files_from, $files_to,  
                 $backup_from, $backup_to  
         );  
113  }  }
114    
115    
116  sub getFiles($$) {  sub getFiles($) {
117          my ($where, $offset) = @_;          my ($param) = @_;
118    
119          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $offset = $param->{'offset'} || 0;
120            $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                  files.date                      AS date,                  files.date                      AS date,
131                  files.type                      AS filetype,                  files.type                      AS type,
132                  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
         };  
   
         my $sql_dvd_from = qq{  
                         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{
# Line 122  sub getFiles($$) { Line 150  sub getFiles($$) {
150          };          };
151    
152          my $sql_count = qq{ select count(files.id) $sql_from $sql_where };          my $sql_count = qq{ select count(files.id) $sql_from $sql_where };
153          my $sql_results = qq{ select $sql_cols $sql_from $sql_dvd_from $sql_where $sql_order };          my $sql_results = qq{ select $sql_cols $sql_from $sql_where $sql_order };
   
         $offset ||= 0;  
         $offset = ($offset * $on_page);  
154    
155          my $sth = $dbh->prepare($sql_count);          my $sth = $dbh->prepare($sql_count);
156          $sth->execute();          $sth->execute();
# Line 143  sub getFiles($$) { Line 168  sub getFiles($$) {
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 getFilesHyperEstraier($) {
179            my ($param) = @_;
180    
181            my $offset = $param->{'offset'} || 0;
182            $offset *= $on_page;
183    
184            die "no index_path?" unless ($index_path);
185    
186            use HyperEstraier;
187    
188            # open the database
189            my $db = HyperEstraier::Database->new();
190            $db->open($index_path, $HyperEstraier::ESTDBREADER);
191    
192            # create a search condition object
193            my $cond = HyperEstraier::Condition->new();
194    
195            my $q = $param->{'search_filename'};
196            my $shareid = $param->{'search_share'};
197    
198            if ($q) {
199                    $q =~ s/(.)/$1 /g;
200    
201                    # set the search phrase to the search condition object
202                    $cond->set_phrase($q);
203            }
204    
205            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
206    
207            $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
208            $cond->add_attr("backup_date NUMLE $backup_to") if ($backup_to);
209    
210            $cond->add_attr("date NUMGE $files_from") if ($files_from);
211            $cond->add_attr("date NUMLE $files_to") if ($files_to);
212    
213            $cond->add_attr("shareid NUMEQ $shareid") if ($shareid);
214    
215    #       $cond->set_max( $offset + $on_page );
216            $cond->set_options( $HyperEstraier::Condition::SURE );
217            $cond->set_order( 'date NUMA' );
218    
219            # get the result of search
220            my $result = $db->search($cond, 0);
221    
222            my @res;
223            my $hits = $result->size;
224    
225            # for each document in result
226            for my $i ($offset .. ($offset + $on_page - 1)) {
227                    last if ($i >= $hits);
228    
229                    my $id = $result->get($i);
230                    my $doc = $db->get_doc($id, 0);
231    
232                    my $row;
233                    foreach my $c (qw/fid hname sname backupnum fiilename filepath date type size/) {
234                            $row->{$c} = $doc->attr($c);
235                    }
236                    push @res, $row;
237            }
238    
239            return ($hits, \@res);
240    }
241    
242  sub getBackupsNotBurned() {  sub getBackupsNotBurned() {
243    
244          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
245          my $sql = q{          my $sql = q{
246          SELECT          SELECT
247                  hosts.ID                AS hostid,                  backups.hostID          AS hostid,
248                  min(hosts.name)         AS host,                  min(hosts.name)         AS host,
249                  backups.num             AS backupno,                  backups.num             AS backupnum,
250                  min(backups.type)       AS type,                  min(backups.type)       AS type,
251                  min(backups.date)       AS date                  min(backups.date)       AS date,
252          FROM backups, shares, files, hosts                  min(backups.size)       AS size
253          WHERE          FROM files
254                  backups.num     = files.backupNum       AND                  INNER JOIN shares       ON files.shareID=shares.ID
255                  shares.ID       = files.shareID         AND                          INNER JOIN hosts        ON hosts.ID = shares.hostID
256                  backups.hostID  = shares.hostID         AND                  INNER JOIN backups      ON backups.num = files.backupnum and backups.hostID = hosts.ID AND backups.shareID = shares.ID
                 hosts.ID        = backups.hostID        AND  
                 files.dvdid     IS NULL  
257          GROUP BY          GROUP BY
258                  backups.hostID, backups.num, hosts.id                  backups.hostID, backups.num
259          ORDER BY min(backups.date)          ORDER BY min(backups.date)
260          };          };
261          my $sth = $dbh->prepare( $sql );          my $sth = $dbh->prepare( $sql );
262          my @ret;          my @ret;
263          $sth->execute();          $sth->execute();
264    
265          while ( my $row = $sth->fetchrow_hashref() ) {                while ( my $row = $sth->fetchrow_hashref() ) {
266                  push(@ret, {                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
267                           'host'         => $row->{'host'},                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
268                           'hostid'       => $row->{'hostid'},                  push @ret, $row;
                          'backupno'     => $row->{'backupno'},  
                          'type'         => $row->{'type'},  
                          'date'         => $row->{'date'},  
                          'age'          => sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ),  
                        }  
                 );  
269          }          }
270                
271          return @ret;                return @ret;      
# Line 236  EOF3 Line 303  EOF3
303                $retHTML.= q{<input type="hidden" value="burn" name="action">};                $retHTML.= q{<input type="hidden" value="burn" name="action">};
304                $retHTML .= q{<input type="hidden" value="results" name="search_results">};                $retHTML .= q{<input type="hidden" value="results" name="search_results">};
305          }          }
306          $retHTML .= qq{<table style="fview"><tr>};          $retHTML .= qq{
307                    <table style="fview" border="1" cellspacing="0" cellpadding="3">
308                    <tr class="tableheader">
309            };
310    
311          if ($addForm) {          if ($addForm) {
312              $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>";
313          }          }
314          $retHTML .=  qq{          $retHTML .=  qq{
315                  <td class="tableheader">Host</td>                  <td align="center">Host</td>
316                  <td class="tableheader">Backup no</td>                  <td align="center">Backup no</td>
317                  <td class="tableheader">Type</td>                  <td align="center">Type</td>
318                  <td class="tableheader">date</td>                  <td align="center">date</td>
319                  <td class="tableheader">age/days</td>                  <td align="center">age/days</td>
320                    <td align="center">size/MB</td>
321                  </tr>                  </tr>
322          };          };
323    
# Line 268  EOF3 Line 339  EOF3
339                  $retHTML .= "<tr>";                  $retHTML .= "<tr>";
340                  if ($addForm) {                  if ($addForm) {
341                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .                          $retHTML .= '<td class="fview"><input type="checkbox" name="fcb' .
342                                  $backup->{'hostid'}.'_'.$backup->{'backupno'} .                                  $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
343                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
344                                  '"></td>';                                  '"></td>';
345                  }                            }          
346                            
347                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .                  $retHTML .= '<td class="fviewborder">' . $backup->{'host'} . '</td>' .
348                          '<td class="fviewborder">' . $backup->{'backupno'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'backupnum'} . '</td>' .
349                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'type'} . '</td>' .
350                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
351                          '<td class="fviewborder">' . $backup->{'age'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'age'} . '</td>' .
352                            '<td class="fviewborder">' . $backup->{'size'} . '</td>' .
353                          '</tr>';                          '</tr>';
354          }          }
355    
# Line 290  EOF3 Line 362  EOF3
362          return $retHTML;          return $retHTML;
363  }        }      
364    
365  sub displayGrid($$$$) {  sub displayGrid($) {
366          my ($where, $addForm, $offset, $hilite) = @_;          my ($param) = @_;
367    
368            my $offset = $param->{'offset'};
369            my $hilite = $param->{'search_filename'};
370    
371          my $retHTML = "";          my $retHTML = "";
372    
373          my $start_t = time();          my $start_t = time();
374    
375          my ($results, $files) = getFiles($where, $offset);          my ($results, $files);
376            if ($param->{'use_hest'}) {
377                    ($results, $files) = getFilesHyperEstraier($param);
378            } else {
379                    ($results, $files) = getFiles($param);
380            }
381    
382          my $dur_t = time() - $start_t;          my $dur_t = time() - $start_t;
383          my $dur = sprintf("%0.4fs", $dur_t);          my $dur = sprintf("%0.4fs", $dur_t);
# Line 315  sub displayGrid($$$$) { Line 396  sub displayGrid($$$$) {
396          }          }
397    
398    
         if ($addForm) {  
                 $retHTML .= qq{<form name="forma" method="GET" action="$MyURL">};  
                 $retHTML.= qq{<input type="hidden" value="search" name="action">};  
                 $retHTML .= qq{<input type="hidden" value="results" name="search_results">};  
         }  
   
   
399          $retHTML .= qq{          $retHTML .= qq{
400          <br/>Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)          <div>
401          <table style="fview" width="100%">          Found <b>$results files</b> showing <b>$from - $to</b> (took $dur)
402                  <tr>          </div>
403                  <td class="tableheader">Share</td>          <table style="fview" width="100%" border="0" cellpadding="2" cellspacing="0">
404                  <td class="tableheader">Name</td>                  <tr class="fviewheader">
405                  <td class="tableheader">Type</td>                  <td></td>
406                  <td class="tableheader">#</td>                  <td align="center">Share</td>
407                  <td class="tableheader">Size</td>                  <td align="center">Type and Name</td>
408                  <td class="tableheader">Date</td>                  <td align="center">#</td>
409                  <td class="tableheader">Media</td>                  <td align="center">Size</td>
410                    <td align="center">Date</td>
411                    <td align="center">Media</td>
412                  </tr>                  </tr>
413          };          };
414    
# Line 351  sub displayGrid($$$$) { Line 427  sub displayGrid($$$$) {
427                  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, @_);
428          }          }
429    
430            my $i = $offset * $on_page;
431    
432          foreach $file (@{ $files }) {          foreach $file (@{ $files }) {
433                    $i++;
434    
435                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});                  my $typeStr  = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
436                  $retHTML .= "<tr>";                  $retHTML .= qq{<tr class="fviewborder">};
437    
438                  foreach my $v ((                  $retHTML .= qq{<td>$i</td>};
439                          $file->{'sharename'},  
440                          qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center">&nbsp;} . hilite_html( $file->{'fpath'}, $hilite ),                  $retHTML .=
441                          $typeStr,                          qq{<td class="fviewborder" align="right">} . $file->{'hname'} . ':' . $file->{'sname'} . qq{</td>} .
442                          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>} .
443                          $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>} .
444                          epoch_to_iso( $file->{'date'} ),                          qq{<td class="fviewborder" align="right">} . $file->{'size'} . qq{</td>} .
445                          $file->{'dvd'}                          qq{<td class="fviewborder">} . epoch_to_iso( $file->{'date'} ) . qq{</td>} .
446                  )) {                          qq{<td class="fviewborder">} . '?' . qq{</td>};
                         $retHTML .= qq{<td class="fviewborder">$v</td>};  
                 }  
447    
448                  $retHTML .= "</tr>";                  $retHTML .= "</tr>";
449          }          }
# Line 380  sub displayGrid($$$$) { Line 458  sub displayGrid($$$$) {
458          my $max_page = int( $results / $on_page );          my $max_page = int( $results / $on_page );
459          my $page = 0;          my $page = 0;
460    
461          my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';          sub page_link($$$) {
462                    my ($param,$page,$display) = @_;
463    
464                    $param->{'offset'} = $page;
465    
466                    my $html = '<a href = "' . $MyURL;
467                    my $del = '?';
468                    foreach my $k (keys %{ $param }) {
469                            if ($param->{$k}) {
470                                    $html .= $del . $k . '=' . ${EscURI( $param->{$k} )};
471                                    $del = '&';
472                            }
473                    }
474                    $html .= '">' . $display . '</a>';
475            }
476    
477          $retHTML .= '<div style="text-align: center;">';          $retHTML .= '<div style="text-align: center;">';
478    
479          if ($offset > 0) {          if ($offset > 0) {
480                  $retHTML .= sprintf($link_fmt, $offset - 1, '&lt;&lt;') . ' ';                  $retHTML .= page_link($param, $offset - 1, '&lt;&lt;') . ' ';
481          }          }
482    
483          while ($page <= $max_page) {          while ($page <= $max_page) {
484                  if ($page == $offset) {                  if ($page == $offset) {
485                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';                          $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
486                  } else {                  } else {
487                          $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);                          $retHTML .= $del . page_link($param, $page, $page + 1);
488                  }                  }
489    
490                  if ($page < $offset - $pager_pages && $page != 0) {                  if ($page < $offset - $pager_pages && $page != 0) {
# Line 410  sub displayGrid($$$$) { Line 502  sub displayGrid($$$$) {
502          }          }
503    
504          if ($offset < $max_page) {          if ($offset < $max_page) {
505                  $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '&gt;&gt;');                  $retHTML .= ' ' . page_link($param, $offset + 1, '&gt;&gt;');
506          }          }
507    
508          $retHTML .= "</div>";          $retHTML .= "</div>";
509    
         $retHTML .= "</form>" if ($addForm);  
   
510          return $retHTML;          return $retHTML;
511  }  }
512    
Legend:
Removed from v.64  
changed lines
  Added in v.87
  ViewVC Help
Powered by ViewVC 1.1.26