/[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 16 by dpavlin, Mon Jul 11 11:51:09 2005 UTC revision 17 by dpavlin, Mon Jul 11 13:22:38 2005 UTC
# Line 320  EOF3 Line 320  EOF3
320        
321    }          }      
322    
323  sub displayGrid($$$)  sub displayGrid($$$$) {
324    {          my ($where, $addForm, $offset, $hilite) = @_;
325        my ($where, $addForm, $offset) = @_;          my $retHTML = "";
326        my $retHTML = "";  
327                  if ($addForm) {
328        if ($addForm)                  $retHTML .= qq{<form name="forma" method="POST" action="}.$MyURL.qq{?action=search">};
329          {                  $retHTML.= qq{<input type="hidden" value="search" name="action">};
330                $retHTML .= q{<form name="forma" method="POST" action="}."$MyURL"."?action=search\"";                  $retHTML .= qq{<input type="hidden" value="results" name="search_results">};
331                $retHTML.= q{<input type="hidden" value="search" name="action">};          }
332                $retHTML .= q{<input type="hidden" value="results" name="search_results">};          $retHTML .= qq{
333            <table style="fview" width="100%">
334                    <tr>
335                    <td class="tableheader">Host</td>
336                    <td class="tableheader">Type</td>
337                    <td class="tableheader">Name</td>
338                    <td class="tableheader">backup no.</td>
339                    <td class="tableheader">size</td>
340                    <td class="tableheader">date</td>
341                    <td class="tableheader">Media</td>
342                    </tr>
343            };
344            my @files = getFiles($where, $offset);
345            my $file;
346    
347            sub hilite_html($$) {
348                    my ($html, $search) = @_;
349                    $html =~ s#($search)#<b>$1</b>#gis;
350                    return $html;
351          }          }
352        $retHTML .= "<table style=\"fview\">";  
353        $retHTML .= "<tr> ";          foreach $file (@files) {
354        $retHTML .=  "<td class=\"tableheader\">Host</td> <td class=\"tableheader\">Name</td> <td class=\"tableheader\">Type</td> <td class=\"tableheader\">backup no.</td> <td class=\"tableheader\">size</td> <td class=\"tableheader\">date</td>  <td class=\"tableheader\">Media</td></tr>";                  my $ftype = "file";
355        my @files = getFiles($where, $offset);                  $ftype = "dir" if ($file->{'type'} == BPC_FTYPE_DIR);
356        my $file;  
357                    $retHTML .= "<tr>";
358        foreach $file(@files)  
359          {                  foreach my $v ((
360              my $ftype = "";                          $file->{'hname'},
361                                        $ftype,
362              if ($file->{'type'} == BPC_FTYPE_DIR)                          hilite_html( $file->{'fpath'}, $hilite ),
363                {                          $file->{'backupno'},
364                    $ftype = "dir";                          $file->{'size'},
365                }                          $file->{'date'},
366              else                          $file->{'dvd'}
367                {                  )) {
368                    $ftype = "file";                          $retHTML .= qq{<td class="fviewborder">$v</td>};
369                }                  }
370              $retHTML .= "<tr>";  
371              $retHTML .= "<td class=\"fviewborder\">" . $file->{'hname'} ."</td>";                  $retHTML .= "</tr>";
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'fname'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $ftype . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'backupno'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'size'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'date'} . "</td>";  
             $retHTML .= "<td class=\"fviewborder\">" . $file->{'dvd'} . "</td>";  
             $retHTML .= "</tr>";  
372          }          }
373        $retHTML .= "</table>";          $retHTML .= "</table>";
374    
375            # skip pager
376            return $retHTML;
377    
378                  $retHTML .= "<INPUT TYPE=\"hidden\" VALUE=\"\" NAME=\"offset\">";
379            for (my $ii = 1; $ii <= $#files; $ii++) {
380                    $retHTML .= "<a href = \"#\" onclick=\"document.forma.offset.value=$ii;document.forma.submit();\">$ii</a>";
381                    if ($ii < $#files) {
382                            $retHTML .= " | ";
383                    }
384            }
385    
386        $retHTML .= "<INPUT TYPE=\"hidden\" VALUE=\"\" NAME=\"offset\">";          $retHTML .= "</form>" if ($addForm);
       for (my $ii = 1; $ii <= $#files; $ii++)  
       {  
           $retHTML .= "<a href = \"#\" onclick=\"document.forma.offset.value=$ii;document.forma.submit();\">$ii</a>";  
           if ($ii < $#files)  
             {  
                 $retHTML .= " | ";  
             }  
       }  
   
   
        if ($addForm)  
        {  
            $retHTML .= "</form>";  
        }  
387                
388        return $retHTML;          return $retHTML;
389    }  }
390    
391  1;  1;
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.26