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

Diff for /loncom/interface/lonmeta.pm between versions 1.57 and 1.62

version 1.57, 2004/01/04 00:28:22 version 1.62, 2004/04/06 15:07:41
Line 302  sub prettyprint { Line 302  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($_);
        '<br /><b>'.&Apache::lonnet::gettitle($url).'</b>'.         '<b>'.&Apache::lonnet::gettitle($url).'</b>'.
        &Apache::lonhtmlcommon::crumbs($url,'preview','');         &Apache::lonhtmlcommon::crumbs($url,'preview','',undef,'+0');
     } split(/\s*\,\s*/,$value));      } split(/\s*\,\s*/,$value));
     }      }
 # Evaluations  # Evaluations
Line 434  sub handler { Line 434  sub handler {
   
     my $uri=$r->uri;      my $uri=$r->uri;
   
   unless ($uri=~/^\/\~/) {   # ====================================================== Looking for all bombs?
     if ($uri=~/\/adm\/bombs\/(.*)$/) {
   # ----------------------------------------------------------- Set document type
         $uri=&Apache::lonnet::declutter($1);
         &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;
         
         return OK if $r->header_only;
         $r->print(&Apache::loncommon::bodytag('Error Messages'));
         $r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>');
         my ($domain,$author)=($uri=~/^(\w+)\/(\w+)\//);
         if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {
     my %brokenurls=&Apache::lonmsg::all_url_author_res_msg($author,$domain);
     foreach (sort keys %brokenurls) {
         if ($_=~/^\Q$uri\E/) {
     $r->print(&Apache::lonhtmlcommon::crumbs(&Apache::lonnet::clutter($_)).
       &Apache::lonmsg::retrieve_author_res_msg($_).'<hr />');
         }
     }
         } else {
     $r->print(&mt('Not authorized'));
         }
         $r->print('</body></html>');
     } elsif ($uri!~/^\/\~/) { 
 # =========================================== This is not in construction space  # =========================================== This is not in construction space
     my ($resdomain,$resuser)=      my ($resdomain,$resuser)=
            (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);             (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
Line 538  ENDHEAD Line 561  ENDHEAD
        'goto','goto_list',         'goto','goto_list',
        'course','course_list') {         'course','course_list') {
   $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.    $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.
     &prettyprint($dynmeta{$_})."</td></tr>\n");      &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
       }        }
       $r->print('</table>');        $r->print('</table>');
       if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {        if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {
Line 547  ENDHEAD Line 570  ENDHEAD
     '<h4>'.&mt('Assessment Statistical Data').'</h4><table cellspacing=2 border=0>');      '<h4>'.&mt('Assessment Statistical Data').'</h4><table cellspacing=2 border=0>');
   foreach ('stdno','avetries','difficulty') {    foreach ('stdno','avetries','difficulty') {
       $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.        $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.
  &prettyprint($dynmeta{$_})."</td></tr>\n");   &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
   }    }
   $r->print('</table>');        $r->print('</table>');    
       }        }
       $r->print('<h4>'.&mt('Evaluation Data').'</h4><table cellspacing=2 border=0>');        $r->print('<h4>'.&mt('Evaluation Data').'</h4><table cellspacing=2 border=0>');
       foreach ('clear','depth','helpful','correct','technical') {        foreach ('clear','depth','helpful','correct','technical') {
   $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.    $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.
     &prettyprint($dynmeta{$_})."</td></tr>\n");      &prettyprint($_,$dynmeta{$_})."</td></tr>\n");
      }           }    
       $r->print('</table>');        $r->print('</table>');
       $uri=~/^\/res\/(\w+)\/(\w+)\//;         $uri=~/^\/res\/(\w+)\/(\w+)\//; 
Line 688  ENDEDIT Line 711  ENDEDIT
       print $mfh ' '.$_.'="'.$value.'"';        print $mfh ' '.$_.'="'.$value.'"';
   }    }
       print $mfh '>'.        print $mfh '>'.
   &HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey})    &HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey},'<>&"')
   .'</'.$tag.'>';    .'</'.$tag.'>';
   }    }
       }        }
Line 698  ENDEDIT Line 721  ENDEDIT
       $r->print(        $r->print(
  '<br /><input type="submit" name="store" value="'.   '<br /><input type="submit" name="store" value="'.
  &mt('Store Catalog Information').'"></form></body></html>');   &mt('Store Catalog Information').'"></form></body></html>');
      }
   }    }
     return OK;    return OK;
  }  
 }  }
   
 # ================================================================= BEGIN Block  # ================================================================= BEGIN Block
Removed from v.1.57  
changed lines
  Added in v.1.62

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