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

Diff for /loncom/interface/lonmeta.pm between versions 1.237 and 1.240

version 1.237, 2009/12/01 18:07:50 version 1.240, 2010/06/06 02:40:30
Line 638  sub prettyinput { Line 638  sub prettyinput {
                           
             if ($values) {              if ($values) {
                 if ($only_one) {                  if ($only_one) {
                     $output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,%meta_options));                      $output .= (&Apache::loncommon::select_form($cur_values_inst[0],'new_'.$type,\%meta_options));
                 } else {                  } else {
                     $output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));                      $output .= (&Apache::loncommon::multiple_select_form('new_'.$type,\@cur_values_inst,undef,\%meta_options));
                 }                  }
Line 744  sub prettyinput { Line 744  sub prettyinput {
   
 # Create pageheader  # Create pageheader
 sub pageheader {  sub pageheader {
     my $output = &Apache::lonhtmlcommon::breadcrumbs();      my $output = '';
       # No CSTR? Include breadcrumbs
       if ($env{'request.state'} ne 'construct') {
           # loncommon::bodytag already includes breadcrumbs for CSTR
           # by calling lonmenu::innerregister
           $output = &Apache::lonhtmlcommon::breadcrumbs();
       }
       # CSTR? Include CSTR header
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
           $output .= &Apache::loncommon::head_subbox(            $output .= &Apache::loncommon::head_subbox(
                          &Apache::loncommon::CSTR_pageheader());                           &Apache::loncommon::CSTR_pageheader());
Line 840  sub handler { Line 846  sub handler {
             'text'  => 'Metadata',              'text'  => 'Metadata',
             'href'  => '',              'href'  => '',
         });          });
         $r->print(&Apache::loncommon::start_page('Metadata',          $r->print(
  undef,              &Apache::loncommon::start_page(
  {'domain' => $resdomain,}));                  'Metadata',
         $r->print(&pageheader());                  undef,
                   {'domain' => $resdomain,
                   'only_body' => 1,})
              .'<h1>'.&mt('Metadata').'</h1>'
           );
         &present_uneditable_metadata($r,$uri);          &present_uneditable_metadata($r,$uri);
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
Removed from v.1.237  
changed lines
  Added in v.1.240

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