?? loginbox.pm
字號:
package Bibliotech::Component::LoginBox;use strict;use base 'Bibliotech::Component';use Bibliotech::DBI;sub last_updated_basis { ('LOGIN')}sub html_content { my ($self, $class, $verbose) = @_; my $bibliotech = $self->bibliotech; my $o; if (my $username = $bibliotech->request->notes->{'username'}) { my $location = $bibliotech->location; $o = qq| <div id="loginbox"> <h1 class="loginbox">|.$username.qq|\'s account</h1> <p class="tooltype"><img src="arrow.gif" width="9" height="9" alt="" /> <a href="${location}library">My library</a></p> <p class="tooltype"><img src="arrow.gif" width="9" height="9" alt="" /> <a href="${location}register">Change my registration details</a></p> <p class="tooltype"><a href="${location}logout"><img src="logout.gif" alt="logout" title="logout" border="0" /> </a></p> </div> |; } else { $o = $self->include('loginbox'); } return Bibliotech::Page::HTML_Content->simple($o);}1;__END__
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -