Remember that, if you just deleted a nested album, you need to delete the link to the deleted album from the album it was nested in.
To continue editing, please select a page to edit at the top of this page. HTML } } ############## ############## DEALS WITH ADDING A PHOTO ALBUM ############## sub Media_Edit_Add_Album { my $data_file = "./data/media_data.txt"; my $in_albums = 0; my $k = 0; open( INFILE, "$data_file" ) or print "ERROR: Could not open $data_file."; while( my $file_line =
- Album name: name that will appear on page under link to album
- Place after album: this will determine where the album will appear on the page, ie in what order.
- Albums folder: you must have uploaded the folder containing all the full-sized images, smaller images, and thumbnails. The smaller image
names MUST begin with "small_"; the thumbnail images MUST begin with "thumb_". This folder must already be present on the server
(ie, you've uploaded it already) before you try to make a new album. The photos MUST be labelled exactly or this script will not construct
the album pages correctly!!
Guidelines for photos:
thumbnails: largest dimension 100 pixels small images: largest dimension 400 pixels large (normal) images: largest dimension 800 pixels
For the photo album pages to look good you HAVE to keep these guidelines. - Album inside another: if you don't want this to be a main album (ie, it won't appear on the Photos/Videos page) then choose which main album it will be nestled in. You can also nestle new albums in already nestled albums.
Note: An album folder must be inside the folder "/graphics/media/albums/".
Please enter the following information:
HTML } ###########################processes for adding new album elsif( $contents{ 'new_album_name' } ) { require Tie::File; my $inside_file = $links[ $contents{ 'inside_album' } ]; #if the album is nested inside another, the
![](\"../graphics/media/album_icon.gif\"){kind=icon}
\n", "\t\t$contents{ 'new_album_name' }\n", "\t\t
\n" ) ); $w = $#parent_file_lines; #business done, jump out of loop } } untie( @parents_file_lines ); } ###########################creation of the three files needed for each album: the frameset file, index file, image file opendir( ALBUM_DIR, "./graphics/media/albums/$contents{ 'album_folder' }/" ) or print "ERROR: Could not open new album directory."; my @album_images = grep { not m/^\.\.?\z/ } readdir ALBUM_DIR; #won't read the . and .. directories @album_images = grep { not m/^small_/ } @album_images; @album_images = grep { not m/^thumb_/ } @album_images; for( my $q = 0; $q <= $#album_images; $q++ ) { $album_images[ $q ] =~ s/([ ,',",\\,\/,-])/sprintf( "%%%lx", (unpack( "C", $1 )) )/eg; } closedir( ALBUM_DIR ); #gather all the images, change any offensive characters to readable ones, so they don't interfere with quotation marks and what-not ###########################creates frameset (album_) file open( NEW_ALBUM, ">./photo_albums/$new_album" ) or print "ERROR: Could not create $new_album."; print NEW_ALBUM <<"HTML";
Click here for larger image
HTML } print NEW_INDEX "
\n";
print NEW_INDEX "\n";
print NEW_INDEX "\n";
my $j = 0;
foreach ( @album_images ) #make sure the same link is put in for the thumbnail that's shown by counting through with $j
{
print NEW_INDEX "\t\t\t\n";
print NEW_INDEX "\t\t\t\t![](\"../graphics/media/albums/$new_folder/thumb_$album_images[)
\n"; $j++; } print NEW_INDEX "\n
\n\n";
close( NEW_INDEX );
print<<"HTML";
Album added! Click here to view the Photos/Videos page to make sure everything went according to plan.\n"; $j++; } print NEW_INDEX "\n
To continue editing, please select a page to edit at the top of this page. HTML } } ############## ############## DEALS WITH EDITING A PHOTO ALBUM ############## sub Media_Edit_Edit_Album { my $data_file = "./data/media_data.txt"; ###########################gather info for album editing if( !$contents{ 'which_album' } ) #if the user has not chosen an album to edit yet, then gather all the albums and print appropriate { #HTML for him to choose one--perl is pretty straight forward here my $in_albums = 0; print "Choose which album you would like to edit:
\n"; print "\n"; } ###########################display editing information elsif( $contents{ 'which_album' } && !$contents{ 'new_album_name' } ) { my $album_name = $contents{ 'which_album' }; my $album_link = 0; my $album_inside = 0; my $album_folder = 0; my $album_index = 0; my $album_images = 0; ############get album file name to access correct index and image .htm files open( INFILE, "$data_file" ) or print "ERROR: Could not open $data_file."; while( my $file_line =
\n"; print "Note: when deleting a nested album, you are only deleting the fact that it is nested in the album being edited. In other words, the actual nested album is not deleted.
\n"; print "\n"; } ###########################applies edited information for editing albums elsif( $contents{ 'which_album' } && $contents{ 'new_album_name' } ) { require Tie::File; my $album_index = $contents{ 'album_link' }; my $album_images = $contents{ 'album_link' }; my $file_friendly_folder = $contents{ 'album_folder' }; $file_friendly_folder =~ s/([ ,',",\\,\/,\-])/sprintf( "%%%lx", (unpack( "C", $1 )) )/eg; $album_index =~ s/album_/index_/; $album_images =~ s/album_/images_/; my @edited_album = ( "\t\t\t