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

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

version 1.235, 2009/05/28 17:08:32 version 1.237, 2009/12/01 18:07:50
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 744  sub prettyinput { Line 744  sub prettyinput {
   
 # Create pageheader  # Create pageheader
 sub pageheader {  sub pageheader {
     return &Apache::lonhtmlcommon::breadcrumbs()      my $output = &Apache::lonhtmlcommon::breadcrumbs();
           .&Apache::loncommon::head_subbox(  
                &Apache::loncommon::CSTR_pageheader());      if ($env{'request.state'} eq 'construct') {
             $output .= &Apache::loncommon::head_subbox(
                            &Apache::loncommon::CSTR_pageheader());
       }
       return $output;
 }  }
   
 # Main Handler  # Main Handler
Line 765  sub handler { Line 769  sub handler {
   
     # Breadcrumbs      # Breadcrumbs
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({  
         'text'  => 'Construction Space',      if ($env{'request.state'} eq 'construct') {
         'href'  => &Apache::loncommon::authorspace(),          &Apache::lonhtmlcommon::add_breadcrumb({
     });              'text'  => 'Construction Space',
               'href'  => &Apache::loncommon::authorspace(),
           });
       }
   
     if ($uri=~m:/adm/bombs/(.*)$:) {      if ($uri=~m:/adm/bombs/(.*)$:) {
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
Line 922  sub present_uneditable_metadata { Line 929  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='';
Removed from v.1.235  
changed lines
  Added in v.1.237

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