Changeset 28997
- Timestamp:
- 2014-04-28T14:36:29+12:00 (10 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm
r28996 r28997 918 918 my $rss_entry = "<item>\n"; 919 919 $rss_entry .= " <title>$dc_title</title>\n"; 920 if( $ENV{'GSDL3SRCHOME'}) {920 if(&util::is_gs3()) { 921 921 $rss_entry .= " <link>_httpdomain__httpcollection_/document/$oid</link>\n"; 922 922 } else { -
main/trunk/greenstone2/perllib/util.pm
r28604 r28997 1113 1113 } 1114 1114 return $ENV{'GSDLOS'}.$gsdlarch; 1115 } 1116 1117 # returns 1 if this (GS server) is a GS3 installation, returns 0 if it's GS2. 1118 sub is_gs3() { 1119 if($ENV{'GSDL3SRCHOME'}) { 1120 return 1; 1121 } else { 1122 return 0; 1123 } 1115 1124 } 1116 1125
Note:
See TracChangeset
for help on using the changeset viewer.