version 1.75, 2004/04/19 16:47:43
|
version 1.78, 2004/06/11 02:21:45
|
Line 175 sub fieldnames {
|
Line 175 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', |
|
'sourcerights' => 'Source Custom Distribution File', |
'obsolete' => 'Obsolete', |
'obsolete' => 'Obsolete', |
'obsoletereplacement' => 'Suggested Replacement for Obsolete File', |
'obsoletereplacement' => 'Suggested Replacement for Obsolete File', |
'count' => 'Network-wide number of accesses (hits)', |
'count' => 'Network-wide number of accesses (hits)', |
Line 224 sub prettyprint {
|
Line 226 sub prettyprint {
|
if ($type eq 'copyright') { |
if ($type eq 'copyright') { |
return &Apache::loncommon::copyrightdescription($value); |
return &Apache::loncommon::copyrightdescription($value); |
} |
} |
|
# Copyright |
|
if ($type eq 'sourceavail') { |
|
return &Apache::loncommon::source_copyrightdescription($value); |
|
} |
# MIME |
# MIME |
if ($type eq 'mime') { |
if ($type eq 'mime') { |
return '<img src="'.&Apache::loncommon::icon($value).'" /> '. |
return '<img src="'.&Apache::loncommon::icon($value).'" /> '. |
Line 365 sub prettyinput {
|
Line 371 sub prettyinput {
|
(&Apache::loncommon::copyrightids)). |
(&Apache::loncommon::copyrightids)). |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
} |
} |
|
# Source Copyright |
|
if ($type eq 'sourceavail') { |
|
return &selectbox($fieldname, |
|
$value, |
|
\&Apache::loncommon::source_copyrightdescription, |
|
(&Apache::loncommon::source_copyrightids)). |
|
&relatedfield(0,$relatedsearchflag,$relatedsep); |
|
} |
# Gradelevels |
# Gradelevels |
if (($type eq 'lowestgradelevel') || |
if (($type eq 'lowestgradelevel') || |
($type eq 'highestgradelevel')) { |
($type eq 'highestgradelevel')) { |
Line 393 sub prettyinput {
|
Line 407 sub prettyinput {
|
",'rights')\">".&mt('Select').'</a>'. |
",'rights')\">".&mt('Select').'</a>'. |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
&relatedfield(0,$relatedsearchflag,$relatedsep); |
} |
} |
|
# Source Customdistribution file |
|
if ($type eq 'sourcerights') { |
|
return '<input type="text" name="'.$fieldname. |
|
'" size="60" value="'.$value.'" /><a href="javascript:openbrowser'. |
|
"('".$formname."','".$fieldname."'". |
|
",'rights')\">".&mt('Select').'</a>'. |
|
&relatedfield(0,$relatedsearchflag,$relatedsep); |
|
} |
# Dates |
# Dates |
if (($type eq 'creationdate') || |
if (($type eq 'creationdate') || |
($type eq 'lastrevisiondate')) { |
($type eq 'lastrevisiondate')) { |
Line 404 sub prettyinput {
|
Line 426 sub prettyinput {
|
$value=~s/^\s+//gs; |
$value=~s/^\s+//gs; |
$value=~s/\s+$//gs; |
$value=~s/\s+$//gs; |
$value=~s/\s+/ /gs; |
$value=~s/\s+/ /gs; |
$value=~s/\"/\&quod\;/gs; |
$value=~s/\"/\"\;/gs; |
return |
return |
'<input type="text" name="'.$fieldname.'" size="'.$size.'" '. |
'<input type="text" name="'.$fieldname.'" size="'.$size.'" '. |
'value="'.$value.'" />'. |
'value="'.$value.'" />'. |
Line 418 sub handler {
|
Line 440 sub handler {
|
# |
# |
my $uri=$r->uri; |
my $uri=$r->uri; |
# |
# |
# Check to see if this server is overloaded |
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
|
if ($loaderror) { |
|
return $loaderror; |
|
} |
|
# |
|
# Check to see if original resource server is overloaded |
|
my ($resdomain,$resuser)= |
|
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//); |
|
$loaderror=&Apache::lonnet::overloaderror |
|
($r,&Apache::lonnet::homeserver($resuser,$resdomain)); |
|
if ($loaderror) { |
|
return $loaderror; |
|
} |
|
# |
|
# Set document type |
# Set document type |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
# |
# |
|
my ($resdomain,$resuser)= |
|
(&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//); |
$r->print('<html><head><title>'. |
$r->print('<html><head><title>'. |
'Catalog Information'. |
'Catalog Information'. |
'</title></head>'); |
'</title></head>'); |
Line 555 sub present_uneditable_metadata {
|
Line 564 sub present_uneditable_metadata {
|
'lastrevisiondate', |
'lastrevisiondate', |
'owner', |
'owner', |
'copyright', |
'copyright', |
'customdistributionfile', |
'customdistributionfile', |
|
'sourceavail', |
|
'sourcerights', |
'obsolete', |
'obsolete', |
'obsoletereplacement') { |
'obsoletereplacement') { |
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}. |
$table.='<tr><td bgcolor="#AAAAAA">'.$lt{$_}. |
Line 830 ENDEDIT
|
Line 841 ENDEDIT
|
foreach ('author','title','subject','keywords','abstract','notes', |
foreach ('author','title','subject','keywords','abstract','notes', |
'copyright','customdistributionfile','language', |
'copyright','customdistributionfile','language', |
'standards', |
'standards', |
'lowestgradelevel','highestgradelevel', |
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', |
'obsolete','obsoletereplacement') { |
'obsolete','obsoletereplacement') { |
if (defined($ENV{'form.new_'.$_})) { |
if (defined($ENV{'form.new_'.$_})) { |
$Apache::lonpublisher::metadatafields{$_}= |
$Apache::lonpublisher::metadatafields{$_}= |