[BACK]Return to loncreatecourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreatecourse.pm between versions 1.125 and 1.126

version 1.125, 2009/08/15 14:01:04 version 1.126, 2009/08/27 00:06:18
Line 902  sub process_batchfile { Line 902  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  # ===================================================================== Handler
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
Line 962  sub handler { Line 982  sub handler {
                  ({href=>"/adm/createcourse?phase=$env{'form.phase'}",                   ({href=>"/adm/createcourse?phase=$env{'form.phase'}",
                    text=>&mt('[_1] Display Request Queue',),                     text=>&mt('[_1] Display Request Queue',),
                    faq=>9,bug=>'Dom Coord Interface',});                     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');             my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Requests','Course_Request',undef,'Course_Request');
            $r->print($start_page.$crumbs."\n".'<div>'.             $r->print($start_page.$crumbs."\n".'<div>'.
                      &Apache::loncoursequeueadmin::display_queued_requests(                       &Apache::loncoursequeueadmin::display_queued_requests(
                          'domain',$env{'request.role.domain'}).'</div>'.                           'domain',$env{'request.role.domain'}).'</div>'.
                      &Apache::loncommon::end_page());                       &Apache::loncommon::end_page());
        } elsif ($env{'form.phase'} eq 'requestchange') {         } elsif ($env{'form.phase'} eq 'requestchange') {
   
            &Apache::lonhtmlcommon::add_breadcrumb             &Apache::lonhtmlcommon::add_breadcrumb
                  ({href=>"/adm/createcourse?phase=requestdisplay",                   ({href=>"/adm/createcourse?phase=requestdisplay",
                    text=>&mt('[_1] Display Request Queue',),                     text=>&mt('[_1] Display Request Queue',),
Removed from v.1.125  
changed lines
  Added in v.1.126

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>