Diff for /parser3/tests/096.html between versions 1.4 and 1.7

version 1.4, 2009/04/30 05:18:59 version 1.7, 2010/07/25 06:20:48
Line 1 Line 1
 @main[]  @main[]
 ^test_exif[096_dir]  ^test_exif[096_dir]
   
   @test_exif[dir][file;image;keys]
 @test_exif[dir][file;image;keys]  $file[^file:list[$dir;\.(?i:jpe?g)^$]]
 $file[^file:list[$dir;\.(?i:jpe?g)^$]]  ^file.sort{$file.name}
 ^file.sort($file.name)  <table border="1">
 <table border="1">  ^file.menu{
 ^file.menu{          <tr valign="top">
         <tr valign="top">                  $image[^image::measure[$dir/$file.name]]
                 $image[^image::measure[$dir/$file.name]]                  <td>^image.html[$.width(100)$.height(100)]</td>
                 <td>^image.html[$.width(100)$.height(100)]</td>                  <td>
                 <td>                          $file.name<hr>
                         $file.name<hr>                          ^if($image.exif){
                         ^if($image.exif){                                  $keys[^image.exif._keys[]]
                                 $keys[^image.exif._keys[]]                                  ^keys.sort{$keys.key}
                                 ^keys.sort{$keys.key}                                  ^keys.menu{
                                 ^keys.menu{                                          ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
                                         ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>                                  }[<br />]
                                 }[<br />]                          }{
                         }{                                  no EXIF info<br />
                                 no EXIF info<br />                          }
                         }                  </td>
                 </td>          </tr>
         </tr>  }
 }  </table>
 </table>  
   @show_exif_value[value][i]
   ^if($value is date){
 @show_exif_value[value][i]          ^value.sql-string[]
 ^if($value is date){  }{
         ^value.sql-string[]          ^if($value is hash){
 }{                  ^for[i](0;$value-1){$value.$i}[,]
         ^if($value is hash){          }{
                 ^for[i](0;$value-1){$value.$i}[,]                  $value
         }{          }
                 $value  }
         }  
 }  

Removed from v.1.4  
changed lines
  Added in v.1.7


E-mail: