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

Diff for /loncom/interface/lonmeta.pm between versions 1.236 and 1.244

version 1.236, 2009/10/23 11:01:49 version 1.244, 2011/11/14 00:20:34
Line 425  sub select_course { Line 425  sub select_course {
 # Pretty printing of metadata field  # Pretty printing of metadata field
   
 sub prettyprint {  sub prettyprint {
     my ($type,$value,$target,$prefix,$form,$noformat)=@_;      my ($type,$value,$target,$prefix,$form)=@_;
 # $target,$prefix,$form are optional and for filecrumbs only  # $target,$prefix,$form are optional and for filecrumbs only
     if (! defined($value)) {       if (! defined($value)) { 
         return ' ';           return ' '; 
Line 500  sub prettyprint { Line 500  sub prettyprint {
                 }                   } 
             }              }
             $_ = '<li>'.$title.' '.              $_ = '<li>'.$title.' '.
  &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'0',$noformat).                   &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form).
                 '</li>'                   '</li>'
     } split(/\s*\,\s*/,$value)).'</ul>';      } split(/\s*\,\s*/,$value)).'</ul>';
     }      }
     # Evaluations      # Evaluations
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 773  sub handler { Line 779  sub handler {
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
             'text'  => 'Construction Space',              'text'  => 'Construction Space',
             'href'  => &Apache::loncommon::authorspace(),              'href'  => &Apache::loncommon::authorspace($uri),
         });          });
     }      }
   
Line 822  sub handler { Line 828  sub handler {
  {'domain' => $resdomain,}));   {'domain' => $resdomain,}));
         $r->print(&pageheader());          $r->print(&pageheader());
         &present_editable_metadata($r,$uri,'groups');              &present_editable_metadata($r,$uri,'groups');    
     } elsif ($uri=~m|^/~|) {       } elsif ($uri=~m|^/priv|) { 
         # Construction space          # Construction space
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
             'text'  => 'Edit Metadata',              'text'  => 'Edit Metadata',
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());
Line 864  sub report_bombs { Line 874  sub report_bombs {
     $uri = &Apache::lonnet::declutter($uri);      $uri = &Apache::lonnet::declutter($uri);
     $r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');      $r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');
     my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//);      my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//);
     if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {      if (&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) {
  if ($env{'form.clearbombs'}) {   if ($env{'form.clearbombs'}) {
     &Apache::lonmsg::clear_author_res_msg($uri);      &Apache::lonmsg::clear_author_res_msg($uri);
  }   }
Line 929  sub present_uneditable_metadata { Line 939  sub present_uneditable_metadata {
     $versiondisplay='Version: '.$currentversion;      $versiondisplay='Version: '.$currentversion;
  }   }
     }      }
     # crumbify displayed URL               uri     target prefix form  size      # crumbify displayed URL               uri     target prefix form 
     $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1');      $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef);
     $disuri =~ s:<br />::g;  
     # obsolete      # obsolete
     my $obsolete=$content{'obsolete'};      my $obsolete=$content{'obsolete'};
     my $obsoletewarning='';      my $obsoletewarning='';
Line 1044  sub print_dynamic_metadata { Line 1053  sub print_dynamic_metadata {
     }      }
     #      #
     # Assessment statistics      # Assessment statistics
     if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) {      if ($uri=~/$LONCAPA::assess_re/) {
         if (exists($dynmeta{'stdno'}) ||          if (exists($dynmeta{'stdno'}) ||
             exists($dynmeta{'avetries'}) ||              exists($dynmeta{'avetries'}) ||
             exists($dynmeta{'difficulty'}) ||              exists($dynmeta{'difficulty'}) ||
Removed from v.1.236  
changed lines
  Added in v.1.244

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