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

Diff for /loncom/interface/lonmeta.pm between versions 1.252 and 1.254

version 1.252, 2014/02/11 18:52:20 version 1.254, 2014/06/22 19:46:48
Line 763  sub pageheader { Line 763  sub pageheader {
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
          ['currentpath','changecourse']);           ['currentpath','changecourse','modal']);
     my $uri=$r->uri;      my $uri=$r->uri;
     #      #
     # Set document type      # Set document type
Line 854  sub handler { Line 854  sub handler {
                 'only_body' => 1,})                  'only_body' => 1,})
            .'<h1>'.&mt('Metadata').'</h1>'             .'<h1>'.&mt('Metadata').'</h1>'
         );          );
           if ($env{'form.modal'}) {
               my $width = 500;
               my $height = 400;
               my $machine = &Apache::lonnet::absolute_url();
               $r->print(&Apache::loncommon::nicescroll_javascript('metadatawrapper',
                                                                   {cursorcolor => '#00F',
                                                                    railalign => 'right',
                                                                    railoffset => '{top:5,left:40}'},
                                                                    undef,1,$machine.$uri));
               $r->print('<div id="metadatawrapper" style="height:'.$height.'px; width:'.$width.'px; overflow: auto;">');
           }
         &present_uneditable_metadata($r,$uri);          &present_uneditable_metadata($r,$uri);
           if ($env{'form.modal'}) {
               $r->print('</div>');
           }
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
Line 1122  sub print_dynamic_metadata { Line 1136  sub print_dynamic_metadata {
         if (exists($dynmeta{'stats'})) {          if (exists($dynmeta{'stats'})) {
             my $table=&Apache::loncommon::start_data_table()              my $table=&Apache::loncommon::start_data_table()
                      .&Apache::loncommon::start_data_table_header_row()                       .&Apache::loncommon::start_data_table_header_row()
        .'<th>'.&mt('Domain').'</th>'
                      .'<th>'.&mt('Course').'</th>'                       .'<th>'.&mt('Course').'</th>'
                      .'<th>'.&mt('Section(s)').'</th>'                       .'<th>'.&mt('Section(s)').'</th>'
                      .'<th>'.&mt('Num Students').'</th>'                       .'<th>'.&mt('Num Students').'</th>'
Line 1142  sub print_dynamic_metadata { Line 1157  sub print_dynamic_metadata {
                     next;                      next;
                 }                  }
                 $table .= &Apache::loncommon::start_data_table_row();                  $table .= &Apache::loncommon::start_data_table_row();
    $table .=
       '<td><span class="LC_nobreak">'.$courseinfo{'domain'}.'</span></td>';
                 $table .=                   $table .= 
                     '<td><span class="LC_nobreak">'.$courseinfo{'description'}.'</span></td>';                      '<td><span class="LC_nobreak">'.$courseinfo{'description'}.'</span></td>';
                 $table .=                   $table .= 
Removed from v.1.252  
changed lines
  Added in v.1.254

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