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

Diff for /loncom/homework/structuretags.pm between versions 1.449 and 1.452

version 1.449, 2009/06/09 12:56:27 version 1.452, 2009/06/17 15:27:20
Line 212  sub page_start { Line 212  sub page_start {
     if ($env{'environment.remote'} ne 'off') {      if ($env{'environment.remote'} ne 'off') {
  $body_args{'only_body'}  = 1;   $body_args{'only_body'}  = 1;
     }      }
         $pageheader = &Apache::lonhtmlcommon::breadcrumbs() # FIXME add breadcrumbs          # Breadcrumbs for Construction Space
           &Apache::lonhtmlcommon::clear_breadcrumbs();
           &Apache::lonhtmlcommon::add_breadcrumb({
               'text'  => 'Construction Space',
               'href'  => &Apache::loncommon::authorspace(),
           });
   # FIXME Where are we?
   #        &Apache::lonhtmlcommon::add_breadcrumb({
   #            'text'  => 'Problem Editing', # 'Problem Testing'
   #            'href'  => '',
   #        });
           $pageheader = &Apache::lonhtmlcommon::breadcrumbs()
                      .&Apache::loncommon::head_subbox(                       .&Apache::loncommon::head_subbox(
                 &Apache::loncommon::CSTR_pageheader());                  &Apache::loncommon::CSTR_pageheader());
  }   }
Line 424  sub problem_web_to_edit_header { Line 435  sub problem_web_to_edit_header {
           
     my $show_all_foils_text =       my $show_all_foils_text = 
  ($Apache::lonhomework::parsing_a_task) ?   ($Apache::lonhomework::parsing_a_task) ?
  &mt(' Show All Instances')   &mt('Show All Instances')
  : &mt(' Show All Foils');   : &mt('Show All Foils');
   
     my $show_all= '<span class="LC_nobreak"><label><input type="checkbox" name="showallfoils"';      my $show_all= '<span class="LC_nobreak"><label for="showallfoils">'
                    .'<input type="checkbox" name="showallfoils"';
     if (defined($env{'form.showallfoils'})) { $show_all.=' checked="checked"'; }      if (defined($env{'form.showallfoils'})) { $show_all.=' checked="checked"'; }
     $show_all.= ' />'.$show_all_foils_text.'</label></span>';      $show_all.= ' /> '.$show_all_foils_text
                  .'</label></span>';
   
   
   
Line 2040  sub start_simpleeditbutton { Line 2053  sub start_simpleeditbutton {
         my $url=$env{'request.noversionuri'};          my $url=$env{'request.noversionuri'};
         $url=~s/\?.*$//;          $url=~s/\?.*$//;
  my ($symb) = &Apache::lonnet::whichuser();   my ($symb) = &Apache::lonnet::whichuser();
 #       Warning make more sense and is more important on edit screen  #       Warning makes more sense and is more important on edit screen
 #       $result='<p class="LC_warning">'  #       $result='<p class="LC_warning">'
 #              .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')  #              .&mt('Note: it can take up to 10 minutes for changes to take effect for all users.')
 #              .&Apache::loncommon::help_open_topic('Caching')  #              .&Apache::loncommon::help_open_topic('Caching')
 #              .'</p>';  #              .'</p>';
         $result.=&Apache::lontemplate::start_functionslist()          $result.=&Apache::lonhtmlcommon::start_funclist()
                 .&Apache::lontemplate::item_functionslist(                  .&Apache::lonhtmlcommon::add_item_funclist(
                      '<a href="'.$url.'/smpedit?symb='.&escape($symb).'">'.&mt('Edit').'</a>')                       '<a href="'.$url.'/smpedit?symb='.&escape($symb).'">'
                 .&Apache::lontemplate::end_functionslist();                      .&mt('Edit').'</a>')
                   .&Apache::lonhtmlcommon::end_funclist();
   
     }      }
     return $result;      return $result;
Removed from v.1.449  
changed lines
  Added in v.1.452

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