Annotation of loncom/interface/lonmeta.pm, revision 1.51

1.1       www         1: # The LearningOnline Network with CAPA
1.8       albertel    2: # Metadata display handler
                      3: #
1.51    ! www         4: # $Id: lonmeta.pm,v 1.50 2003/12/30 20:39:30 www Exp $
1.8       albertel    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
1.1       www        14: #
1.8       albertel   15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
1.44      www        27: 
1.1       www        28: 
                     29: package Apache::lonmeta;
                     30: 
                     31: use strict;
                     32: use Apache::Constants qw(:common);
1.3       www        33: use Apache::lonnet();
1.10      www        34: use Apache::loncommon();
1.46      www        35: use Apache::lonhtmlcommon();
1.23      www        36: use Apache::lonmsg;
                     37: use Apache::lonpublisher;
1.35      www        38: use Apache::lonlocal;
1.43      www        39: use Apache::lonmysql;
1.49      www        40: use Apache::lonmsg;
1.1       www        41: 
1.44      www        42: # MySQL table columns
                     43: 
                     44: my @columns;
                     45: 
1.9       www        46: # ----------------------------------------- Fetch and evaluate dynamic metadata
                     47: 
                     48: sub dynamicmeta {
                     49:     my $url=&Apache::lonnet::declutter(shift);
                     50:     $url=~s/\.meta$//;
                     51:     my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);
1.19      www        52:     my $regexp=$url;
1.9       www        53:     $regexp=~s/(\W)/\\$1/g;
1.10      www        54:     $regexp='___'.$regexp.'___';
1.16      albertel   55:     my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
                     56: 				       $aauthor,$regexp);
1.30      www        57:     my %sum=();
                     58:     my %cnt=();
                     59:     my %concat=();
1.40      matthew    60:     my %listitems=(
1.10      www        61:                    'course'       => 'add',
1.29      www        62:                    'goto'         => 'add',
                     63:                    'comefrom'     => 'add',
1.10      www        64:                    'avetries'     => 'avg',
                     65:                    'stdno'        => 'add',
                     66:                    'difficulty'   => 'avg',
                     67:                    'clear'        => 'avg',
                     68:                    'technical'    => 'avg',
                     69:                    'helpful'      => 'avg',
                     70:                    'correct'      => 'avg',
                     71:                    'depth'        => 'avg',
                     72:                    'comments'     => 'app',
                     73:                    'usage'        => 'cnt'
                     74:                    );
1.39      albertel   75:     while ($_=each(%evaldata)) {
                     76: 	my ($item,$purl,$cat)=split(/___/,$_);
                     77: 	### Apache->request->print("\n".$_.' - '.$item.'<br />');
                     78: 	if (defined($cnt{$cat})) { $cnt{$cat}++; } else { $cnt{$cat}=1; }
1.30      www        79:         unless ($listitems{$cat} eq 'app') {
                     80:             if (defined($sum{$cat})) {
                     81:                $sum{$cat}+=$evaldata{$_};
                     82:                $concat{$cat}.=','.$item;
1.10      www        83: 	    } else {
1.30      www        84:                $sum{$cat}=$evaldata{$_};
                     85:                $concat{$cat}=$item;
1.10      www        86: 	    }
                     87:         } else {
1.30      www        88:             if (defined($sum{$cat})) {
1.10      www        89:                if ($evaldata{$_}) {
1.46      www        90:                   $sum{$cat}.='<hr />'.$evaldata{$_};
1.10      www        91: 	       }
                     92:  	    } else {
1.30      www        93: 	       $sum{$cat}=''.$evaldata{$_};
1.10      www        94: 	    }
                     95: 	}
                     96:     }
1.9       www        97:     my %returnhash=();
1.39      albertel   98:     while ($_=each(%cnt)) {
1.11      www        99:        if ($listitems{$_} eq 'avg') {
                    100: 	   $returnhash{$_}=int(($sum{$_}/$cnt{$_})*100.0+0.5)/100.0;
                    101:        } elsif ($listitems{$_} eq 'cnt') {
                    102:            $returnhash{$_}=$cnt{$_};
                    103:        } else {
                    104:            $returnhash{$_}=$sum{$_};
                    105:        }
1.30      www       106:        $returnhash{$_.'_list'}=$concat{$_};
1.39      albertel  107:        ### Apache->request->print("\n<hr />".$_.': '.$returnhash{$_}.'<br />'.$returnhash{$_.'_list'});
1.9       www       108:     }
1.40      matthew   109:     #
1.46      www       110:     # Deal with 'count' separately
1.40      matthew   111:     $returnhash{'count'} = &access_count($url,$aauthor,$adomain);
1.47      www       112:     # since "usage" is reserved word in MySQL ...
                    113:     $returnhash{'sequsage'}=$returnhash{'usage'};
                    114:     $returnhash{'sequsage_list'}=$returnhash{'usage_list'};
1.40      matthew   115: 
1.9       www       116:     return %returnhash;
1.40      matthew   117: }
                    118: 
                    119: sub access_count {
                    120:     my ($src,$author,$adomain) = @_;
                    121:     my %countdata=&Apache::lonnet::dump('nohist_accesscount',$adomain,
                    122:                                         $author,$src);
                    123:     if (! exists($countdata{$src})) {
1.47      www       124:         return &mt('Not Available');
1.40      matthew   125:     } else {
                    126:         return $countdata{$src};
                    127:     }
1.25      www       128: }
                    129: 
                    130: # ------------------------------------- Try to make an alt tag if there is none
                    131: 
                    132: sub alttag {
1.26      www       133:     my ($base,$src)=@_;
                    134:     my $fullpath=&Apache::lonnet::hreflocation($base,$src);
                    135:     my $alttag=&Apache::lonnet::metadata($fullpath,'title').' '.
                    136:                &Apache::lonnet::metadata($fullpath,'subject').' '.
                    137:                &Apache::lonnet::metadata($fullpath,'abstract');
                    138:     $alttag=~s/\s+/ /gs;
                    139:     $alttag=~s/\"//gs;
                    140:     $alttag=~s/\'//gs;
                    141:     $alttag=~s/\s+$//gs;
                    142:     $alttag=~s/^\s+//gs;
                    143:     if ($alttag) { return $alttag; } else 
1.47      www       144:                  { return &mt('No information available'); }
1.9       www       145: }
1.1       www       146: 
1.29      www       147: # -------------------------------------------------------------- Author display
                    148: 
                    149: sub authordisplay {
                    150:     my ($aname,$adom)=@_;
                    151:     return &Apache::loncommon::aboutmewrapper(
                    152:                 &Apache::loncommon::plainname($aname,$adom),
1.46      www       153:                     $aname,$adom,'preview').' <tt>['.$aname.'@'.$adom.']</tt>';
1.29      www       154: }
                    155: 
1.12      www       156: # -------------------------------------------------------------- Pretty display
                    157: 
                    158: sub evalgraph {
                    159:     my $value=shift;
1.13      www       160:     unless ($value) { return ''; }
1.12      www       161:     my $val=int($value*10.+0.5)-10;
                    162:     my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
                    163:     if ($val>=20) {
                    164: 	$output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';
                    165:     } else {
                    166:         $output.='<td width='.($val).' bgcolor="#555555">&nbsp;</td>'.
                    167:                  '<td width='.(20-$val).' bgcolor="#FF3333">&nbsp;</td>';
                    168:     }
                    169:     $output.='<td bgcolor="#FFFF33">&nbsp;</td>';
                    170:     if ($val>20) {
                    171: 	$output.='<td width='.($val-20).' bgcolor="#33FF33">&nbsp;</td>'.
                    172:                  '<td width='.(40-$val).' bgcolor="#555555">&nbsp;</td>';
                    173:     } else {
                    174:        $output.='<td width=20 bgcolor="#555555">&nbsp&nbsp;</td>';
                    175:     }
                    176:     $output.='<td> ('.$value.') </td></tr></table>';
                    177:     return $output;
                    178: }
                    179: 
                    180: sub diffgraph {
                    181:     my $value=shift;
1.13      www       182:     unless ($value) { return ''; }
1.12      www       183:     my $val=int(40.0*$value+0.5);
1.13      www       184:     my @colors=('#FF9933','#EEAA33','#DDBB33','#CCCC33',
                    185:                 '#BBDD33','#CCCC33','#DDBB33','#EEAA33');
1.12      www       186:     my $output='<table border=0 cellpadding=0 cellspacing=0><tr>';
                    187:     for (my $i=0;$i<8;$i++) {
                    188: 	if ($val>$i*5) {
                    189:             $output.='<td width=5 bgcolor="'.$colors[$i].'">&nbsp;</td>';
                    190:         } else {
                    191: 	    $output.='<td width=5 bgcolor="#555555">&nbsp;</td>';
                    192: 	}
                    193:     }
                    194:     $output.='<td> ('.$value.') </td></tr></table>';
                    195:     return $output;
                    196: }
                    197: 
1.44      www       198: # ==================================================== Turn MySQL row into hash
                    199: 
                    200: sub metadata_col_to_hash {
                    201:     my @cols=@_;
                    202:     my %hash=();
                    203:     for (my $i=0; $i<=$#columns; $i++) {
                    204: 	$hash{$columns[$i]}=$cols[$i];
                    205:     }
                    206:     return %hash;
                    207: }
                    208: 
1.45      www       209: # ============================================================= The field names
                    210: 
                    211: sub fieldnames {
                    212:     return &Apache::lonlocal::texthash(
                    213: 				   'title' => 'Title',
                    214: 				   'author' =>'Author(s)',
                    215: 				   'subject' => 'Subject',
                    216: 				   'keywords' => 'Keyword(s)',
                    217: 				   'notes' => 'Notes',
                    218: 				   'abstract' => 'Abstract',
                    219:                                    'lowestgradelevel' => 'Lowest Grade Level',
                    220:                                    'highestgradelevel' => 'Highest Grade Level',
                    221:                                    'standards' => 'Standards',
                    222: 				   'mime' => 'MIME Type',
                    223: 				   'language' => 'Language',
                    224: 				   'creationdate' => 'Creation Date',
                    225: 				   'lastrevisiondate' => 'Last Revision Date',
                    226: 				   'owner' => 'Publisher/Owner',
                    227:                                    'copyright' => 'Copyright/Distribution',
                    228: 				   'customdistributionfile' => 'Custom Distribution File',
                    229:                                    'obsolete' => 'Obsolete',
                    230: 				   'obsoletereplacement' => 'Suggested Replacement for Obsolete File',
                    231: 				   'count'      => 'Network-wide number of accesses (hits)',
                    232: 				   'course'     => 'Network-wide number of courses using resource',
1.47      www       233: 				   'course_list' => 'Network-wide courses using resource',
                    234: 				   'sequsage'      => 'Number of resources using or importing resource',
                    235: 				   'sequsage_list' => 'Resources using or importing resource',
1.45      www       236: 				   'goto'       => 'Number of resources that follow this resource in maps',
1.47      www       237: 				   'goto_list'  => 'Resources that follow this resource in maps',
1.45      www       238: 				   'comefrom'   => 'Number of resources that lead up to this resource in maps',
1.47      www       239: 				   'comefrom_list' => 'Resources that lead up to this resource in maps',
1.45      www       240: 				   'clear'      => 'Material presented in clear way',
                    241: 				   'depth'      => 'Material covered with sufficient depth',
                    242: 				   'helpful'    => 'Material is helpful',
                    243: 				   'correct'    => 'Material appears to be correct',
                    244: 				   'technical'  => 'Resource is technically correct', 
                    245: 				   'avetries'   => 'Average number of tries till solved',
                    246: 				   'stdno'      => 'Total number of students who have worked on this problem',
                    247: 				   'difficulty' => 'Degree of difficulty'
                    248: 				       );
                    249: }
1.46      www       250: 
                    251: # =========================================== Pretty printing of metadata field
                    252: 
                    253: sub prettyprint {
                    254:     my ($type,$value)=@_;
                    255:     unless (defined($value)) { return '&nbsp;'; }
                    256: # Title
                    257:     if ($type eq 'title') {
                    258: 	return '<font size="+1" face="arial">'.$value.'</font>';
                    259:     }
                    260: # Dates
                    261:     if (($type eq 'creationdate') ||
                    262: 	($type eq 'lastrevisiondate')) {
                    263: 	return &Apache::lonlocal::locallocaltime(
                    264: 			  &Apache::lonmysql::unsqltime($value));
                    265:     }
                    266: # Language
                    267:     if ($type eq 'language') {
                    268: 	return &Apache::loncommon::languagedescription($value);
                    269:     }
                    270: # Copyright
                    271:     if ($type eq 'copyright') {
                    272: 	return &Apache::loncommon::copyrightdescription($value);
                    273:     }
                    274: # MIME
                    275:     if ($type eq 'mime') {
                    276:        return '<img src="'.&Apache::loncommon::icon($value).'" />&nbsp;'.
                    277: 	   &Apache::loncommon::filedescription($value);
                    278:    }
                    279: # Person
                    280:     if (($type eq 'author') || 
                    281: 	($type eq 'owner') ||
                    282: 	($type eq 'modifyinguser') ||
                    283: 	($type eq 'authorspace')) {
                    284: 	$value=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse;
                    285: 	return $value;
                    286:     }
1.48      www       287: # Gradelevel
                    288:     if (($type eq 'lowestgradelevel') ||
                    289: 	($type eq 'highestgradelevel')) {
                    290: 	return &Apache::loncommon::gradeleveldescription($value);
                    291:     }
1.47      www       292: # Only for advance users below
                    293:     unless ($ENV{'user.adv'}) { return '<i>- '.&mt('not displayed').' -</i>' };
1.46      www       294: # File
                    295:     if (($type eq 'customdistributionfile') ||
                    296: 	($type eq 'obsoletereplacement') ||
                    297: 	($type eq 'goto_list') ||
                    298: 	($type eq 'comefrom_list') ||
                    299: 	($type eq 'sequsage_list')) {
                    300: 	return join('<br />',map {
                    301: 	       &Apache::lonnet::gettitle($_).' ['.
                    302: 	       &Apache::lonhtmlcommon::crumbs(&Apache::lonnet::clutter($_),'preview').']';
                    303: 	    } split(/\s*\,\s*/,$value));
                    304:     }
                    305: # Evaluations
                    306:     if (($type eq 'clear') ||
                    307: 	($type eq 'depth') ||
                    308: 	($type eq 'helpful') ||
                    309: 	($type eq 'correct') ||
                    310: 	($type eq 'technical')) {
                    311: 	return &evalgraph($value);
                    312:     }
                    313: # Difficulty
                    314:     if ($type eq 'difficulty') {
                    315: 	return &diffgraph($value);
                    316:     }
                    317: # List of courses
                    318:     if ($type=~/\_list/) {
                    319: 	return join('<br />',map {
                    320: 	    my %courseinfo=&Apache::lonnet::coursedescription($_);  
                    321: 	    '<a href="/public/'.
                    322: 		$courseinfo{'domain'}.'/'.$courseinfo{'num'}.'/syllabus" target="preview">'.
                    323: 		$courseinfo{'description'}.'</a>';
                    324: 	} split(/\s*\,\s*/,$value));
                    325:     }
                    326: # No pretty print found
                    327:     return $value;
                    328: }
                    329: # ============================================== Pretty input of metadata field
                    330: 
1.48      www       331: sub selectbox {
                    332:     my ($name,$value,$functionref,@idlist)=@_;
                    333:     my $selout='<select name="'.$name.'">';
                    334:     foreach (@idlist) {
                    335:         $selout.='<option value=\''.$_.'\'';
                    336:         if ($_ eq $value) {
                    337: 	    $selout.=' selected>'.&{$functionref}($_).'</option>';
                    338: 	}
                    339:         else {$selout.='>'.&{$functionref}($_).'</option>';}
                    340:     }
                    341:     return $selout.'</select>';
                    342: }
                    343: 
                    344: 
1.46      www       345: sub prettyinput {
1.48      www       346:     my ($type,$value,$fieldname,$formname)=@_;
                    347: # Language
                    348:     if ($type eq 'language') {
                    349: 	return &selectbox($fieldname,
                    350: 			  $value,
                    351: 			  \&Apache::loncommon::languagedescription,
                    352: 			  (&Apache::loncommon::languageids));
                    353:     }
                    354: # Copyright
                    355:     if ($type eq 'copyright') {
                    356: 	return &selectbox($fieldname,
                    357: 			  $value,
                    358: 			  \&Apache::loncommon::copyrightdescription,
                    359: 			  (&Apache::loncommon::copyrightids));
                    360:     }
                    361: # Gradelevels
                    362:     if (($type eq 'lowestgradelevel') ||
                    363: 	($type eq 'highestgradelevel')) {
                    364: 	return &Apache::loncommon::select_level_form($value,$fieldname);
                    365:     }
                    366: # Obsolete
                    367:     if ($type eq 'obsolete') {
                    368: 	return '<input type="checkbox" name="'.$fieldname.'"'.
                    369: 	    ($value?' checked="1"':'').' />'; 
                    370:     }
                    371: # Obsolete replacement file
                    372:     if ($type eq 'obsoletereplacement') {
                    373: 	return '<input type="text" name="'.$fieldname.
                    374: 	    '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
                    375: 	    "('".$formname."','".$fieldname."'".
                    376: 	    ",'')\">".&mt('Select').'</a>'; 
                    377:    }
                    378: # Customdistribution file
                    379:     if ($type eq 'customdistributionfile') {
                    380: 	return '<input type="text" name="'.$fieldname.
                    381: 	    '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
                    382: 	    "('".$formname."','".$fieldname."'".
                    383: 	    ",'rights')\">".&mt('Select').'</a>'; 
                    384:     }
                    385: # Dates
                    386:     if (($type eq 'creationdate') ||
                    387: 	($type eq 'lastrevisiondate')) {
                    388: 	return &Apache::lonhtmlcommon::date_setter($formname,
                    389: 						   $fieldname,$value);
                    390:     }
                    391: # No pretty input found
                    392:     $value=~s/^\s+//gs;
                    393:     $value=~s/\s+$//gs;
                    394:     $value=~s/\s+/ /gs;
                    395:     $value=~s/\"/\&quod\;/gs;
                    396:     return '<input type="text" name="'.$fieldname.'" size="80" value="'.$value.'" />'; 
1.46      www       397: }
                    398: 
1.1       www       399: # ================================================================ Main Handler
                    400: 
                    401: sub handler {
                    402:   my $r=shift;
1.20      www       403: 
                    404:     my $loaderror=&Apache::lonnet::overloaderror($r);
                    405:     if ($loaderror) { return $loaderror; }
                    406: 
                    407: 
                    408:     my $uri=$r->uri;
                    409: 
1.23      www       410:   unless ($uri=~/^\/\~/) { 
                    411: # =========================================== This is not in construction space
1.20      www       412:     my ($resdomain,$resuser)=
                    413:            (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
                    414: 
                    415:     $loaderror=
                    416:        &Apache::lonnet::overloaderror($r,
                    417:          &Apache::lonnet::homeserver($resuser,$resdomain));
                    418:     if ($loaderror) { return $loaderror; }
                    419: 
1.3       www       420:   my %content=();
1.1       www       421: 
                    422: # ----------------------------------------------------------- Set document type
                    423: 
1.35      www       424:   &Apache::loncommon::content_type($r,'text/html');
1.1       www       425:   $r->send_http_header;
                    426: 
                    427:   return OK if $r->header_only;
                    428: 
                    429: # ------------------------------------------------------------------- Read file
1.14      harris41  430:   foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
1.3       www       431:       $content{$_}=&Apache::lonnet::metadata($uri,$_);
1.14      harris41  432:   }
1.1       www       433: # --------------------------------------------------------------- Render Output
1.46      www       434: # displayed url
1.45      www       435:     my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/);
1.50      www       436:     $uri=~s/\.meta$//;
1.46      www       437:     my $disuri=&Apache::lonnet::clutter($uri);
                    438:     $disuri=&Apache::lonhtmlcommon::crumbs($disuri);
                    439: # version
1.45      www       440:     my $currentversion=&Apache::lonnet::getversion($disuri);
                    441:     my $versiondisplay='';
                    442:     if ($thisversion) {
                    443: 	$versiondisplay=&mt('Version').': '.$thisversion.
1.47      www       444: 	    ' ('.&mt('most recent version').': '.
                    445: 	    ($currentversion>0?$currentversion:&mt('information not available')).')';
1.45      www       446:     } else {
                    447: 	$versiondisplay='Version: '.$currentversion;
                    448:     }
1.46      www       449: # obsolete
1.45      www       450:     my $obsolete=$content{'obsolete'};
                    451:     my $obsoletewarning='';
                    452:     if (($obsolete) && ($ENV{'user.adv'})) {
                    453: 	$obsoletewarning='<p><font color="red">'.
                    454: 	    &mt('This resource has been marked obsolete by the author(s)').'</font></p>';
                    455:     }
1.36      www       456: 
1.45      www       457:     my %lt=&fieldnames();
                    458:     my $table='';
                    459:     my $bodytag=&Apache::loncommon::bodytag
                    460:             ('Catalog Information','','','',$resdomain);
                    461:     foreach ('title', 
                    462: 	     'author', 
                    463: 	     'subject', 
                    464: 	     'keywords', 
                    465: 	     'notes', 
                    466: 	     'abstract', 
                    467: 	     'mime', 
                    468: 	     'language', 
                    469: 	     'creationdate', 
                    470: 	     'lastrevisiondate', 
                    471: 	     'owner', 
                    472: 	     'copyright', 
                    473: 	     'customdistributionfile', 
                    474: 	     'obsolete', 
                    475: 	     'obsoletereplacement') {
                    476: 	$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}.
                    477: 	        '</td><td bgcolor="#CCCCCC">'.
1.46      www       478:                 &prettyprint($_,$content{$_}).'</td></tr>';
1.45      www       479: 	delete $content{$_};
                    480:     }
1.36      www       481: 
1.1       www       482:   $r->print(<<ENDHEAD);
                    483: <html><head><title>Catalog Information</title></head>
1.17      www       484: $bodytag
1.1       www       485: <h2>$content{'title'}</h2>
1.11      www       486: <h3><tt>$disuri</tt></h3>
1.36      www       487: $obsoletewarning
1.21      www       488: $versiondisplay<br />
1.11      www       489: <table cellspacing=2 border=0>
1.45      www       490: $table
1.11      www       491: </table>
1.1       www       492: ENDHEAD
1.7       www       493:   if ($ENV{'user.adv'}) {
1.11      www       494: # ------------------------------------------------------------ Dynamic Metadata
                    495:       $r->print(
1.47      www       496: 		'<h3>'.&mt('Dynamic Metadata').' ('.
                    497: 		&mt('updated periodically').')</h3>'.&mt('Processing').
                    498: 		' ...<br />');
                    499:       $r->rflush();
                    500:       my %items=&fieldnames();
                    501:       my %dynmeta=&dynamicmeta($uri);
                    502: # General Access and Usage Statistics
                    503:       $r->print('<h4>'.&mt('Access and Usage Statistics').'</h4><table cellspacing=2 border=0>');
                    504:       foreach ('count',
                    505: 	       'sequsage','sequsage_list',
                    506: 	       'comefrom','comefrom_list',
                    507: 	       'goto','goto_list',
                    508: 	       'course','course_list') {
                    509: 	  $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.
                    510: 		    &prettyprint($dynmeta{$_})."</td></tr>\n");
                    511:       }
                    512:       $r->print('</table>');
                    513:       if ($uri=~/\.(problem|exam|quiz|assess|survey|form)\.meta$/) {
                    514: # This is an assessment, print assessment data
                    515: 	  $r->print(
                    516: 		    '<h4>'.&mt('Assessment Statistical Data').'</h4><table cellspacing=2 border=0>');
                    517: 	  foreach ('stdno','avetries','difficulty') {
                    518: 	      $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.
                    519: 			&prettyprint($dynmeta{$_})."</td></tr>\n");
                    520: 	  }
                    521: 	  $r->print('</table>');    
1.11      www       522:       }
1.47      www       523:       $r->print('<h4>'.&mt('Evaluation Data').'</h4><table cellspacing=2 border=0>');
                    524:       foreach ('clear','depth','helpful','correct','technical') {
                    525: 	  $r->print('<tr><td bgcolor="#AAAAAA">'.$lt{$_}.'</td><td bgcolor="#CCCCCC">'.
                    526: 		    &prettyprint($dynmeta{$_})."</td></tr>\n");
                    527:      }    
                    528:       $r->print('</table>');
1.50      www       529:       $uri=~/^\/res\/(\w+)\/(\w+)\//; 
1.47      www       530:       if ((($ENV{'user.domain'} eq $1) && ($ENV{'user.name'} eq $2))
                    531: 	  || ($ENV{'user.role.ca./'.$1.'/'.$2})) {
1.50      www       532: 	  $r->print('<h4>'.&mt('Evaluation Comments').' ('.
1.49      www       533: 		    &mt('visible to author and co-authors only').')</h4>'.
1.47      www       534: 		    '<blockquote>'.$dynmeta{'comments'}.'</blockquote>');
1.51    ! www       535: 	  $r->print('<a name="bombs" /><h4>'.&mt('Error Messages').' ('.
1.49      www       536: 		    &mt('visible to author and co-authors only').')</h4>'.
1.51    ! www       537: 		    &Apache::lonmsg::retrieve_author_res_msg($uri));
1.12      www       538:       }
1.47      www       539: # ------------------------------------------------------------- All other stuff
1.10      www       540:       $r->print(
1.47      www       541: 		'<h3>'.&mt('Additional Metadata (non-standard, parameters, exports)').'</h3>');
                    542:       foreach (sort keys %content) {
                    543: 	  my $name=$_;
                    544: 	  unless ($name=~/\.display$/) {
                    545: 	      my $display=&Apache::lonnet::metadata($uri,$name.'.display');
                    546: 	      unless ($display) { $display=$name; };
                    547: 	      my $otherinfo='';
                    548: 	      foreach ('name','part','type','default') {
                    549: 		  if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) {
                    550: 		      $otherinfo.=' '.$_.'='.
                    551: 			  &Apache::lonnet::metadata($uri,$name.'.'.$_).'; ';
                    552: 		  }
                    553: 	      }
                    554: 	      $r->print('<b>'.$display.':</b> '.$content{$name});
                    555: 	      if ($otherinfo) {
                    556: 		  $r->print(' ('.$otherinfo.')');
1.33      www       557: 	      }
1.47      www       558: 	      $r->print("<br />\n");
1.33      www       559: 	  }
1.14      harris41  560:       }
1.7       www       561:   }
1.23      www       562: # ===================================================== End Resource Space Call
                    563:  } else {
                    564: # ===================================================== Construction Space Call
                    565: 
                    566: # ----------------------------------------------------------- Set document type
                    567: 
1.45      www       568:   &Apache::loncommon::content_type($r,'text/html');
1.23      www       569:   $r->send_http_header;
                    570: 
                    571:   return OK if $r->header_only;
                    572: # ---------------------------------------------------------------------- Header
                    573:   my $bodytag=&Apache::loncommon::bodytag('Edit Catalog Information');
                    574:   my $disuri=$uri;
                    575:   my $fn=&Apache::lonnet::filelocation('',$uri);
                    576:   $disuri=~s/^\/\~\w+//;
                    577:   $disuri=~s/\.meta$//;
                    578:   my $displayfile='Catalog Information for '.$disuri;
                    579:   if ($disuri=~/\/default$/) {
                    580:       my $dir=$disuri;
                    581:       $dir=~s/default$//;
1.37      www       582:       $displayfile=&mt('Default Cataloging Information for Directory').' '.
                    583: 	  $dir;
1.23      www       584:   }
                    585:   %Apache::lonpublisher::metadatafields=();
                    586:   %Apache::lonpublisher::metadatakeys=();
                    587:   &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));
                    588:   $r->print(<<ENDEDIT);
                    589: <html><head><title>Edit Catalog Information</title></head>
                    590: $bodytag
                    591: <h1>$displayfile</h1>
1.48      www       592: <form method="post" name="defaultmeta">
1.23      www       593: ENDEDIT
1.48      www       594:   $r->print('<script language="JavaScript">'.
                    595: 	    &Apache::loncommon::browser_and_searcher_javascript.
                    596: 	    '</script>');
1.45      www       597:    my %lt=&fieldnames();
1.24      www       598:    foreach ('author','title','subject','keywords','abstract','notes',
1.48      www       599:             'copyright','customdistributionfile','language','standards',
                    600: 	    'lowestgradelevel','highestgradelevel',
1.37      www       601:             'obsolete','obsoletereplacement') {
1.48      www       602:        $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
                    603:        unless ($Apache::lonpublisher::metadatafields{'copyright'}) {
                    604: 	   $Apache::lonpublisher::metadatafields{'copyright'}='default';
1.32      albertel  605:        }
1.48      www       606:        $r->print('<p>'.$lt{$_}.': '.&prettyinput($_,
                    607: 				  $Apache::lonpublisher::metadatafields{$_},
                    608: 				  'new_'.$_,'defaultmeta').'</p>');
1.23      www       609:    }
1.24      www       610:    if ($ENV{'form.store'}) {
                    611:       my $mfh;
                    612:       unless ($mfh=Apache::File->new('>'.$fn)) {
                    613:             $r->print(
1.37      www       614:             '<p><font color=red>'.&mt('Could not write metadata').', '.
                    615: 		      &mt('FAIL').'</font>');
1.24      www       616:       } else {
                    617:           foreach (sort keys %Apache::lonpublisher::metadatafields) {
                    618:             unless ($_=~/\./) {
                    619:                 my $unikey=$_;
                    620:                 $unikey=~/^([A-Za-z]+)/;
                    621:                 my $tag=$1;
                    622:                 $tag=~tr/A-Z/a-z/;
                    623:                 print $mfh "\n\<$tag";
                    624:                 foreach 
                    625:                   (split(/\,/,$Apache::lonpublisher::metadatakeys{$unikey})) {
                    626:                     my $value=
                    627:                        $Apache::lonpublisher::metadatafields{$unikey.'.'.$_};
                    628:                     $value=~s/\"/\'\'/g;
                    629:                     print $mfh ' '.$_.'="'.$value.'"';
                    630:                 }
                    631:                 print $mfh '>'.
                    632:         &HTML::Entities::encode($Apache::lonpublisher::metadatafields{$unikey})
                    633:                         .'</'.$tag.'>';
                    634:             }
                    635: 	  }
1.37      www       636:           $r->print('<p>'.&mt('Wrote Metadata'));
1.24      www       637:       }
                    638:     }
                    639:     $r->print(
1.37      www       640:  '<br /><input type="submit" name="store" value="'.
                    641: &mt('Store Catalog Information').'"></form></body></html>');
1.24      www       642:     return OK;
                    643:   }
1.1       www       644: }
                    645: 
1.44      www       646: # ================================================================= BEGIN Block
                    647: BEGIN {
                    648: # Get columns of MySQL metadata table
                    649:     @columns=&Apache::lonmysql::col_order('metadata');
                    650: }
1.1       www       651: 1;
                    652: __END__
                    653: 
                    654: 
                    655: 
                    656: 
                    657: 
                    658: 
                    659: 

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