Diff for /rat/lonratedt.pm between versions 1.96 and 1.98

version 1.96, 2009/05/25 17:49:43 version 1.98, 2009/12/04 11:13:58
Line 78  sub buttons { Line 78  sub buttons {
     my $adv=shift;      my $adv=shift;
     my $output='<form method="post">';           my $output='<form method="post">';     
     if ($adv==1) {      if ($adv==1) {
  $output.='<input type="submit" name="forceadv" value="'.&mt('Edit').'" />'.          $output.=
     &Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');              '<input type="submit" name="forceadv"'
              .' value="'.&mt('Edit').'" />'
              .&Apache::loncommon::help_open_topic(
                   'Sequence_Advanced_Editor_Creation');
     } else {      } else {
         unless ($adv==2) {          unless ($adv==2) {
            $output.='<input type="submit" name="forcesmp" value="'.&mt('Simple Edit').'" />'.             $output.=
     &Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation');                 '<input type="submit" name="forcesmp"'
                 .' value="'.&mt('Simple Edit').'" />'
                 .&Apache::loncommon::help_open_topic(
                      'Sequence_Simple_Editor_Creation')
                 .' ';
         }          }
  $output.='<input type="submit" name="forceadv" value="'.&mt('Advanced Edit').'" />'.          $output.=
     &Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');              '<input type="submit" name="forceadv"'
              .' value="'.&mt('Advanced Edit').'" />'
              .&Apache::loncommon::help_open_topic(
                   'Sequence_Advanced_Editor_Creation');
     }      }
     return $output.'</form>';      return $output.'</form>';
 }  }
Line 543  ENDJS Line 553  ENDJS
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         text  => 'Construction Space',          text  => 'Construction Space',
         href  => '', # FIXME Add link to priv/[user]          href  => &Apache::loncommon::authorspace(),
         faq   => 6,          faq   => 6,
         bug   => 'RAT',          bug   => 'RAT',
         help  => 'Sequence_Simple_Editor_Creation',});          help  => 'Sequence_Simple_Editor_Creation',});
Line 556  ENDJS Line 566  ENDJS
         title => 'Simple Editor',          title => 'Simple Editor',
         href  => '',});          href  => '',});
   
       # Breadcrumbs are included by &start_page
     my $start_page = &Apache::loncommon::start_page('Construction Space',$js)      my $start_page = &Apache::loncommon::start_page('Construction Space',$js)
                     .&Apache::lonhtmlcommon::breadcrumbs('')  
                     .&Apache::loncommon::head_subbox(                      .&Apache::loncommon::head_subbox(
                          &Apache::loncommon::CSTR_pageheader()                           &Apache::loncommon::CSTR_pageheader()
                         .&buttons(2));                          .&buttons(2));
Line 640  ENDSMPHEAD Line 650  ENDSMPHEAD
 sub nodir {  sub nodir {
    my ($r,$dir)=@_;     my ($r,$dir)=@_;
    $dir=~s{^/home/$LONCAPA::username_re/public_html}{};     $dir=~s{^/home/$LONCAPA::username_re/public_html}{};
    $r->print(&Apache::loncommon::start_page('Construction Space',undef)     my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
             .&Apache::lonhtmlcommon::breadcrumbs() # FIXME add breadcrumbs                    'text' => 'Construction Space'}];
   #                 {'href' => '',
   #                  'text' => 'No such directory'}];
      $r->print(&Apache::loncommon::start_page('Construction Space',
                                               undef,
                                               {'bread_crumbs' => $brcrum,})
             .&Apache::loncommon::head_subbox(              .&Apache::loncommon::head_subbox(
                  &Apache::loncommon::CSTR_pageheader())                   &Apache::loncommon::CSTR_pageheader())
             .'<p class="LC_error">'              .'<p class="LC_error">'
Line 659  sub viewmap { Line 674  sub viewmap {
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({      &Apache::lonhtmlcommon::add_breadcrumb({
         text  => 'Construction Space',          text  => 'Construction Space',
         href  => '', # FIXME Add link to priv/[user]          href  => &Apache::loncommon::authorspace(),
         faq   => 6,          faq   => 6,
         bug   => 'RAT',          bug   => 'RAT',
         help  => 'Sequence_Simple_Editor_Creation',});          help  => 'Sequence_Simple_Editor_Creation',});
Line 668  sub viewmap { Line 683  sub viewmap {
         title => 'Resource Assembly Tool',          title => 'Resource Assembly Tool',
         href  => '',});          href  => '',});
   
       # Breadcrumbs are included by &start_page
     $r->print(&Apache::loncommon::start_page('Edit Content of a Map')      $r->print(&Apache::loncommon::start_page('Edit Content of a Map')
              .&Apache::lonhtmlcommon::breadcrumbs('')  
              .&Apache::loncommon::head_subbox(               .&Apache::loncommon::head_subbox(
                   &Apache::loncommon::CSTR_pageheader()                    &Apache::loncommon::CSTR_pageheader()
                  .&buttons($adv))                   .&buttons($adv))
Line 682  sub viewmap { Line 697  sub viewmap {
         );          );
     }      }
     my $idx=0;      my $idx=0;
     $r->print('<h1>'.$url.'</h1>');      $r->print('<p><span class="LC_filename">'.$url.'</span></p>');
     if ($adv) {      if ($adv) {
  $r->print('<p class="LC_warning">'   $r->print('<p class="LC_warning">'
                  .&mt('Map contents are not shown in order.')                   .&mt('Map contents are not shown in order.')

Removed from v.1.96  
changed lines
  Added in v.1.98


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