Changeset 11874

Timestamp:

2006-05-29T14:14:40+12:00 (18 years ago)

Author:

mdewsnip

Message:

Split most of the code in write_static_browser_macrofile() off into a new function called write_static_browser_macros(), so it can be used by write_bilevel_static_browser_macrofile().

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (2 diffs)

trunk/cic-hcap/perllib/plugins/CICPlug.pm

@@ -857 +857 @@
     my $static_browser_package_name = shift(@_);
     my $name_to_id_mapping = shift(@_);
-    my $table_columns = 2;
 
     my $static_browser_macrofile_path = "$ENV{'GSDLHOME'}\\collect\\cic-hcap\\macros\\$static_browser_package_name.dm";
     print STDERR "Writing $static_browser_macrofile_path...\n";
     open(BROWSER_MACROFILE, ">$static_browser_macrofile_path") or die "Error: Could not write to $static_browser_macrofile_path.\n";
+    close(BROWSER_MACROFILE);
+
+    &write_static_browser_macros($static_browser_package_name, $name_to_id_mapping);
+}
+
+
+sub write_static_browser_macros
+{
+    my $static_browser_package_name = shift(@_);
+    my $name_to_id_mapping = shift(@_);
+    my $table_columns = 2;
+
+    my $static_browser_macrofile_path = "$ENV{'GSDLHOME'}\\collect\\cic-hcap\\macros\\$static_browser_package_name.dm";
+    open(BROWSER_MACROFILE, ">>$static_browser_macrofile_path") or die "Error: Could not write to $static_browser_macrofile_path.\n";
     print BROWSER_MACROFILE "package $static_browser_package_name\n\n";
     print BROWSER_MACROFILE "_cicstaticbrowser_ {\n";
@@ -912 +925 @@
     close(BROWSER_MACROFILE);
 }
+
 
 sub write_bilevel_static_browser_macrofile