/[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 58 by dpavlin, Sun Aug 21 14:26:23 2005 UTC revision 91 by dpavlin, Sun Aug 28 17:53:46 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      my $tmp;  
34      my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
35      my $st =          my $sth = $dbh->prepare(qq{
36        $dbh->prepare(                  SELECT
37          " SELECT shares.ID AS ID, shares.share AS name FROM shares;");                          shares.id       as id,
38      $st->execute();                          hosts.name || ':' || shares.name as share
39      push (@ret, { 'ID' => '', 'name' => '-'});                  FROM shares
40      while ( $tmp = $st->fetchrow_hashref() ) {                  JOIN hosts on hostid = hosts.id
41          push( @ret, { 'ID' => $tmp->{'ID'}, 'name' => $tmp->{'name'} } );                  ORDER BY share
42      }          } );
43      $dbh->disconnect();          $sth->execute();
44      return @ret;          push @ret, { 'id' => '', 'share' => '-'};       # dummy any
45    
46            while ( my $row = $sth->fetchrow_hashref() ) {
47                    push @ret, $row;
48            }
49            return @ret;
50  }  }
51    
52  sub epoch_to_iso {  sub epoch_to_iso {
53          my $t = shift || return;          my $t = shift || return;
54          my $dt = DateTime->from_epoch( epoch => $t ) || return;          my $iso = BackupPC::Lib::timeStamp(undef, $t);
55  print STDERR "$t == ",$dt->epoch,"\n";          $iso =~ s/\s/ /g;
56          return $dt->ymd . ' ' . $dt->hms;          return $iso;
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);
108        
109          push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'});          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          push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'});  
112            return join(" and ", @conditions);
         return (  
                 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 $offset = $param->{'offset'} || 0;
120            $offset *= $on_page;
121    
122          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          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,
                 shares.share||files.fullpath    AS networkPath,  
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
         };  
   
         my $sql_dvd_cols = qq{  
                 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{
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_dvd_cols $sql_from $sql_dvd_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 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 (length($q) > 0) {
199                    # exact match
200                    $cond->add_attr("filepath ISTRINC $q");
201    
202                    $q =~ s/(.)/$1 /g;
203                    # set the search phrase to the search condition object
204                    $cond->set_phrase($q);
205            }
206    
207            my ($backup_from, $backup_to, $files_from, $files_to) = dates_from_form($param);
208    
209            $cond->add_attr("backup_date NUMGE $backup_from") if ($backup_from);
210            $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() {  sub getBackupsNotBurned() {
245    
246          my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );          my $dbh = get_dbh();
247          my $sql = q{          my $sql = q{
248          SELECT          SELECT
249                  hosts.ID                AS hostid,                  backups.hostID          AS hostid,
250                  min(hosts.name)         AS host,                  min(hosts.name)         AS host,
251                  backups.num             AS backupno,                  backups.num             AS backupnum,
252                  min(backups.type)       AS type,                  min(backups.type)       AS type,
253                  min(backups.date)       AS date                  min(backups.date)       AS date,
254          FROM backups, shares, files, hosts                  min(backups.size)       AS size
255          WHERE          FROM files
256                  backups.num     = files.backupNum       AND                  INNER JOIN shares       ON files.shareID=shares.ID
257                  shares.ID       = files.shareID         AND                          INNER JOIN hosts        ON hosts.ID = shares.hostID
258                  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  
259          GROUP BY          GROUP BY
260                  backups.hostID, backups.num, hosts.id                  backups.hostID, backups.num
261          ORDER BY min(backups.date)          ORDER BY min(backups.date)
262          };          };
263          my $sth = $dbh->prepare( $sql );          my $sth = $dbh->prepare( $sql );
264          my @ret;          my @ret;
265          $sth->execute();          $sth->execute();
266    
267          while ( my $row = $sth->fetchrow_hashref() ) {                while ( my $row = $sth->fetchrow_hashref() ) {
268                  push(@ret, {                  $row->{'age'} = sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) );
269                           'host'         => $row->{'host'},                  $row->{'size'} = sprintf("%0.2f", $row->{'size'} / 1024 / 1024);
270                           'hostid'       => $row->{'hostid'},                  push @ret, $row;
                          'backupno'     => $row->{'backupno'},  
                          'type'         => $row->{'type'},  
                          'date'         => $row->{'date'},  
                          'age'          => sprintf("%0.1f", ( (time() - $row->{'date'}) / 86400 ) ),  
                        }  
                 );  
271          }          }
272                
273          return @ret;                return @ret;      
# Line 232  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{          $retHTML .=  qq{
317                  <td class="tableheader">Host</td>                  <td align="center">Host</td>
318                  <td class="tableheader">Backup no</td>                  <td align="center">Backup no</td>
319                  <td class="tableheader">Type</td>                  <td align="center">Type</td>
320                  <td class="tableheader">date</td>                  <td align="center">date</td>
321                  <td class="tableheader">age/days</td>                  <td align="center">age/days</td>
322                    <td align="center">size/MB</td>
323                  </tr>                  </tr>
324          };          };
325    
# Line 264  EOF3 Line 341  EOF3
341                  $retHTML .= "<tr>";                  $retHTML .= "<tr>";
342                  if ($addForm) {                  if ($addForm) {
343                          $retHTML .= '<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                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupno'} .                                  '" value="' . $backup->{'hostid'}.'_'.$backup->{'backupnum'} .
346                                  '"></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">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .                          '<td class="fviewborder">' . epoch_to_iso( $backup->{'date'} ) . '</td>' .
353                          '<td class="fviewborder">' . $backup->{'age'} . '</td>' .                          '<td class="fviewborder">' . $backup->{'age'} . '</td>' .
354                            '<td class="fviewborder">' . $backup->{'size'} . '</td>' .
355                          '</tr>';                          '</tr>';
356          }          }
357    
# Line 286  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    
         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">};  
         }  
   
375          my $start_t = time();          my $start_t = time();
376    
377          my ($results, $files) = getFiles($where, $offset);          my ($results, $files);
378            if ($param->{'use_hest'} && length($hilite) > 0) {
379                    ($results, $files) = getFilesHyperEstraier($param);
380            } else {
381                    ($results, $files) = getFiles($param);
382            }
383    
384          my $dur_t = time() - $start_t;          my $dur_t = time() - $start_t;
385          my $dur = sprintf("%0.4fs", $dur_t);          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 <b>$results files</b> showing <b>$from - $to</b> (took $dur)          <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 334  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                          epoch_to_iso( $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 363  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 393  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.58  
changed lines
  Added in v.91
  ViewVC Help
Powered by ViewVC 1.1.26