| 
      
            Lines 30-36
          $basketgroup = GetBasketgroup($basketgroupid);
      
      
        Link Here
      
     | 
  
        
          | 30 | 
          ok($basketgroup->{closed}, "basket group is closed"); | 
          30 | 
          ok($basketgroup->{closed}, "basket group is closed"); | 
        
        
          | 31 | 
          ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty"); | 
          31 | 
          ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty"); | 
        
        
          | 32 | 
          my ($day, $month, $year) = (localtime)[3,4,5];  | 
          32 | 
          my ($day, $month, $year) = (localtime)[3,4,5];  | 
        
          
            
              | 33 | 
              ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct"); | 
              33 | 
              is($basketgroup->{closeddate}, sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct"); | 
            
        
          | 34 | 
           | 
          34 | 
           | 
        
        
          | 35 | 
          ReOpenBasketgroup($basketgroupid);  | 
          35 | 
          ReOpenBasketgroup($basketgroupid);  | 
        
        
          | 36 | 
          $basketgroup = GetBasketgroup($basketgroupid);  | 
          36 | 
          $basketgroup = GetBasketgroup($basketgroupid);  | 
        
  
    | 
      
            Lines 42-48
          ModBasketgroup($basketgroup);
      
      
        Link Here
      
     | 
  
        
          | 42 | 
          $basketgroup = GetBasketgroup($basketgroupid);  | 
          42 | 
          $basketgroup = GetBasketgroup($basketgroupid);  | 
        
        
          | 43 | 
          ok($basketgroup->{closed}, "basket group is closed"); | 
          43 | 
          ok($basketgroup->{closed}, "basket group is closed"); | 
        
        
          | 44 | 
          ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty"); | 
          44 | 
          ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty"); | 
        
          
            
              | 45 | 
              ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct"); | 
              45 | 
              is($basketgroup->{closeddate}, sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct"); | 
            
        
          | 46 | 
           | 
          46 | 
           | 
        
        
          | 47 | 
          $basketgroupid = NewBasketgroup({ | 
          47 | 
          $basketgroupid = NewBasketgroup({ | 
        
        
          | 48 | 
              booksellerid => $booksellerid,  | 
          48 | 
              booksellerid => $booksellerid,  | 
        
  
    | 
      
            Lines 52-57
          $basketgroupid = NewBasketgroup({
      
      
        Link Here
      
     | 
  
        
          | 52 | 
          $basketgroup = GetBasketgroup($basketgroupid);  | 
          52 | 
          $basketgroup = GetBasketgroup($basketgroupid);  | 
        
        
          | 53 | 
          ok($basketgroup->{closed}, "basket group is closed"); | 
          53 | 
          ok($basketgroup->{closed}, "basket group is closed"); | 
        
        
          | 54 | 
          ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty"); | 
          54 | 
          ok(defined($basketgroup->{closeddate}), "basket group closed date is not empty"); | 
        
          
            
              | 55 | 
              ok($basketgroup->{closeddate} eq sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct"); | 
              55 | 
              is($basketgroup->{closeddate}, sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day), "basket group closed date is correct"); | 
            
        
          | 56 | 
           | 
          56 | 
           | 
        
        
          | 57 | 
          $dbh->rollback;  | 
          57 | 
          $dbh->rollback;  | 
        
            
              | 58 | 
              -   | 
               | 
               |