--- loncom/interface/loncommon.pm	2009/07/09 08:53:39	1.853
+++ loncom/interface/loncommon.pm	2009/07/09 12:53:28	1.854
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.853 2009/07/09 08:53:39 droeschl Exp $
+# $Id: loncommon.pm,v 1.854 2009/07/09 12:53:28 kalberla Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3871,8 +3871,41 @@ sub build_block_table {
     }
     $output .= &end_data_table();
 }
-
 sub blocking_status {
+  my $blocked = blocking_status_print(@_);
+  my ($activity,$uname,$udom) = @_;
+  if(!wantarray) {
+    return $blocked;
+  }
+  my $output;
+  my $querystring;
+  $querystring = "?activity=$activity";
+  if(defined($uname)) { 
+    $querystring .= "&uname=$uname";
+  }if(defined($udom)) {
+    $querystring .= "&udom=$udom";
+  }
+
+      $output .= <<"END_MYBLOCK";
+<script type="text/javascript">
+// <![CDATA[
+    function openWindow(url, wdwName, w, h, toolbar,scrollbar) {
+        var options = "width=" + w + ",height=" + h + ",";
+        options += "resizable=yes,scrollbars="+scrollbar+",status=no,";
+        options += "menubar=no,toolbar="+toolbar+",location=no,directories=no";
+        var newWin = window.open(url, wdwName, options);
+        newWin.focus();
+    }
+
+// ]]>
+</script>
+END_MYBLOCK
+  my $popupUrl = "/adm/blockingstatus/$querystring";
+  $output.="\n<img src='/res/adm/pages/emblem-readonly.png' /><a onclick='openWindow(\"$popupUrl\",\"Blocking Table\",600,300,\"no\",\"no\");return false;' href='/adm/blockingstatus/$querystring'>Blocking Table</a>";
+
+  return ($blocked, $output);
+}
+sub blocking_status_print {
     my ($activity,$uname,$udom) = @_;
     my %setters;
     my ($blocked,$output,$ownitem,$is_course);