Diff for /parser3/tests/096.html between versions 1.1.2.1 and 1.5

version 1.1.2.1, 2003/03/04 12:38:16 version 1.5, 2009/04/30 05:23:45
Line 1 Line 1
 @main[]  @main[]
 ^test_exif[096_dir]  ^test_exif[096_dir]
   
 @test_exif[dir]  
 $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]]  @test_exif[dir][file;image;keys]
 <table border=1>  $file[^file:list[$dir;\.(?i:jpe?g)^$]]
 ^file.menu{  ^file.sort{$file.name}
 <tr valign=top>  <table border="1">
         $image[^image::measure[$dir/$file.name]]  ^file.menu{
         <td>^image.html[$.width(100)$.height(100)]</td>          <tr valign="top">
         <td>                  $image[^image::measure[$dir/$file.name]]
                 $file.name<hr>                  <td>^image.html[$.width(100)$.height(100)]</td>
         $exif[$image.exif]                  <td>
         ^if($exif){                          $file.name<hr>
                 $keys[^exif._keys[]] ^keys.sort{$keys.key}                          ^if($image.exif){
                 ^keys.menu{                                  $keys[^image.exif._keys[]]
                         $key[$keys.key]                                  ^keys.sort{$keys.key}
                         $value[$exif.$key]                                  ^keys.menu{
                                           ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
                         ${key}: <b>^show_exif_value[$value]</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.1.2.1  
changed lines
  Added in v.1.5


E-mail: