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

version 1.6, 2010/07/25 06:14:46 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]  @show_exif_value[value][i]
 ^if($value is date){  ^if($value is date){
         ^value.sql-string[]          ^value.sql-string[]
 }{  }{
         ^if($value is hash){          ^if($value is hash){
                 ^for[i](0;$value-1){$value.$i}[,]                  ^for[i](0;$value-1){$value.$i}[,]
         }{          }{
                 $value                  $value
         }          }
 }  }

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


E-mail: