6.5.6 bugfix merge and some new stylings for the slide panel

This commit is contained in:
JT Smith 2005-03-30 20:28:03 +00:00
parent a38817feec
commit 50b756a5ae
13 changed files with 103 additions and 39 deletions

View file

@ -0,0 +1,29 @@
#!/usr/bin/perl
use lib "../../lib";
use File::Path;
use Getopt::Long;
use strict;
use WebGUI::Asset;
use WebGUI::Session;
use WebGUI::SQL;
my $configFile;
my $quiet;
GetOptions(
'configFile=s'=>\$configFile,
'quiet'=>\$quiet
);
WebGUI::Session::open("../..",$configFile);
#--------------------------------------------
print "\tDeleting old templates\n" unless ($quiet);
my $asset = WebGUI::Asset->newByDynamicClass("PBtmpl0000000000000035");
$asset->purge;
WebGUI::Session::close();