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

Diff for /loncom/interface/lonmeta.pm between versions 1.83 and 1.87

version 1.83, 2004/06/17 20:43:04 version 1.87, 2004/12/03 21:37:29
Line 256  sub fieldnames { Line 256  sub fieldnames {
          'owner' => 'Publisher/Owner',           'owner' => 'Publisher/Owner',
          'copyright' => 'Copyright/Distribution',           'copyright' => 'Copyright/Distribution',
          'customdistributionfile' => 'Custom Distribution File',           'customdistributionfile' => 'Custom Distribution File',
          'sourceavail' => 'Source Availible',           'sourceavail' => 'Source Available',
          'sourcerights' => 'Source Custom Distribution File',           'sourcerights' => 'Source Custom Distribution File',
          'obsolete' => 'Obsolete',           'obsolete' => 'Obsolete',
          'obsoletereplacement' => 'Suggested Replacement for Obsolete File',           'obsoletereplacement' => 'Suggested Replacement for Obsolete File',
Line 544  sub handler { Line 544  sub handler {
         &present_editable_metadata($r,$uri);          &present_editable_metadata($r,$uri);
     } else {      } else {
         $r->print(&Apache::loncommon::bodytag          $r->print(&Apache::loncommon::bodytag
                   ('Catalog Information','','','',$resdomain));    ('Catalog Information','','','',$resdomain));
         &present_uneditable_metadata($r,$uri);          &present_uneditable_metadata($r,$uri);
     }      }
     $r->print('</body></html>');      $r->print('</body></html>');
Line 905  ENDBOMBS Line 905  ENDBOMBS
                 &mt('Default Cataloging Information for Directory').' '.                  &mt('Default Cataloging Information for Directory').' '.
                 $dir;                  $dir;
         }          }
         my $bodytag=  
             &Apache::loncommon::bodytag('Edit Catalog Information');  
         %Apache::lonpublisher::metadatafields=();          %Apache::lonpublisher::metadatafields=();
         %Apache::lonpublisher::metadatakeys=();          %Apache::lonpublisher::metadatakeys=();
         &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));          &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile($fn));
         $r->print(<<ENDEDIT);          $r->print(<<ENDEDIT);
 <html><head><title>Edit Catalog Information</title></head>  
 $bodytag  
 <h1>$displayfile</h1>  <h1>$displayfile</h1>
 <form method="post" name="defaultmeta">  <form method="post" name="defaultmeta">
 ENDEDIT  ENDEDIT
         $r->print('<script language="JavaScript">'.          $r->print('<script language="JavaScript">'.
                   &Apache::loncommon::browser_and_searcher_javascript.                    &Apache::loncommon::browser_and_searcher_javascript().
                   '</script>');                    '</script>');
         my %lt=&fieldnames();          my %lt=&fieldnames();
    my $output;
         foreach ('author','title','subject','keywords','abstract','notes',          foreach ('author','title','subject','keywords','abstract','notes',
                  'copyright','customdistributionfile','language',                   'copyright','customdistributionfile','language',
                  'standards',                   'standards',
Line 933  ENDEDIT Line 930  ENDEDIT
                 $Apache::lonpublisher::metadatafields{'copyright'}=                  $Apache::lonpublisher::metadatafields{'copyright'}=
                     'default';                      'default';
             }              }
             $r->print('<p>'.$lt{$_}.': '.              $output.=('<p>'.$lt{$_}.': '.
                       &prettyinput                        &prettyinput($_,
                       ($_,$Apache::lonpublisher::metadatafields{$_},     $Apache::lonpublisher::metadatafields{$_},
                        'new_'.$_,'defaultmeta').'</p>');     'new_'.$_,'defaultmeta').'</p>');
         }          }
         if ($ENV{'form.store'}) {          if ($ENV{'form.store'}) {
             my $mfh;              my $mfh;
             if (!  ($mfh=Apache::File->new('>'.$fn))) {              if (!  ($mfh=Apache::File->new('>'.$fn))) {
                 $r->print('<p><font color=red>'.                  $r->print('<p><font color="red">'.
                           &mt('Could not write metadata').', '.                            &mt('Could not write metadata').', '.
                           &mt('FAIL').'</font>');                            &mt('FAIL').'</font></p>');
             } else {              } else {
                 foreach (sort keys %Apache::lonpublisher::metadatafields) {                  foreach (sort keys %Apache::lonpublisher::metadatafields) {
                     next if ($_ =~ /\./);                      next if ($_ =~ /\./);
Line 966  ENDEDIT Line 963  ENDEDIT
                          '<>&"').                           '<>&"').
                          '</'.$tag.'>';                           '</'.$tag.'>';
                 }                  }
                 $r->print('<p>'.&mt('Wrote Metadata'));                  $r->print('<p><font color="blue">'.&mt('Wrote Metadata').
     ' '.&Apache::lonlocal::locallocaltime(time).
     '</font></p>');
             }              }
         }          }
         $r->print('<br /><input type="submit" name="store" value="'.   $r->print($output.'<br /><input type="submit" name="store" value="'.
                   &mt('Store Catalog Information').'">');                    &mt('Store Catalog Information').'">');
     }      }
     $r->print('</form>');      $r->print('</form>');
Removed from v.1.83  
changed lines
  Added in v.1.87

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