view release on metacpan or  search on metacpan

cs/imd/imd.cs  view on Meta::CPAN

      </TR>
    </TABLE>
    <DIV ALIGN=RIGHT>
    <?cs if:Album.Start > #0 ?>
    <A HREF="<?cs var:CGI.PathInfo ?>?album=<?cs var:Album ?>">First</A>
    <?cs else ?>
    First
    <?cs /if ?>
    &nbsp;
    <?cs if:Album.Prev > #0 ?>
    <A HREF="<?cs var:CGI.PathInfo ?>?album=<?cs var:Album ?>&start=<?cs var:Album.Prev ?>">Prev</A>
    <?cs else ?>
    Prev
    <?cs /if ?>
    &nbsp;
    <?cs var:#Album.Start + #1 ?> - <?cs var:#Album.Next ?> of <?cs var:#Album.Count ?>
    &nbsp;
    <?cs if:#Album.Next < #Album.Count ?>
    <A HREF="<?cs var:CGI.PathInfo ?>?album=<?cs var:Album ?>&start=<?cs var:Album.Next ?>">Next</A>
    <?cs else ?>
    Next
    <?cs /if ?>
    &nbsp;
    <?cs if:#Album.Start < #Album.Last ?>
    <A HREF="<?cs var:CGI.PathInfo ?>?album=<?cs var:Album ?>&start=<?cs var:Album.Last ?>">Last</A>
    <?cs else ?>
    Last
    <?cs /if ?>
    </DIV>
  <?cs /if ?>
  <?cs else ?><?cs # picture ?>
    <DIV ALIGN=RIGHT>
      <?cs set:count = #0 ?>
      <?cs each:image=Show ?>
	<a href="<?cs var:CGI.PathInfo?>?album=<?cs var:Album ?>&picture=<?cs var:url_escape(image) ?>">
	 <?cs if:count == #0 ?>
	   More
	 <?cs elif:count == #1 ?>
	   Previous
	 <?cs elif:count == #2 ?>
	    Image #<?cs Name:image ?>
	 <?cs elif:count == #3 ?>
	   Next
	 <?cs elif:count == #4 ?>
	   More
	 <?cs /if ?>
	 <?cs set:count = count + #1 ?>
	</a> &nbsp;
      <?cs /each ?>
    </DIV>
    <hr>
    <TABLE cellspacing=0 cellpadding=0 border=0 align=center>
      <TR>
        <TD><IMG name="frame0" border=0 height=18 width=18 src="0.gif"></TD>
        <TD><IMG name="frame1" border=0 height=18 width=<?cs var:Picture.width ?> src="1.gif"></TD>
        <TD><IMG name="frame2" border=0 height=18 width=18 src="2.gif"></TD>
      </TR>
      <TR>
        <TD><IMG name="frame3" border=0 height=<?cs var:Picture.height ?> width=18 src="3.gif"></TD>
	<?cs if:#0 && Picture.avi ?>
	<TD><EMBED CONTROLborder=0 width=<?cs var:Picture.width?> height=<?cs var:Picture.height?> src="<?cs var:CGI.PathInfo?>?image=<?cs var:url_escape(Album) ?>/<?cs var:url_escape(Picture.avi) ?>" AUTOSTART=true></EMBED></TD>
	<?cs else ?>
	<TD><img border=0 width=<?cs var:Picture.width?> height=<?cs var:Picture.height?> src="<?cs var:CGI.PathInfo?>?image=<?cs var:url_escape(Album) ?>/<?cs var:url_escape(Picture) ?>&width=<?cs var:Picture.width ?>&height=<?cs var:Picture.height?>&quali...
	<?cs /if ?>
        <TD><IMG name="frame4" border=0 height=<?cs var:Picture.height ?> width=18 src="4.gif"></TD>
      </TR>
      <TR>
        <TD><IMG name="frame5" border=0 height=18 width=18 src="5.gif"></TD>
        <TD><IMG name="frame6" border=0 height=18 width=<?cs var:Picture.width ?> src="6.gif"></TD>
        <TD><IMG name="frame7" border=0 height=18 width=18 src="7.gif"></TD>
      </TR>
      <TR><TD COLSPAN=3 ALIGN=CENTER>
        <?cs if:Picture.avi ?>
	  <a href="<?cs var:CGI.PathInfo?>?image=<?cs var:url_escape(Album) ?>/<?cs var:url_escape(Picture.avi) ?>">Raw Video <?cs var:html_escape(Picture.avi) ?></a>
	<?cs else ?>
	  <a href="<?cs var:CGI.PathInfo?>?image=<?cs var:url_escape(Album) ?>/<?cs var:url_escape(Picture) ?>&quality=1">Raw Picture <?cs var:html_escape(Picture) ?></a>
	<?cs /if ?>
      </TD></TR>
    </TABLE>
    <CENTER>
      <TABLE>
	<TR>
	  <?cs each:image=Show ?>
	  <?cs if:image != Picture ?>
	    <TD><?cs call:frame_picture(image, CGI.PathInfo + "?album=" + Album + "&picture=" + url_escape(image), "8") ?></TD>
	  <?cs /if ?>
	  <?cs /each ?>
	</TR>
      </TABLE>
    </CENTER>
    <?cs if:0 && CGI.RemoteAddress == "66.125.228.221" ?>
      &nbsp; Rotate: 
      <A HREF="<?cs var:CGI.PathInfo ?>?album=<?cs var:Album ?>&picture=<?cs var:url_escape(Picture) ?>&rotate=-90">Left</A> -
      <A HREF="<?cs var:CGI.PathInfo ?>?album=<?cs var:Album ?>&picture=<?cs var:url_escape(Picture) ?>&rotate=90">Right</A> -
      <A HREF="<?cs var:CGI.PathInfo ?>?album=<?cs var:Album ?>&picture=<?cs var:url_escape(Picture) ?>&rotate=180">Flip</A>
    <?cs /if ?>
  <?cs /if ?>
<?cs include:"/home/www/footer.html" ?>
</BODY>
</HTML>