Off Topic > Showcase

New album.pl

(1/1)

thyedosmann:
I recently added an album to a site for a friend - http://www.romanylatif.com
Your program is great and not too diffucult (code wise) to follow. I did make a couple of changes.
I modified the return format on a search so it was a little more organized , added a new email button to make an inquiry on a photo, and a few css changes but other then that I used it fairly much as is. The amount of pictures in this album is over a couple of thousand and it flows nicely.
I had to make a few server changes and additions but your FAQ and forum were a big help. I plan on making a few other changes, mostly cosmetic, but thanks for a great program.

Mike Bobbitt:
Excellent, thanks for sharing your feedback! The search results *are* pretty bad in the current version... what did you do to clean them up?

Thanks
Mike

thyedosmann:

--- Quote from: Mike Bobbitt on July 14, 2007, 12:42:35 ---Excellent, thanks for sharing your feedback! The search results *are* pretty bad in the current version... what did you do to clean them up?

Thanks
Mike

--- End quote ---

This is the code I changed

--- Code: ---

***** album_recent.pm
  324:  # Show each item
  325:  foreach $result (@::searchresults)
  326:  {
  327:  if ($result ne $last_item)
***** revised album_recent.pm
  324:  # Show each item
  325:  $tbcount=0;
  326: 
  327:  $html.="<table><tr>";
  328:  foreach $result (@::searchresults)
  329:    {
  330:  if ($result ne $last_item)
*****

***** album_recent.pm
  328:  {
  329:  debug("Displaying search result: $result",2,__LINE__,$::recent_module);
  330:  $html.=showObject($result);
  331:  }
***** revised album_recent.pm
  331:  {
  332:  debug("Displaying search result: $result",2,__LINE__,$::recent_module);
  333:    $html.="<td>";
  334:                $html.=showObject($result);
  335:                 if ($tbcount==5)
  336:                  {
  337:                  $html.="</td></td></td></td></td></tr><tr>";
  338:                 $tbcount=0;         
  339:                  }
  340:               $tbcount++;
  341:  }
*****

***** album_recent.pm
  332:  $last_item=$result;
  333:  }
  334: 
***** revised album_recent.pm
  342:  $last_item=$result;
  343:        }
  344: 
*****

***** album_recent.pm
  338:  }
  339:  $html.="<br />$::searchresults $::S{288}\n<br clear=\"all\">\n";
  340: 
***** revised album_recent.pm
  348:  }
  349:  $html.="</td></tr></table><br />$::searchresults $::S{288}\n<br clear=\"all\">\n";
  350: 
*****




--- End code ---

Navigation

[0] Message Index