[Bio] / SubsystemEditor / WebPage / ShowSubsystem.pm Repository:
ViewVC logotype

Diff of /SubsystemEditor/WebPage/ShowSubsystem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon Nov 19 15:51:39 2007 UTC revision 1.3, Thu Dec 13 17:46:23 2007 UTC
# Line 140  Line 140 
140    $content .= $self->start_form( 'form', { subsystem => $name } );    $content .= $self->start_form( 'form', { subsystem => $name } );
141    
142    my ( $ssversion, $sscurator, $pedigree, $ssroles ) = $fig->subsystem_info( $name );    my ( $ssversion, $sscurator, $pedigree, $ssroles ) = $fig->subsystem_info( $name );
143    
144      my $versionlink = '';
145    print STDERR $can_alter." CANALTER\n";
146      if ( $can_alter ) {
147        $versionlink = "<A HREF='".$self->application->url()."?page=ResetSubsystem&subsystem=$name'>Reset to Previous Timestamp</A>";
148        print STDERR $versionlink . " VL\n";
149      }
150    
151    my $mod_time = get_mod_time( $name );    my $mod_time = get_mod_time( $name );
152    my $class = $fig->subsystem_classification( $name );    my $class = $fig->subsystem_classification( $name );
153    my $ssnotes = $subsystem->get_notes();    my $ssnotes = $subsystem->get_notes();
# Line 162  Line 170 
170      $classification_stuff .= "<TR><TH></TH><TD>$class->[1]</TD></TR>";      $classification_stuff .= "<TR><TH></TH><TD>$class->[1]</TD></TR>";
171    }    }
172    
173        print STDERR $versionlink . " VL\n";
174    my $infotable = "<TABLE><TR><TH>Name:</TH><TD>$ssname</TD><TR>";    my $infotable = "<TABLE><TR><TH>Name:</TH><TD>$ssname</TD><TR>";
175    $infotable .= "<TR><TH>Author:</TH><TD>$sscurator</TD></TR>";    $infotable .= "<TR><TH>Author:</TH><TD>$sscurator</TD></TR>";
176    $infotable .= "<TR><TH>Version:</TH><TD>$ssversion</TD></TR>";    $infotable .= "<TR><TH>Version:</TH><TD>$ssversion $versionlink</TD></TR>";
177    $infotable .= "<TR><TH>Last Modified:</TH><TD>$mod_time</TD></TR>";    $infotable .= "<TR><TH>Last Modified:</TH><TD>$mod_time</TD></TR>";
178    if ( $can_alter ) {    if ( $can_alter ) {
179      $infotable .= "<TR><TH>Description</TH><TD><TEXTAREA NAME='SSDESC' ROWS=6 STYLE='width: 772px;'>$ssdesc</TEXTAREA></TD></TR>";      $infotable .= "<TR><TH>Description</TH><TD><TEXTAREA NAME='SSDESC' ROWS=6 STYLE='width: 772px;'>$ssdesc</TEXTAREA></TD></TR>";

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3