lots of litlte bug fixes and tweaks

This commit is contained in:
JT Smith 2006-04-20 19:02:11 +00:00
parent 499981d092
commit 1c6fddb206
9 changed files with 25 additions and 0 deletions

View file

@ -17,11 +17,19 @@ addPrototypes();
rearrangeImportNode();
addNewStyles();
addRobots();
#deleteOldContent();
#addNewContent();
$versionTag->commit;
purgeOldRevisions();
finish($session); # this line required
#-------------------------------------------------
sub deleteOldContent {
print "\tDeleting old content\n";
}
#-------------------------------------------------
sub addRobots {
print "\tAdding robots.txt file.\n";
@ -70,6 +78,7 @@ sub addNewStyles {
next if $file eq "..";
next if $file eq ".";
$assetCounter++;
print "\t\t\tAdding $file\n";
if ($file =~ m/\.[png|jpg|gif]+$/) {
my $asset = $folder->addChild({
className=>"WebGUI::Asset::File::Image",