View | Details | Raw Unified | Return to bug 6874
Collapse All | Expand All

(-)a/C4/UploadedFiles.pm (-1 / +2 lines)
Lines 150-155 sub UploadFile { Link Here
150 

          150
          

        

        

          151
          
    my $sha = new Digest::SHA;

          151
          
    my $sha = new Digest::SHA;

        

        

          152
          
    $sha->add($data);

          152
          
    $sha->add($data);

        

            

              
              
              153
              
    $sha->add($filename);

            

            

              154
              
    $sha->add($dir);

            

        

          153
          
    my $id = $sha->hexdigest;

          155
          
    my $id = $sha->hexdigest;

        

        

          154
          

          156
          

        

        

          155
          
    # Test if this id already exist

          157
          
    # Test if this id already exist

        

            

              156
              
- 

              
              
            






  

  Return to bug 6874