[WWcvs] pg: adding source.pl to standard macros collection

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
adding source.pl to standard macros collection

Tags:
----
rel-2-4-patches

Added Files:
-----------
    pg/macros:
        source.pl

Revision Data
-------------
--- /dev/null
+++ macros/source.pl
@@ -0,0 +1,18 @@
+if ($displayMode =~ m/HTML/ && !defined($_slides_loaded)) {
+  TEXT(
+     '<DIV ID="source_button" STYLE="float:right; margin-right:2em">'
+    .  '<SCRIPT>function showSource () {'
+    .  '  window.open("'.$htmlURL."show-source.cgi/$probFileName".'","ww_source");'
+    .  '}</SCRIPT>'
+    .  '<INPUT TYPE="button" VALUE="Show Problem Source" ONCLICK="showSource()">'
+    .'</DIV>'
+  );
+}
+
+sub NoSourceButton {
+#  if ($displayMode =~ m/HTML/) {
+#    TEXT('<SCRIPT>document.getElementById("source_button").style.display = "none"</SCRIPT>');
+#  }
+}
+
+1;