Changeset 2416 for Trunk/WebGUI/dev

Timestamp:

01/22/08 12:08:12 (1 year ago)

Author:

kmaclean

Message:

Fix to RecentPosts?.pm macro - ticket #318

Files:

• Trunk/WebGUI/dev (moved) (moved from Trunk/WebGUI/AssetReport/dev)
• Trunk/WebGUI/dev/AssetReport (moved) (moved from Trunk/WebGUI/AssetReport)
• Trunk/WebGUI/dev/AssetReport/install_templates.pl (modified) (6 diffs)

Trunk/WebGUI/dev/AssetReport/install_templates.pl

@@ -12 +12 @@
-use Getopt::Long;
-use WebGUI::Session;
+
+my $quiet; # this line required
-
-my %tmplList = (
@@ -27 +29 @@
-sub start {
-        my $tmplList = shift;
-
+
+
+
+
-        $|=1; #disable output buffering
-        GetOptions(
-
+
+
-        );
+        print "configFile:$configFile\n";
-        my $session = WebGUI::Session->open("../..",$configFile);
-        $session->user({userId=>3});
-        my $versionTag = WebGUI::VersionTag->getWorking($session);
-        $versionTag->set({name=>"Install Asset Report templates"});
+        # in upgrade script ??? $session->db->write("insert into webguiVersion values (".$session->db->quote($toVersion).",'upgrade',".$session->datetime->time().")");
-        installTemplates($session,$tmplList);
-        return $session;
@@ -47 +55 @@
-        $versionTag->commit;
-        $session->close();
+# cleanup       
-        opendir(DIR,".");
-        my @files = readdir(DIR);
@@ -52 +61 @@
-        foreach my $file (@files) {
-                if ($tmplList->{$file}) {
-#
+
-                        unlink($file);
-                }
-        }
+#       
-}
-
@@ -69 +79 @@
-        my $newFolder = undef;
-        foreach my $file (@files) {
-#
+
-                next unless ($tmplList->{$file});
-#
+
-                open(FILE,"<$file");
-                my $first = 1;
@@ -84 +94 @@
-                        } elsif ($line =~ m/^\#create$/) {
-                                $create = 1;
-
+
+
+
+
-                                $properties{$1} = $2;
-                        } elsif ($line =~ m/^~~~$/) {