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

Diff for /loncom/interface/lonmeta.pm between versions 1.71 and 1.72

version 1.71, 2004/04/14 21:22:44 version 1.72, 2004/04/15 18:06:29
Line 253  sub prettyprint { Line 253  sub prettyprint {
  ($type eq 'sequsage_list')) {   ($type eq 'sequsage_list')) {
  return join('<br />',map {   return join('<br />',map {
             my $url = &Apache::lonnet::clutter($_);              my $url = &Apache::lonnet::clutter($_);
             $_ = '<b>'.&Apache::lonnet::gettitle($url).'</b> '.              my $title = &Apache::lonnet::gettitle($url);
               if ($title eq '') {
                   $title = 'Untitled';
                   if ($url =~ /\.sequence$/) {
                       $title .= ' Sequence';
                   } elsif ($url =~ /\.page$/) {
                       $title .= ' Page';
                   } elsif ($url =~ /\.problem$/) {
                       $title .= ' Problem';
                   } elsif ($url =~ /\.html$/) {
                       $title .= ' HTML document';
                   } elsif ($url =~ m:/syllabus$:) {
                       $title .= ' Syllabus';
                   } 
               }
               $_ = '<b>'.$title.'</b> '.
                 '<a href="'.$url.'" target="preview">'.                  '<a href="'.$url.'" target="preview">'.
                 '<font size="-1">'.$url.'</font>'.                  '<font size="-1">'.$url.'</font>'.
                 '</a>'                  '</a>'
Line 273  sub prettyprint { Line 288  sub prettyprint {
     }      }
     # List of courses      # List of courses
     if ($type=~/\_list/) {      if ($type=~/\_list/) {
  return join('<br />',map {          my @Courses = split(/\s*\,\s*/,$value);
     my %courseinfo=&Apache::lonnet::coursedescription($_);            my $Str;
     '<a href="/public/'.          foreach my $course (@Courses) {
  $courseinfo{'domain'}.'/'.$courseinfo{'num'}.'/syllabus" target="preview">'.              my %courseinfo = &Apache::lonnet::coursedescription($course);
  $courseinfo{'description'}.'</a>';              if (! exists($courseinfo{'num'}) || $courseinfo{'num'} eq '') {
  } split(/\s*\,\s*/,$value));                  next;
               }
               if ($Str ne '') { $Str .= '<br />'; }
               $Str .= '<a href="/public/'.$courseinfo{'domain'}.'/'.
                   $courseinfo{'num'}.'/syllabus" target="preview">'.
                   $courseinfo{'description'}.'</a>';
           }
    return $Str;
     }      }
     # No pretty print found      # No pretty print found
     return $value;      return $value;
Line 496  sub present_uneditable_metadata { Line 518  sub present_uneditable_metadata {
     } else {      } else {
         $versiondisplay='Version: '.$currentversion;          $versiondisplay='Version: '.$currentversion;
     }      }
     # crumbify displayed URL      # crumbify displayed URL               uri     target prefix form  size
     $disuri=&Apache::lonhtmlcommon::crumbs($disuri);      $disuri=&Apache::lonhtmlcommon::crumbs($disuri,undef, undef, undef,'+1');
       $disuri =~ s:<br />::g;
     # obsolete      # obsolete
     my $obsolete=$content{'obsolete'};      my $obsolete=$content{'obsolete'};
     my $obsoletewarning='';      my $obsoletewarning='';
Line 509  sub present_uneditable_metadata { Line 532  sub present_uneditable_metadata {
     #      #
     my %lt=&fieldnames();      my %lt=&fieldnames();
     my $table='';      my $table='';
       my $title = $content{'title'};
       if (! defined($title)) {
           $title = 'Untitled Resource';
       }
     foreach ('title',       foreach ('title', 
              'author',                'author', 
              'subject',                'subject', 
Line 534  sub present_uneditable_metadata { Line 561  sub present_uneditable_metadata {
     }      }
     #      #
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 <h2>$content{'title'}</h2>  <h2>$title</h2>
 <h3><tt>$disuri</tt></h3>  <p>
   $disuri<br />
 $obsoletewarning  $obsoletewarning
 $versiondisplay<br />  $versiondisplay
   </p>
 <table cellspacing=2 border=0>  <table cellspacing=2 border=0>
 $table  $table
 </table>  </table>
Line 589  sub print_dynamic_metadata { Line 618  sub print_dynamic_metadata {
          exists($dynmeta{'avetries'}) ||           exists($dynmeta{'avetries'}) ||
          exists($dynmeta{'difficulty'}))) {           exists($dynmeta{'difficulty'}))) {
         # This is an assessment, print assessment data          # This is an assessment, print assessment data
         $r->print(          $r->print('<h4>'.&mt('Assessment Statistical Data').'</h4>'.
                   '<h4>'.&mt('Assessment Statistical Data').'</h4>'.  
                   '<table cellspacing=2 border=0>');                    '<table cellspacing=2 border=0>');
         foreach ('stdno','avetries','difficulty') {          foreach ('stdno','avetries','difficulty') {
             $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.              $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td>'.
                       '<td bgcolor="#CCCCCC">'.                        '<td bgcolor="#CCCCCC">'.
                       &prettyprint($_,$dynmeta{$_})."</td></tr>\n");                        &prettyprint($_,sprintf('%5.2f',$dynmeta{$_})).'</td>'.
                         "</tr>\n");
         }          }
         $r->print('</table>');              $r->print('</table>');    
     } else {      } else {
Removed from v.1.71  
changed lines
  Added in v.1.72

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