--- loncom/interface/loncreatecourse.pm	2009/08/15 14:01:04	1.125
+++ loncom/interface/loncreatecourse.pm	2009/08/27 00:06:18	1.126
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.125 2009/08/15 14:01:04 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.126 2009/08/27 00:06:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -902,6 +902,26 @@ sub process_batchfile {
  
 }
 
+sub courserequestbrowser_javascript {
+    return <<"ENDREQBRW";
+<script type="text/javascript">
+// <![CDATA[
+var steditbrowser;
+function opencoursereqdisplay(cdom,cnum) {
+    var url = '/adm/requestcourse?action=display';
+    url += '&showdom='+cdom+'&cnum='+cnum;
+    var title = 'Course_Request_Browser';
+    var options = 'scrollbars=1,resizable=1,menubar=0';
+    options += ',width=700,height=600';
+    var stdeditbrowser = open(url,title,options,'1');
+    stdeditbrowser.focus();
+}
+// ]]>
+</script>
+ENDREQBRW
+}
+
+
 # ===================================================================== Handler
 sub handler {
     my $r = shift;
@@ -962,13 +982,15 @@ sub handler {
                  ({href=>"/adm/createcourse?phase=$env{'form.phase'}",
                    text=>&mt('[_1] Display Request Queue',),
                    faq=>9,bug=>'Dom Coord Interface',});
-           my $start_page=&Apache::loncommon::start_page('Display Requests');
+           my $js = &courserequestbrowser_javascript();
+           my $start_page=&Apache::loncommon::start_page('Display Requests',$js);
            my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Requests','Course_Request',undef,'Course_Request');
            $r->print($start_page.$crumbs."\n".'<div>'.
                      &Apache::loncoursequeueadmin::display_queued_requests(
                          'domain',$env{'request.role.domain'}).'</div>'.
                      &Apache::loncommon::end_page());
        } elsif ($env{'form.phase'} eq 'requestchange') {
+
            &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=requestdisplay",
                    text=>&mt('[_1] Display Request Queue',),